vb.net获取字符串所有”C"与"@"之间的一个数字，每行注释

可以使用正则表达式来实现。以下是代码示例：

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

' 定义要匹配的字符串
Dim input As String = "C@1.23C@4.56C@7.89"

' 定义正则表达式模式
Dim pattern As String = "C@(\d+\.\d+)"

' 创建正则表达式对象
Dim regex As New Regex(pattern)

' 在字符串中查找所有匹配项
Dim matches As MatchCollection = regex.Matches(input)

' 遍历匹配项并提取数字
For Each match As Match In matches
    Dim number As Double = Double.Parse(match.Groups(1).Value)
    Console.WriteLine(number)
Next

上述代码将输出以下内容：

1.23
4.56
7.89

解释一下代码，首先导入 `System.Text.RegularExpressions` 命名空间，然后定义要匹配的字符串为 `"C@1.23C@4.56C@7.89"`。接着定义正则表达式模式为 `"C@(\d+\.\d+)"`，其中 `\d+` 表示匹配一个或多个数字，`\.` 表示匹配小数点，`(\d+\.\d+)` 表示匹配一个数字和一个小数点组成的小数。然后创建正则表达式对象并调用 `Matches` 方法在字符串中查找所有匹配项。最后遍历匹配项并提取其中的数字。