请教下

qysir

能否把数字转成汉字？比如1转换成一，2转换成二

顽固不化

1# qysir

$hz="一二三四五六七八九零"
$alb="1234567890"
$in=InputBox("输入","请输入数字串（0-9）")
if $in<>1 Then
        $new=""
        for $i=1 To StringLen($in)
                $new=$new&_chang(StringMid($in,$i,1))
        Next
        MsgBox(0,0,$new)
EndIf
                
Func _chang($num)
        $N=StringInStr($alb,$num)
        Return StringMid($hz,$N,1)
EndFunc

xrbenbeba

晕 这么写的话 有新的需求也太不方便了把

还有 楼主的问题够水准

小弟佩服

sensel

汗~~~突然发现自己发过这样的不知所云帖子。。。
对不住大家啊，前天喝高了。。。

lxz

$hz="一二三四五六七八九零"
$alb="1234567890"
$in=InputBox("输入","请输入数字串（0-9）")
If $in <> "" Then
        $new=""
        for $i=1 To StringLen($in)
                $new=$new&_chang(StringMid($in,$i,1))
        Next
        MsgBox(0,"转换结果:",$new)
EndIf
                
Func _chang($num)
        $N=StringInStr($alb,$num)
        Return StringMid($hz,$N,1)
EndFunc

c9992

我會使用tr這個指令耶比較方便
我夾上來給你使用吧
tr '123' '一二三' filename > filename2
不曉得有沒有幫到你

pcbar

MsgBox(0,'45539551转换结果为：',n2s('45539551'))

Func n2s($x)
Local $hz[10]=['零','一','二','三','四','五','六','七','八','九']
Local $rt=''
        if StringIsDigit ($x) Then
                for $i=1 to StringLen($x)
                        $rt&=$hz[StringMid($x,$i,1)]
                Next
                Return $rt
        Else
                Return ""
        EndIf
EndFunc