vb.net 利用正则式把字符串 150C25@150(6) 分割为 150,C,25,150,6 形式代码和每行注释

以下是 VB.NET 的代码示例和注释，用于将字符串 "150C25@150(6)" 使用正则表达式拆分为 "150", "C", "25", "150" 和 "6"：

Imports System.Text.RegularExpressions ' 引入正则表达式命名空间

Dim input As String = "150C25@150(6)" ' 原始字符串
Dim pattern As String = "[A-Za-z]|\(|\)" ' 正则表达式匹配模式
Dim matches As MatchCollection = Regex.Matches(input, pattern) ' 执行正则表达式匹配

Dim output As List(Of String) = New List(Of String) ' 输出结果列表
Dim lastIndex As Integer = 0 ' 上一次匹配的下标

For Each match As Match In matches ' 遍历所有匹配项
    Dim index As Integer = match.Index ' 当前匹配项的下标
    Dim length As Integer = index - lastIndex ' 当前匹配项和上一个匹配项之间的字符个数
    Dim part As String = input.Substring(lastIndex, length) ' 截取当前匹配项和上一个匹配项之间的字符串
    output.Add(part) ' 将截取的字符串添加到输出结果列表中
    output.Add(match.Value) ' 将当前匹配项添加到输出结果列表中
    lastIndex = index + 1 ' 更新上一次匹配的下标
Next

' 添加最后一个匹配项之后的字符串
Dim lastPart As String = input.Substring(lastIndex)
output.Add(lastPart)

' 输出结果列表中的每个元素
For Each item As String In output
    Console.WriteLine(item)
Next

注释中详细解释了代码中每一行的作用。此代码使用了正则表达式匹配模式和 MatchCollection 类，可以将字符串按照指定的正则表达式拆分成多个子字符串和匹配项。请注意，此代码仅适用于给定的字符串格式和正则表达式匹配模式，如果字符串格式或正则表达式匹配模式有所不同，则需要进行相应的修改。