论坛 › 『 提问交流 』 › 如何用正则方法 将任意长度数字,间隔3位加个","?

superflq 发表于 2010-4-9 13:46:14

如何用正则方法 将任意长度数字,间隔3位加个","?

比如 123456,变成123,456
123不变,
1235900,变成1,235,900
12345678.90,变成12,345,678.90
刚学正则,以上的正则弄不来,高手请教!

superflq 发表于 2010-4-9 13:50:09

有高手在线么,在线等ING

afan 发表于 2010-4-9 13:51:19

这个以前弄过，得找找。记得可以不用正则

superflq 发表于 2010-4-9 14:16:39

:face (31):A大 加油

afan 发表于 2010-4-9 14:34:00

回复 4# superflq


    找到了，我再测试整理下，等下发到UDF区~

superflq 发表于 2010-4-9 14:39:37

是用正则的么

afan 发表于 2010-4-9 14:40:20

非正则

superflq 发表于 2010-4-9 14:49:02

那么复杂,需要变成UDF啊

jhun 发表于 2010-4-9 16:05:11

$a1=InputBox(0,"","")
Dim $text
If StringIsDigit ($a1)=1Then
        For $i =3 To StringLen ($a1) Step 3
                If $i-StringLen ($a1)=0 Then
                        $text=StringLeft($a1,3)&$text
                        ExitLoop
                EndIf
                $text=$text&","&StringMid ($a1,StringLen ($a1)-$i,3)
        Next
        MsgBox(0,"",StringLeft ($a1,Mod ( StringLen ($a1) , 3 ))&$text)
EndIf

afan 发表于 2010-4-9 16:09:44

$a1=InputBox(0,"","")
Dim $text
If StringIsDigit ($a1)=1Then
        For $i =3 To StringLen ($a1) Step ...
jhun 发表于 2010-4-9 16:05 http://www.autoitx.com/images/common/back.gif


    有些问题，你再测试下，比如输入1234，得到1,123

afan 发表于 2010-4-9 16:10:30

是用正则的么
superflq 发表于 2010-4-9 14:39 http://www.autoitx.com/images/common/back.gif


    正在按你的要求改用正则……

jhun 发表于 2010-4-9 16:12:02

有些问题，你再测试下，比如输入1234，得到1,123
afan 发表于 2010-4-9 16:09 http://www.autoitx.com/images/common/back.gif


    不好意思，自己测试全是输1的，所以……我再检查下

jhun 发表于 2010-4-9 16:37:47

$a1=InputBox(0,"","")
Dim $text
If StringIsDigit ($a1)=1Then
        For $i =3 To StringLen ($a1) Step 3
                If $i-StringLen ($a1)=0 Then
                        $text=StringLeft($a1,3)&$text
                        ExitLoop
                EndIf
                $text=","&StringMid ($a1,StringLen ($a1)-$i+1,3)&","&$text
        Next
        If StringRight ( $text, 1 )="," Then $text=StringTrimRight ( $text, 1 )
        MsgBox(0,"",StringReplace (StringLeft ($a1,Mod ( StringLen ($a1) , 3 ))&$text,",,",","))
EndIf
               
应该能用了，写得很恶心，不想改了，身体不舒服

superflq 发表于 2010-4-9 16:41:58

$a1=InputBox(0,"","")
Dim $text
If StringIsDigit ($a1)=1Then
        For $i =3 To StringLen ($a1) Step ...
jhun 发表于 2010-4-9 16:37 http://www.autoitx.com/images/common/back.gif

辛苦了,可是要是123456.12就直接出错
只要带"."+数字就会出错

jhun 发表于 2010-4-9 16:46:23

不是出错，是我一开始就没打算有小数点，所以加了句If StringIsDigit ($a1)=1Then
有小数点直接不执行，不过就算去掉这句也不行，要重写，我再加上吧

查看完整版本: 如何用正则方法 将任意长度数字,间隔3位加个","?