阿拉伯数字与中文转换

最新推荐文章于 2024-03-27 09:45:36 发布

zhaozhao110

最新推荐文章于 2024-03-27 09:45:36 发布

阅读量350

点赞数 1

分类专栏： lua

lua 专栏收录该内容

1 篇文章 0 订阅

订阅专栏

function chs2num(s)----------------数字转换
local cur = 0
local yi = 0
local sgl = 0
local len = string.len(s)
local tt = {}
tt["零"] = function() end
tt["一"] = function() sgl = 1 end
tt["二"] = function() sgl = 2 end
tt["三"] = function() sgl = 3 end
tt["四"] = function() sgl = 4 end
tt["五"] = function() sgl = 5 end
tt["六"] = function() sgl = 6 end
tt["七"] = function() sgl = 7 end
tt['八'] = function() sgl = 8 end
tt["九"] = function() sgl = 9 end
tt["十"] = function()
   if sgl == 0 then sgl = 1 end
   cur = cur + sgl * 10
   sgl = 0
end
tt["百"] = function()
   cur = cur + sgl * 100
   sgl = 0
end
tt["千"] = function()
   cur = cur + sgl * 1000
   sgl = 0
end
tt["万"] = function()
   cur = (cur +sgl) * 10000
   sgl = 0
end
tt["亿"] = function()
   yi = (cur + sgl) * 100000000
   cur = 0
   sgl = 0
end
for i = 1,len,2 do
   k = string.sub(s,i,i+1)
   tt[k]()
end
num = yi + cur +sgl
---- print(num)
return num
end

function chinese_to_number(str)
if (#str % 2) == 1 then
str = string.sub(str,1,#str-1);
end
result=0
wan=1
unit=1
for i=#str -2 ,0,-2 do
char=string.sub(str,i+1,i+2)
if (char=="十") then
unit=10*wan
if (i==0) then
result=result+unit
elseif _nums[string.sub(str,i-1,i)]==nil then
result=result+unit
end
elseif (char=="甲" and string.sub(str,i+3,i+4)=="子") then
unit=60*wan
wan=60
elseif (char=="百") then
unit=100*wan
elseif (char=="千") then
unit=1000*wan
elseif (char=="万") then
unit=10000*wan
wan=10000
else
if _nums[char]~=nil then
result=result+_nums[char]*unit
end
end
end
return result
end