vb.net获取字符串中包含指定形式的字符串，例如A12@150，B8@150，C100@150的形式，每行注释

可以使用正则表达式来获取符合指定形式的字符串。

示例代码如下：

Imports System.Text.RegularExpressions

' 原始字符串
Dim str As String = "A12@150，B8@150，C100@150"

' 匹配规则
Dim pattern As String = "[A-Z]\d+@\d+"

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

' 查找匹配项
Dim matches As MatchCollection = regex.Matches(str)

' 遍历匹配项
For Each match As Match In matches
    Console.WriteLine(match.Value)
Next

输出结果为：

A12@150
B8@150
C100@150

解释说明：

- 第1行：引入System.Text.RegularExpressions命名空间。
- 第4行：定义原始字符串。
- 第7行：定义匹配规则，其中：
- `[A-Z]`表示匹配一个大写字母；
- `\d+`表示匹配一个或多个数字；
- `@`表示匹配一个“@”符号。
- 第10行：创建正则表达式对象。
- 第13行：查找匹配项，返回一个MatchCollection对象。
- 第16~18行：遍历匹配项，输出匹配结果。其中，match.Value表示匹配项的字符串形式。

相关问题

vb.net获取字符串中包含指定形式的字符串，例如A12@150(2)，B8@150(6)，C100@150(4)的形式，每行注释

可以使用正则表达式来匹配符合特定形式的字符串。

下面是一个示例代码，演示如何获取一个字符串中符合 "字母+数字@数字(数字)" 的形式的字符串：

Dim inputString As String = "A12@150(2)，B8@150(6)，C100@150(4)"
Dim pattern As String = "[A-Za-z]\d+@\d+\(\d+\)"
Dim matches As MatchCollection = Regex.Matches(inputString, pattern)

For Each match As Match In matches
    Dim matchedString As String = match.Value
    ' 这里可以对符合条件的字符串进行处理，例如输出到控制台或保存到文件中等等。
    Console.WriteLine(matchedString)
Next

解释一下上述代码：

- `inputString` 是要匹配的字符串。
- `pattern` 是一个正则表达式，用来匹配符合 "字母+数字@数字(数字)" 的形式的字符串。
- `Regex.Matches(inputString, pattern)` 使用正则表达式进行匹配，返回一个 `MatchCollection` 集合，其中包含了所有符合条件的字符串。
- `For Each` 循环遍历 `MatchCollection` 集合，取出每一个符合条件的字符串，进行后续处理。在示例代码中，我们只是简单地将这些字符串输出到控制台上。

vb.net获取字符串中包含指定形式的字符串，例如C12@150，C8@150，C100@150的形式，每行注释的多种方法

在 VB.NET 中，可以使用正则表达式来获取包含指定形式的字符串。

方法一：使用 Regex 类

可以使用 Regex 类的 Matches 方法来匹配字符串中的所有符合指定形式的子字符串，例如：

Dim input As String = "C12@150，C8@150，C100@150"
Dim pattern As String = "C\d+@\d+"
Dim matches As MatchCollection = Regex.Matches(input, pattern)

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

输出：

C12@150
C8@150
C100@150

其中，`\d+` 表示匹配一个或多个数字，`@` 表示匹配字符 "@"。

方法二：使用 String 类的 Split 方法

可以使用 String 类的 Split 方法来将字符串按照指定的分隔符分割成一个字符串数组，然后再使用 LINQ 查询语句来筛选符合指定形式的字符串，例如：

Dim input As String = "C12@150，C8@150，C100@150"
Dim separator As Char() = {","c}
Dim matches As String() = input.Split(separator, StringSplitOptions.RemoveEmptyEntries) _
                                .Where(Function(str) Regex.IsMatch(str, "C\d+@\d+")) _
                                .ToArray()

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

输出：

C12@150
C8@150
C100@150

其中，`{","c}` 表示将字符串按照逗号分隔，`StringSplitOptions.RemoveEmptyEntries` 表示去除空字符串，`Regex.IsMatch` 方法用于判断字符串是否符合指定形式。