主题：字段中取指定数值

按指定字段取值

参考代码，尽量用实例说明问题。

 

Dim str As String = "5102.001.002 其它业务收入 - 本地资料费 - 万里/部门：002.014 - 经营部_aabbcc工程"
'Dim str As String = "5102.001.002 其它业务收入/部门：002.014 - 经营部_aabbcc工程"
Dim mc = System.Text.RegularExpressions.Regex.Matches(str, "(?<=[0-9.]+( )+).+?(?= -|/)|(?<=[0-9.]+( - )+).+?(?=$)")
For i As Integer = 0 To mc.count-1
    msgbox(mc(i).value)
Next

Dim str As String = "5501.003.001 营业费用 - 福利费/部门:002.057 - 经营部_仙县淡竹至白塔污水管道工程(施工)(30万)/职员:04"
Dim mc = System.Text.RegularExpressions.Regex.Matches(str, "[0-9.]+( )+(?=.+?( -|/))")
For i As Integer = 0 To mc.count-1
    msgbox(mc(i).value)
Next

Dim str As String = "5102.001.002  本地资料费 /部门:002.014 - 经营部_aabbcc工 - 万里/部门:002.014 -aabbcc工 - 万里/部门:002 - 经营部_aabbcc工程"
Dim mc = System.Text.RegularExpressions.Regex.Matches(str, "(?<=[0-9.]+( )+).+?(?= -|/| /)")
If mc.count>0 Then
    msgbox(mc(0).value)
End If

 7楼什么问题，如果还有问题，请继续发帖提问。