如何提取两个多次使用的标识符之间的文本文件值列表

Question

我正在尝试制作一个VB.NET Visual Studio 2019表单，该表单将请求一个文本文件，并在我称为TextBox4的TextBox中输出一个名称列表，这样我就不必创建任何文件(或者创建一个文本文件，将其复制到TextBox4，然后删除它？(。文本文件中的名称介于"Customer_Name"和"Customer_ID"之间。除了这两个标识符之外，该文件似乎没有任何韵律或原因，因此很难有效地将其拆分。如果相关的话，每个文件通常有100到1000个条目。

样本(模拟(数据：
"Customer_name":"JOHN DOE","Customer_id":"9251954","Customer_team_id":"HOST","Customer_position_id":"MGR","Customer_short_name":"Joey","Customer_eligibility":"LT5","Customer_page_url":"google.com","Customer_alt_id":"M7","Customer_name":"JANE DOE","Customer_id":"8734817","Customer_team_id":"HOST","Customer_position_id":"TECH","Customer_name":"JOSEPH DOE","Customer_id":"8675307",

我想在文本框中显示这一点：
JOHN DOE
JANE DOE
JOSEPH DOE

Answer 1

看看这个正则表达式模式：

(?:")(?<key>w+)(?:":")(?<value>((w|s|.))+)(?:",)

这做了几件事：

1. (?:")-创建非捕获组以匹配开放引号
2. (?<key>w+)-创建一个与密钥匹配的命名组(例如Customer_name(
3. (?:":")-创建一个非捕获组以匹配右引号、冒号和左引号
4. (?<value>((w|s|.))+)-创建一个与值匹配的命名组(例如John Doe(
5. (?:",)-创建一个非捕获组以匹配右引号

有了这个，你可以循环匹配和匹配组，只得到客户名称：

' declare the pattern and input (escaping quotation marks) as well as a collection to store just the customer_name values
Dim pattern As String = "(?:"")(?<key>w+)(?:"":"")(?<value>((w|s|.))+)(?:"",)"
Dim input As String = """Customer_name"":""JOHN DOE"",""Customer_id"":""9251954"",""Customer_team_id"":""HOST"",""Customer_position_id"":""MGR"",""Customer_short_name"":""Joey"",""Customer_eligibility"":""LT5"",""Customer_page_url"":""google.com"",""Customer_alt_id"":""M7"",""Customer_name"":""JANE DOE"",""Customer_id"":""8734817"",""Customer_team_id"":""HOST"",""Customer_position_id"":""TECH"",""Customer_name"":""JOSEPH DOE"",""Customer_id"":""8675307"""
Dim matches As MatchCollection = Regex.Matches(input, pattern)
Dim names As New List(Of String)()
' loop over each match
For Each match As Match In matches
' loop over each group in the match
For index As Integer = 0 To match.Groups.Count - 1
Dim group As Group = match.Groups.Item(index)
' only do something if we're on the "key" group, the "key" group's value is Customer_name, and there's at least one more group left
If (group.Name = "key" AndAlso group.Value = "Customer_name" AndAlso index < match.Groups.Count - 1)
' only do something if the next group is the "value" group
Dim valueGroup As Group = match.Groups.Item(index + 1)
If (valueGroup.Name = "value") Then
' add the key's value
names.Add(valueGroup.Value)
Exit For
End If
End If
Next
Next
' set the TextBox's lines
TextBox4.Lines = names.ToArray()

Fiddle：https://dotnetfiddle.net/Zja46U

编辑-请记住，因为我们使用的是命名组，所以现在可以扩展此代码以获得任何键/值对。只是为了这个例子，我只得到了Customer_name键/值对。