从品牌网站建设到网络营销策划,从策略到执行的一站式服务
你把替换所有非数字为空字符串,改为替换所有非数字为空格,就可以把每组数字分开了.
创新互联的客户来自各行各业,为了共同目标,我们在工作上密切配合,从创业型小企业到企事业单位,感谢他们对我们的要求,感谢他们从不同领域给我们带来的挑战,让我们激情的团队有机会用头脑与智慧不断的给客户带来惊喜。专业领域包括网站设计、成都网站建设、电商网站开发、微信营销、系统平台开发。
完整的程序如下(改动的地方见注释)
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运算符进行对比是否为数字,关于这两个函数的用法如果不懂的可以自己搜索下,此外还有别的方法,这里就不多说了
Dim 测试文本 = "td class=''68/tdtd class=''65/tdtd class=''169/td"
Dim 匹配集合 = (New Regex("(?is)(?=)[^]+(?=)")).Matches(测试文本)
Dim 结果列表 As New List(Of Decimal)
For Each 匹配 As Match In 匹配集合
If IsNumeric(匹配.Value) Then 结果列表.Add(CDec(匹配.Value))
Next
软糖来回答吧, 已测试可用。
如满意请采纳,谢谢。
成都网站建设公司地址:成都市青羊区太升南路288号锦天国际A座10层 建设咨询028-86922220
成都快上网科技有限公司-四川网站建设设计公司 | 蜀ICP备19037934号 Copyright 2020,ALL Rights Reserved cdkjz.cn | 成都网站建设 | © Copyright 2020版权所有.
专家团队为您提供成都网站建设,成都网站设计,成都品牌网站设计,成都营销型网站制作等服务,成都建网站就找快上网! | 成都网站建设哪家好? | 网站建设地图