如何判断一个数中连续相同的数

fanchenglu

如题，判断一个数中连续相同的数，如123334556，怎么能判断这个数中出现3个3，2个5.

谢谢各位
StringRegExp 不错 谢谢了  （我用了老版本没找到，呵呵，已经换新的了）
再继续问题
我是找出来之后用一个x2替换表示出现两次,或x3替换表示出现3次,或x4替换表示出现4次...
请再次帮忙

问题继续
实在对正则表达了解不透，请各位继续帮忙
1、找出一个数中连续相同的数，不找首位的，如1123334556，怎么能判断这个数中出现3个3，2个5。对首位出现的11不判断
2、找出来之后用一个x2替换表示出现两次,或x3替换表示出现3次,或x4替换表示出现4次...同时在x2之后跟上相同的那个字符，如1123334556这个数112x334x256，x33表示3个3，x25表示2个5

[ 本帖最后由 fanchenglu 于 2009-1-8 17:30 编辑 ]

liongodmien

指定字符：

stringreplace('123334556', '3', 0)
msgbox(0,0,'数字３有'&@extended&'个')

pcbar

$a='123334556'
$b=StringRegExp($a,'0{2,}|1{2,}|2{2,}|3{2,}|4{2,}|5{2,}|6{2,}|7{2,}|8{2,}|9{2,}',3)
for $i=0 to UBound($b)-1
MsgBox(0,0,$b[$i])
Next

fanchenglu

谢谢各位
StringRegExp 不错 谢谢了  （我用了老版本没找到，呵呵，已经换新的了）
再继续问题
我是找出来之后用一个x2替换表示出现两次,或x3替换表示出现3次,或x4替换表示出现4次...
请再次帮忙

bob

au3用的什么正则表达式，不支持子表达式和嵌入条件等
感觉有些缩水，用的不爽啊

superflq

原帖由 liongodmien 于 2009-1-7 09:03 发表
指定字符：

stringreplace('123334556', '3', 0)
msgbox(0,0,'数字３有'&@extended&'个')

又学了一招

pcbar

$a='123334556'
$b=StringRegExp($a,'0{2,}|1{2,}|2{2,}|3{2,}|4{2,}|5{2,}|6{2,}|7{2,}|8{2,}|9{2,}',3)
for $i=0 to UBound($b)-1
$a=StringReplace($a,$b[$i],'x'&stringlen($b[$i]))
Next
MsgBox(0,0,$a)

fanchenglu

verygood  
非常感谢  pcbar
代码非常有效

问题继续
实在对正则表达了解不透，请各位继续帮忙
1、找出一个数中连续相同的数，不找首位的，如1123334556，怎么能判断这个数中出现3个3，2个5。对首位出现的11不判断
2、找出来之后用一个x2替换表示出现两次,或x3替换表示出现3次,或x4替换表示出现4次...同时在x2之后跟上相同的那个字符，如1123334556这个数112x334x256，x33表示3个3，x25表示2个5

[ 本帖最后由 fanchenglu 于 2009-1-7 15:32 编辑 ]

pcbar

$a='1123334556'
$b=StringRegExp($a,'0{2,}|1{2,}|2{2,}|3{2,}|4{2,}|5{2,}|6{2,}|7{2,}|8{2,}|9{2,}',3)
for $i=0 to UBound($b)-1
if StringInStr($a,$b[$i])<>1 then $a=StringReplace($a,$b[$i],'x'&stringlen($b[$i])&StringLeft($b[$i],1))
Next
MsgBox(0,0,$a)

fanchenglu

ok  
非常感谢 pcbar