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

ارسال‌ها: 176
تاریخ عضویت: تير ۱۳۸۹
اعتبار: 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 Admin - ۵ آبان ۱۳۸۹ ۰۲:۵۱ عصر

پرش به انجمن:


‍CPSD.ir Website

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

 

Center Point SD - Software Developer

Yaldex PopUp