vb.net获取字符串中包含指定形式的字符串，例如12a20@180(6)，A12，15b8，14C10@150，C25@250的形式，每行注释

可以使用正则表达式来获取符合特定形式的字符串。以下是使用VB.NET实现的示例代码：

Dim input As String = "12a20@180(6)，A12，15b8，14C10@150，C25@250"

Dim pattern As String = "\d+[a-zA-Z]?\d*(@\d+)?(\(\d+\))?"

Dim matches As MatchCollection = Regex.Matches(input, pattern)

For Each match As Match In matches
    Console.WriteLine(match.Value)
Next

这段代码中，我们定义了一个正则表达式模式，用于匹配符合我们要求的字符串。其中：

- `\d+`表示匹配一个或多个数字。
- `[a-zA-Z]?`表示匹配零个或一个字母。
- `\d*`表示匹配零个或多个数字。
- `(@\d+)?`表示匹配一个“@”符号后面跟着一个或多个数字，并且这部分可以出现零次或一次。
- `(\(\d+\))?`表示匹配一个左括号后面跟着一个或多个数字，再跟着一个右括号，并且这部分可以出现零次或一次。

最后，我们使用`Regex.Matches`方法来获取所有匹配的字符串，并逐个输出它们的值。注意，这里的匹配结果包含了输入字符串中的所有符合条件的子串。如果您需要按行解析输入字符串，请先使用`String.Split`方法将其分割为多行。

相关问题

vb.net获取字符串中包含指定形式的字符串，例如12a20@180(6),A12，15B8，14C10@150，12d25@250的形式，每行注释

可以使用正则表达式来匹配字符串中符合指定形式的子字符串。以下是一个示例代码：

Imports System.Text.RegularExpressions

' 定义正则表达式模式
Dim pattern As String = "\d+[a-zA-Z]\d+(@\d+)?(\(\d+\))?|^[a-zA-Z]\d+$"

' 遍历每一行字符串
For Each line As String In input.Split(Environment.NewLine)

    ' 使用正则表达式进行匹配
    Dim matches As MatchCollection = Regex.Matches(line, pattern)

    ' 输出匹配结果
    For Each match As Match In matches
        Console.WriteLine(match.Value)
    Next

Next

这个正则表达式模式可以匹配以下两种形式的字符串：

1. `数字字母数字@数字(数字)`，例如：12a20@180(6)、14C10@150、12d25@250；
2. `字母数字`，例如：A12、15B8。

其中，数字可以是一位或多位，字母是大小写不敏感的。`@数字(数字)`和括号可以选择性省略，即不一定要出现在每个匹配的字符串中。