Как можно отфильтровать значение на определенные знаки, например : значение "1-2\3-4\5 необходимо отфильтровать по знакам " "-", "\" и т.п. , чтобы вернулось знаение "12345". Пробовал Trim, но чет он не помогает.
Пришлось писать функцию :
Код:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Stri As String = "1-2\3-4\5"
MsgBox(RemChr(Stri, "-", "\"))
End
End Sub
Function RemChr(ByVal Text As String, ByVal ParamArray Chars() As String) As String
Dim EndString As String = Text
Dim TempString As String
For CI As Integer = 0 To Chars.Length - 1
For TI As Integer = 0 To EndString.Length - 1
If EndString.Substring(TI, 1) <> Chars(CI) Then
TempString &= EndString.Substring(TI, 1)
End If
Next
EndString = TempString
TempString = Nothing
Next
Return EndString
End Function
End Class