ارسال پاسخ 
 
امتیاز موضوع:
  • 15 رأی - میانگین امتیازات: 2.87
  • 1
  • 2
  • 3
  • 4
  • 5
حذف يك كاراكتر خاص از مجموع كاراكترهاي وارد شده
نویسنده پیام
CPSD Admin آفلاین
مدیر سایت
*******

ارسال‌ها: 177
تاریخ عضویت: تير ۱۳۸۹
اعتبار: 0
ارسال: #1
Lightbulb حذف يك كاراكتر خاص از مجموع كاراكترهاي وارد شده
ضمن سلام

تابع زير به جهت حذف يك كاراكتر خاص از داخل يك رشته ميتواند مورد استفاده قرار بگيرد .

کد:
Public Function StripChars(EnteryText As String, StripChar As String) As String

On Error GoTo StripCharsError

   Dim lngFound As Long
  
   lngFound = 1
  
   Do Until lngFound = 0
      lngFound = InStr(EnteryText, StripChar)
      If lngFound = 0 Then GoTo AllDone
      EnteryText = Left(EnteryText, lngFound - 1) & Mid(EnteryText, lngFound + 1)
   Loop
  
AllDone:
   StripChars = EnteryText
  
StripCharsExit:
   Exit Function

StripCharsError:
   MsgBox "Error No: " & Err.Number & "; Description: " & Err.Description
   Resume StripCharsExit

End Function

مثال :
کد:
StripChars("Sample---Text","-")=SampleText
StripChars("Sample   Text"," ")=SampleText
موفق باشيد

درگاه : وب سايت | فروشگاه | وبلاگ
۵ آبان ۱۳۸۹ ۰۲:۵۱ عصر
مشاهده‌ی وب سایت کاربر یافتن تمامی ارسال‌های این کاربر نقل قول این ارسال در یک پاسخ
ارسال پاسخ 


پرش به انجمن:


‍CPSD.ir Website

وب سايت      |      وبلاگ      |      فروشگاه

 

Center Point SD - Software Developer

Yaldex PopUp