Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Название темы: Visual Basic 2008
Показать сообщение отдельно

Аватара для Uzvern

Старожил


Сообщения: 161
Благодарности: 4

Профиль | Сайт | Отправить PM | Цитировать


Как можно отфильтровать значение на определенные знаки, например : значение "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

Последний раз редактировалось Uzvern, 30-07-2008 в 01:57.


Отправлено: 01:08, 30-07-2008 | #194

Название темы: Visual Basic 2008