下面代码错在哪里？Dim txt As String = "1.1.2招标人名称:杭州运河集团建设管理有限公司地址:杭州市拱墅区大关路179号联系人:杨杰电话:18267354466邮箱:/"
Dim patn As String = "招标人名称:[.*?]|地址:[.*?]|联系人:[.*?]|电话:[.*?]|邮箱:[.*?]"
Dim rgx = New System.Text.RegularExpressions.Regex(patn, System.Text.RegularExpressions.RegexOptions.IgnoreCase)
For Each match As System.Text.RegularExpressions.Match In rgx.Matches(txt)
Output.Show(match.Value )
Next
Dim txt As String = "1.1.2招标人名称:杭州运河集团建设管理有限公司地址:杭州市拱墅区大关路179号联系人:杨杰电话:18267354466邮箱:/"
Dim patn As String = "招标人名称:|地址:|联系人:|电话:|邮箱:"
Dim r As New System.Text.RegularExpressions.Regex(patn)
Dim str = r.Split(txt)
For Each a As String In str
Output.Show(a)
Next
我对正则表达式有恐惧感。Dim 字符串 As String = "1.1.2招标人名称:杭州运河集团建设管理有限公司地址:杭州市拱墅区大关路179号联系人:杨杰电话:18267354466邮箱:/"
Dim 分节字符组() As String = "1.1.2招标人名称:|地址:|联系人:|电话:|邮箱:".Split ("|")
Dim 字符组() As String = 字符串.Split (分节字符组 , stringsplitoptions.None)
For i As Integer = 0 To 分节字符组.count - 1
Output.Show (分节字符组(i) & 字符组(i + 1))
Next
[此贴子已经被作者于2023/11/14 14:22:26编辑过]
Dim 字符串 As String = "1.1.2招标人名称:杭州运河集团建设管理有限公司地址:杭州市拱墅区大关路179号联系人:杨杰电话:18267354466邮箱:/"
Dim 分节字符组() As String = "招标人名称:|地址:|联系人:|电话:|邮箱:".Split ("|")
Dim 字符组() As String = 字符串.Split (分节字符组 , stringsplitoptions.None)
For i As Integer = 0 To 分节字符组.count - 1
Output.Show ("'" & 分节字符组(i) & 字符组(i + 1))
Next
自己根拆分后的数组进行合并就行了。关键的东西都有了，要学会自己变通一下，不要那么死板
Dim str() As String = r.Split(txt)
MsgBox(str(1) & str(2))
不对，代码出错Dim str As String = "1.1.2招标人名称:杭州运河集团建设管理有限公司地址:杭州市拱墅区大关路179号联系人:杨杰电话:18267354466邮箱:/"
Dim ns() As String = "招标人名称:|地址:|联系人:|电话:|邮箱:".Split ("|")
Dim nms() As String = str.Split (ns , stringsplitoptions.None)
For i As Integer = 0 To nms.count - 1
Output.Show ("'" & ns(i) & nms(i + 1))
Next