1

说字符串是这样的

bla bla bla bla（猫） bladfdskdfd dsgdsdksf（狗） dfdshfdskdskfsdfkhsdf sdkfhdsfkdf（凯西） fdsfhdskfhdsfkd（狗）

我想要一个 generic.list （字符串）包含

猫

狗

凯西

狗

如何在 vb.net 中使用正则表达式来做到这一点

后来我想做一些更复杂的事情，比如从这个字符串中获取“url”：“和”之间的所有字符串

152742110214000.编号代理，：-。Tgl。机构， ： -。汝来，：90.76。瓦克图：270 哈里。Nilai kontrak, : Rp."},{"GsearchResultClass":"GwebSearch","unescapedUrl":"https://eproc.pu.go.id/publik/dinaspu/kegiatan/info_paket.asp?id\u003d%7B4BD47F74 -233B-4D49-BB60-4229023668C6%7D","url":"https://eproc.pu.go.id/publik/dinaspu/kegiatan/info_paket.asp%3Fid%3D%257B4BD47F74-233B-4D49-BB60 -4229023668C6%257D","visibleUrl":"eproc.pu.go.id","cacheUrl":"","title":"Informasi Proyek","titleNoFormatting":"Informasi Proyek","content":" 2010 年 4 月 9 日 \u003cb\u003e...\u003c/b\u003e Sub Kegiatan，：PEMBANGUNAN JALAN。Paket, : Peningkatan jalan sd hotmix Jl 。\u003cb\u003eKucing\u003c/b\u003e 凯尔。普沃萨里。Rupiah Murni, : 1449000000 \u003cb\u003e...\u003c/b\u003e"}],"cursor":{"resultCount":"10","pages":[{"start":"0"," label":1},{"start":"4","label":2},{"start":"8","label":3}],"estimatedResultCount":"10","currentPageIndex" :2,"moreResultsUrl":"http://www.google.com/search?oe\u003dutf8\u0026ie\u003dutf8\u0026source\u003duds\u0026start\u003d12\u0026hl\u003den\u0026q\u003d+kucing+site:eproc。 pu.go.id","searchResultTime":"0.05"}}, 200, null, 200)

4

2 回答 2

1

如果你想从字符串中提取值并在 vb.net 中生成通用列表，你可以试试

Private Function Fetch_Items(Text As String) As List(Of Generic_List)
Dim pattern As String = "\((?<value>(.)*?\))"
Dim _lst As New List(Of Generic_List)()
Dim VDMatch As System.Text.RegularExpressions.Match = System.Text.RegularExpressions.Regex.Match(Text, pattern)
While VDMatch.Success
    _lst.Add(VDMatch.Groups("value").Value)
    VDMatch = VDMatch.NextMatch()
End While

Return _lst
End Function

此函数将提取包含在 ( ) 内的所有字符串并生成通用列表。

于 2012-04-06T07:27:03.313 回答
1

所以在寻找类似的问题时，我遇到了这篇文章。我的任务是解析树节点的完整路径（表示为“root\child\grandchild\greatgrandchild...\currentNode”以选择要使用的祖先级别。虽然 irfanmcsd 的回答很优雅，但我很难让我的手臂正确设置斜线模式（并且真的希望在正则表达式方面做得更好。）

这是我针对我的特定问题的解决方案：

    Dim exp As New Regex("\\", RegexOptions.IgnoreCase)
    Dim ancestors() As String

    ancestors = exp.Split(calledFromTreeNode.FullPath)

我现在有一组值来完成我需要的。

诚然这不是同一个问题，但 irfanmcsd 的解决方案帮助推动了我自己的解决方案。现在我只需要更好地理解模式！

于 2012-07-18T15:41:27.363 回答