vb.net获取字符串所有"@"后面的一个数字，每行注释

可以使用正则表达式来获取字符串中所有符合要求的数字。具体实现如下：

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

' 定义待匹配的字符串
Dim input As String = "这是一个示例字符串，@1234@5678@91011，其中包含多个数字。"

' 定义正则表达式匹配规则，匹配 "@" 后面的数字
Dim pattern As String = "@(\d+)"

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

' 遍历匹配结果，获取数字
For Each match As Match In matches
    Dim numString As String = match.Groups(1).Value
    Dim num As Integer = Integer.Parse(numString)
    
    ' 在这里对获取到的数字进行处理
    ' ...
Next

上面的代码中，使用了 `Regex.Matches` 方法对输入字符串进行正则表达式匹配。匹配规则为：匹配 "@" 后面的数字，其中 `(\d+)` 表示匹配一个或多个数字。匹配结果会以 `MatchCollection` 类型返回。

对于每个匹配结果，可以使用 `Match.Groups` 属性获取匹配到的分组，其中索引为 `1` 的分组即为括号中定义的分组，即数字部分。通过 `Integer.Parse` 方法将数字字符串转换为整型。在这里，可以对获取到的数字进行进一步处理。