【已解决】有啥正则能最快的替换里面的大写为阿拉伯数字吗？

862228699

这是一个摩托车仪表生产厂，数据从软件导出来的。
[img][/img]
里面的数量全是大写。想把大写变成阿拉伯数字。

谢谢大神指教。。。。

haijie1223

坐等大神

862228699

回复 2# haijie1223


    各自开你的车去。。。。

yamakawa

俺的code用了 0.57秒。。。。。。坐等高人

afan

Local $str = FileRead('大写转阿拉伯数字.txt')
Local $aNum[10][2] = [[0], [1, '壹'], [2, '贰'], [3, '叁'], [4, '肆'], [5, '伍'], [6, '陆'], [7, '柒'], [8, '捌'], [9, '玖']]
For $ii = 1 To 9
        $str = StringRegExpReplace($str, $aNum[$ii][1] & '拾(?= 个)', $aNum[$ii][0] & '0')
        $str = StringRegExpReplace($str, $aNum[$ii][1] & '拾(?=\S 个)', $aNum[$ii][0])
        $str = StringRegExpReplace($str, $aNum[$ii][1] & '(?= 个)', $aNum[$ii][0])
Next
FileWrite('大写转阿拉伯数字_1.txt', $str)

yamakawa

 Local $dbfile = @ScriptDir & "\data.txt"
 Local $str = FileRead($dbfile)
 Local $Hi[10] = ["壹","贰","叁","肆","伍","陆","柒","捌","玖","拾"]
 Local $Lo[10] = [1,2,3,4,5,6,7,8,9,0]

 Local $time =TimerInit()
 For $i = 0 To 9
         $str = StringRegExpReplace($str,$Hi[9] & $hi[$i],$Lo[$i])
         $str = StringRegExpReplace($str,$Hi[$i],$Lo[$i])
 Next
 Local $timediff = TimerDiff($time)/1000
 
FileWrite('out.txt', $str)

MsgBox(0,"用时；" & $timediff & "秒",$str)

俺是这样弄的，先收拾 拾X。变成x
然后汉字转阿拉伯数字

862228699

回复 5# afan
感谢Afan这方法确定方便了很多啊。