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

auto

原数据
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

回复 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[3])(\,)', '')
MsgBox(0, '替换结果', $Test)

auto

回复  auto

我只能这么写了，呵呵，等待其他人的代码...
lixiaolong 发表于 2011-4-15 16:19

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

大绯狼

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

lixiaolong

回复 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

不是吧

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

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

下周再试试看

auto

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