1

私はそのコードを持っており、スペースを含む単語を省略し、+ で始まるだけです...しかし、ドット、文字、ダッシュのみを許可する必要があります...もっと単純だと思います:

Imports System.Text.RegularExpressions

Public Class Contactos

    ReadOnly pattern As String = "\s([^+\d\,]+),?"

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim cadena As String = " " & TextBox1.Text & ","

        Dim match As Match = Regex.Match(cadena, pattern)

        Do While match.Success
            frmMain.ListBox1.Items.Add(match.Groups(1).ToString)
            match = match.NextMatch()
        Loop
    End Sub
End Class

私に何ができる?

ありがとう!:)

4

2 に答える 2