فروم تخصصی - پشتیبانی CPSD
حذف يك كاراكتر خاص از مجموع كاراكترهاي وارد شده - نسخه‌ی قابل چاپ

+- فروم تخصصی - پشتیبانی CPSD (http://cpsd.ir/forum)
+-- انجمن: آموزش (/forumdisplay.php?fid=9)
+--- انجمن: عمومی (/forumdisplay.php?fid=21)
+---- انجمن: توابع و کدهای مفید (/forumdisplay.php?fid=28)
+---- موضوع: حذف يك كاراكتر خاص از مجموع كاراكترهاي وارد شده (/showthread.php?tid=31)



حذف يك كاراكتر خاص از مجموع كاراكترهاي وارد شده - CPSD Admin - ۵ آبان ۱۳۸۹ ۰۲:۵۱ عصر

ضمن سلام

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

کد:
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
موفق باشيد