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。

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