[无意义]怎么实现对多行后3位数字重复的做连续记录

zzs162

比如有以下文本，懂的请教。谢谢
342334
123455
323808
932990
123456
342324
--
那就以下是连续符合的。
342334
123455
323808
932990
那就提示连着4次。

afan

Local $Str = _
                '342334' & @CRLF & _
                '123455' & @CRLF & _
                '323808' & @CRLF & _
                '123456' & @CRLF & _
                '932990' & @CRLF & _
                '342324' & @CRLF
MsgBox(0, '原字符串', $Str)
Local $Test = StringRegExpReplace($str, '\V+?(\d)((?!\1).)((?!\1|\2).)(?:\r\n|$)', '')
MsgBox(0, '替换结果', $Test)

zzs162

太感谢了版主。。。
--
不过您代码 不是对连着的操作的。
连着的才算是。

-只有3个连着的。
                '342334' & @CRLF & _
                '123455' & @CRLF & _
                '323808' & @CRLF & _

魔导

回复 3# zzs162


    楼主    “连着”  是什么意思呢？