如何使用VB.NET实现像textbox2这样的结果

Question

我有一个在 vb.net 中使用的正则表达式，我想将所有符合条件的 textbox1 逐行输出到 textbox2，这就是我正在使用的。

 textbox1(Sorce)                    textbox2(Result)
  123kaadd234                             123,234
fjalj787fafkajl34ddfa999               787,134,999  

我的代码：

Imports System.Text.RegularExpressions
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim pattern As String = "\d{3}"
        For row As Int16 = 0 To TextBox1.Lines.Count - 1
            Dim input As String = TextBox1.Lines(row)
            Dim m As MatchCollection = Regex.Matches(input, pattern)
            For i As Int16 = 0 To m.Count - 1
                TextBox2.Text = TextBox2.Text & m(i).ToString & "," & vbCrLf
            Next
        Next
    End Sub
End Class

Answer 1

首先，第二行的结果应该是 787,999，因为 34 之前没有 1（有一个字母 l）代码>）。

其余代码可以使用

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim pattern As String = "\d{3}"
    For row As Int16 = 0 To TextBox1.Lines.Count - 1
        Dim input As String = TextBox1.Lines(row)
        Dim line As String = String.Join(",", Regex.Matches(input, pattern).Cast(Of Match)().Select(Function(m) m.Value).ToList())
        TextBox2.AppendText(line & vbCrLf)
    Next
End Sub

注意修复：

• Regex.Matches(input,pattern).Cast(Of Match)().Select(Function(m) m.Value).ToList() 收集将所有匹配值放入列表中
• String.Join(",", ...) 将列表连接成单个逗号分隔的字符串
• TextBox2.AppendText(line & vbCrLf) 将新行附加到多行文本框控件。