- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]正则表达式求解 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=175160)
-- 发布时间：2022/2/22 14:36:00
-- [求助]正则表达式求解
Dim s As String="K金项链1520.33元,钻石戒指吊坠33441.99元,四九旧料-25250元-72.14克"
Dim p As String = "(\\d+\\.?\\d*)"
Dim r As New System.Text.RegularExpressions.Regex(p)
Dim jg = System.Text.RegularExpressions.regex.replace(s,p,"=$1",RegexOptions.IgnoreCase)
Dim jg2 = jg.split(",")
For i As Integer = 0 To jg2.length-1
output.Show(jg2(i))
Next
结果是：
K金项链=1520.33元
钻石戒指吊坠=33441.99元
四九旧料-=25250元-=72.14克
1、如何做到才能得到：
K金项链=1520.33元
钻石戒指吊坠=33441.99元
四九旧料=-25250元=-72.14克
2、如果这个表达是 如此
Dim s As String="K金项链1520.33元,钻石戒指吊坠33441.99元四九旧料-25250元-72.14克"
又要怎么做达到以上的要求？
菜鸟求助！
[此贴子已经被作者于2022/2/22 14:53:45编辑过]
-- 发布时间：2022/2/22 16:05:00
--
-- 发布时间：2022/2/22 16:10:00
--
1、
Dim p As String = "(-\\d+\\.?\\d*)"
2、没有办法
-- 发布时间：2022/2/22 18:31:00
--
谢谢！