怎样输出用逗号分隔的数字？

manson

例如，数字为123456789，想输出为123,456,789，该怎么办？

happytc

你在那里输出呢？

manson

只是显示输出，例如msgbox里面。
找不到直接的方法，虽然可以编代码输出，但感觉输出带逗号的数字是一个常用的方式啊
autoit怎么会不支持呢？

happytc

回复 3# manson


    StringFormat（）

manson

回复 4# happytc


    已经看过这个函数的帮助了，没有我想要的东西

dddr

http://www.autoitx.com/forum.php?mod=viewthread&tid=14377

netegg

#Include <String.au3>
_StringAddThousandsSep

manson

谢谢楼上，这个确实可以。

#include <String.au3>
$nAmount = 89996.31
$sDelimted = _StringAddThousandsSep($nAmount)    ;输出89.996.31
MsgBox(64, 'Info', $sDelimted)

$nAmt = '38849230'
$sDelim = _StringAddThousandsSep($nAmt)   ;输出38,849,230
MsgBox(64, 'Info', $sDelim)

3mile

$number = "3456654557890.23"
MsgBox(0, 0, _Currency($number))

Func _Currency($n)
        Local $Link
        If StringInStr($n, ".") Then
                $temp = StringSplit($n, ".", 2)
                $n = $temp[0]
                While 1
                        If Not StringRegExp($n, '(\d+)(\d{3})', 0) Then ExitLoop
                        $n = StringRegExpReplace($n, '(\d+)(\d{3})', "$1,$2")
                WEnd
                $n = $n & "." & $temp[1]
        Else
                While 1
                        If Not StringRegExp($n, '(-?\d+)(\d{3})', 0) Then ExitLoop
                        $n = StringRegExpReplace($n, '(-?\d+)(\d{3})', "$1,$2")
                WEnd
        EndIf

        Return $n
EndFunc   ;==>_Currency

arkhe

3mile 发表于 2011-8-31 21:56

正解啊。。。
正则表达式，要去学习下了。

suiyefeng

标记学习一下...这功能会常用

netegg

回复 9# 3mile
三笑想没想过小数的事情,那个函数不行,不过觉得正则应该能搞定,算是引申下这个问题吧