VB.Net正则表达式许可证密钥

Question

所以我想从一些文本（ mytext ）解析许可证密钥。

所有许可证密钥的格式为： XXXXX-XXXXX-XXXXX-XXXXX-XXXXX （X为随机字符）

我试过了：

Dim findtext1 As String = "(?<=\w{5}-\w{5}-\w{5}-\w{5}-\w{5})"
Dim myregex1 As String = mytext
Dim doregex1 As MatchCollection = Regex.Matches(myregex1, findtext1)
Dim matches1 As String = ""
For Each match1 As Match In doregex1
    matches1 = matches1 + match1.ToString + Environment.NewLine
Next
MsgBox(matches1)

但没有找到结果。

Answer 1

但没有找到结果。

你的正则表达式问题(?<=\\w{5}-\\w{5}-\\w{5}-\\w{5}-\\w{5})是你试图通过使用(?<=..) zero-witdh (?<=\\w{5}-\\w{5}-\\w{5}-\\w{5}-\\w{5})来匹配zero-witdh (?<=..)被称为Positive Lookbehind 。

您应该尝试使用^(\\w{5}-\\w{5}-\\w{5}-\\w{5}-\\w{5})$ 。

简而言之，有各种方法。 就像其中一些人在评论中指出的那样

Answer 2

我相信你需要从更大的文本中提取这些数字。 因此，您需要使模式成为消耗模式（即，删除(?<=和final ) ，使您的模式成为正向后观的示例，仅检查文本是否与模式匹配，但不会放置匹配的文本到返回的匹配值）并使用单词边界来避免更nabc45串内的部分匹配（例如，避免在nabc45字符串内使用a\\wc模式匹配abc ）。

这是整个固定代码：

Dim findtext1 As String = "\b\w{5}(?:-\w{5}){4}\b"
Dim myregex1 As String = "ABCDE-XXXXX-XXXXX-XXXXX-12345;FGHIJ-XXXXX-XXXXX-XXXXX-12345; ABCDE-XXXXX-XXXXX-XXXXX-123456"
Dim doregex1 As MatchCollection = System.Text.RegularExpressions.Regex.Matches(myregex1, findtext1)
Dim matches1 As String = ""
For Each match1 As Match In doregex1
    matches1 = matches1 + match1.ToString + Environment.NewLine
Next
Console.Write(matches1)

在线查看VB.NET演示 。 它打印

ABCDE-XXXXX-XXXXX-XXXXX-12345
FGHIJ-XXXXX-XXXXX-XXXXX-12345

但不是ABCDE-XXXXX-XXXXX-XXXXX-123456 （因为最后一个块包含6位数字）。

图案细节 ：

• \\b - 单词边界
• \\w{5} - 5个字的字符
• (?:-\\w{5}){4} - 恰好4次出现-后跟5个字符
• \\b - 单词边界

请参阅正则表达式演示 。

请注意，在.NET \\w匹配[\\p{L}\\p{N}_] ，即所有Unicode字母和数字，因此，如果您只需要匹配ASCII字符，请传递RegexOptions.ECMAScript选项：

Regex.Matches(myregex1, findtext1, RegexOptions.ECMAScript)

另外注意：如果你不需要匹配_ ，你需要调整模式以排除_并将其添加到单词边界：

(?<=\b|_)[^\W_]{5}(?:-[^\W_]{5}){4}(?=\b|_)

请参阅正则表达式演示 。