扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
Dim 测试文本 = "td class=''68/tdtd class=''65/tdtd class=''169/td"
成都创新互联公司长期为上千家客户提供的网站建设服务，团队从业经验10年，关注不同地域、不同群体，并针对不同对象提供差异化的产品和服务；打造开放共赢平台，与合作伙伴共同营造健康的互联网生态环境。为太湖企业提供专业的成都网站制作、成都网站建设、外贸营销网站建设，太湖网站改版等技术服务。拥有十载丰富建站经验和众多成功案例,为您定制开发。
Dim 匹配集合 = (New Regex("(?is)(?=)[^]+(?=)")).Matches(测试文本)
Dim 结果列表 As New List（Of Decimal）
For Each 匹配 As Match In 匹配集合
If IsNumeric(匹配.Value) Then 结果列表.Add(CDec(匹配.Value))
Next
软糖来回答吧， 已测试可用。
如满意请采纳，谢谢。
你把替换所有非数字为空字符串,改为替换所有非数字为空格,就可以把每组数字分开了.
完整的程序如下(改动的地方见注释)
Dim bbb As String
bbb = TextBox1.Text
Dim My_str As String = Regex.Replace(bbb, "[^0-9]", " ") '这里把替换所有非数字为空字符串,改为替换所有非数字为空格
MsgBox(My_str)
源代码如下：（代码写在按钮点击事件里）
Label1.Text = ""
Label2.Text = ""
Dim a As String = TextBox1.Text
Dim b As String = TextBox2.Text
For x = 1 To a.Length
Dim txt As String = Mid(a, x, 1)
If txt Like "#" Then
Label1.Text = Label1.Text txt
End If
Next
For x = 1 To b.Length
Dim txt As String = Mid(b, x, 1)
If txt Like "#" Then
Label2.Text = Label2.Text txt
End If
Next
此方法用的是mid 将一个字符串拆分成单个字符，然后用like运算符进行对比是否为数字，关于这两个函数的用法如果不懂的可以自己搜索下，此外还有别的方法，这里就不多说了
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
微信二维码
移动版官网