论坛 › 已解决问题区 › [已解决]请教一个正则表达式

auto 发表于 2011-4-15 15:56:54

[已解决]请教一个正则表达式

本帖最后由 auto 于 2011-4-18 10:51 编辑

原数据
dfjskfjskfjskfdj,sdsfsd.dd
123,456.78
测试数据,456.78
01,234,567
HEHE


结果：
1行和3行5行不变
2行和4行

dfjskfjskfjskfdj,sdsfsd.dd
123456.78
测试数据,456.78
01234567
HEHE

不好意思，修改了原数据和结果

lixiaolong 发表于 2011-4-15 16:19:15

回复 1# auto

我只能这么写了，呵呵，等待其他人的代码...
Local $Str = _
                'dfjskfjskfjskfdj,sdsfsd.dd' & @CRLF & _
                '123,456.78' & @CRLF & _
                '测试数据,456.78' & @CRLF & _
                '123,45' & @CRLF & _
                'HEHE' & @CRLF
MsgBox(0, '原字符串', $Str)
Local $Test = StringRegExpReplace($str, '(?<=\d)(\,)', '')
MsgBox(0, '替换结果', $Test)

auto 发表于 2011-4-15 16:23:38

回复auto

我只能这么写了，呵呵，等待其他人的代码...
lixiaolong 发表于 2011-4-15 16:19 http://www.autoitx.com/images/common/back.gif

嗯。。挺好的
不过我漏其它可能，改了第四行数据了

大绯狼 发表于 2011-4-15 16:25:29

StringRegExpReplace($str, '(?<=\d)\,(?=\d{3})', '')

lixiaolong 发表于 2011-4-15 16:34:29

回复 3# auto

呵呵，这样的话可以这么写.
Local $Str = _
                'dfjskfjskfjskfdj,sdsfsd.dd' & @CRLF & _
                '123,456.78' & @CRLF & _
                '测试数据,456.78' & @CRLF & _
                '01,234,567' & @CRLF & _
                'HEHE'
MsgBox(0, '原字符串', $Str)
Local $Test = StringRegExpReplace($str, '(?<=\d)(\,)', '')
MsgBox(0, '替换结果', $Test)

love5173 发表于 2011-4-15 17:00:13

本帖最后由 love5173 于 2011-4-15 17:16 编辑

不是吧Local $Str = _
                'dfjskfjskfjskfdj,sdsfsd.dd' & @CRLF & _
                '123,456.78' & @CRLF & _
                '测试数据,456.78' & @CRLF & _
                '01,234,567' & @CRLF & _
                'HEHE'
MsgBox(0, '原字符串', $Str)
Local $Test = StringRegExpReplace($str, '(?<=\d),', '')
MsgBox(0, '替换结果', $Test)不就行了
改的李小龙的

love5173 发表于 2011-4-15 17:20:33

Local $Str = _
                'dfjskfjskfjskfdj,sdsfsd.dd' & @CRLF & _
                '123,456.78' & @CRLF & _
                '测试数据,456.78' & @CRLF & _
                '01,234,567' & @CRLF & _
                'HEHE'
MsgBox(0, '原字符串', $Str)
Local $Test = StringRegExpReplace($str, '(\d),(\d)', '\1\2')
MsgBox(0, '替换结果', $Test)我的

auto 发表于 2011-4-15 17:43:35

下周再试试看

auto 发表于 2011-4-18 10:51:10

经测试可以实现要求，
多谢几位的帮助！

查看完整版本: [已解决]请教一个正则表达式