论坛 › 『 提问交流 』 › [无意义]怎么实现对多行后3位数字重复的做连续记录

zzs162 发表于 2012-8-14 14:00:54

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

本帖最后由 zzs162 于 2012-9-8 09:24 编辑

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

afan 发表于 2012-8-14 18:21:48

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 发表于 2012-8-14 19:39:40

本帖最后由 zzs162 于 2012-8-14 19:48 编辑

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

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

魔导 发表于 2012-8-15 22:28:27

回复 3# zzs162


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

查看完整版本: [无意义]怎么实现对多行后3位数字重复的做连续记录