将文字中出现的中文大写数字转为阿拉伯数字

leolee95

文本如下：文中可能包含大写数字，真实情况文本内容比下面长得多，
轼是十伐啦勒加基森五十八虹茜开来苯荆苯苯九十三苯勤力卡莉法一百基本面轼是三百五十二伐啦勒加六百七基森虹茜开来苯荆俩千苯苯苯勤力

将红色大写数字提出来转化成数字后原文输出，得到新的文本如下：
轼是10伐啦勒加基森58虹茜开来苯荆苯苯93苯勤力卡莉法100基本面轼是352伐啦勒加670基森虹茜开来苯荆2000苯苯苯勤力

要求：能转化10000以内的数字，最多只会有一万，能转化一到一万之间的大写数字就行
最好能将一，二,两，俩，三，四,五,六,七,八,九,十，壹贰叁肆伍陆柒捌玖，拾,百，佰,仟，千,萬，万表示的数字写法都能提取出来转换成数字

求各位大大帮忙谢谢

micch

太难了，函数怕是干不了这活

leolee95

想到用正则匹配出来，再转换数字，但找中文大写的正则表达式怎么写
有没有高手指点下，用[一二三四五六七八九][十百千万] 这个只能提整十整百整千的数啊，像十一，二十五等等这样的怎么写正则表达式

zzj198237

for i=1 to 20  'arr(i，1) 装入 （一，二,两，俩，三，四,五,六,七,八,九,十，壹贰叁肆伍陆柒捌玖，拾,百，佰,仟，千,萬，万 和对于的 阿拉伯数字）
‘arr(i，2) 装（12312132）
for j to len(s)
if arr(i,1) =mid(s,j,1) then
s=Replace( S, arr(i,2) ,mid(s,j,1) )
end
next
next
最简单的办法

tspliu

leolee95 发表于 2020-2-28 14:37
想到用正则匹配出来，再转换数字，但找中文大写的正则表达式怎么写
有没有高手指点下，用[一二三四五六七 ...

分四步:
1、先把[0-9]转换，十百千先不转。
2、对“十”进行判断如果“十”前面不是[0-9]转为1，后面不是[0-9]转为0，前后都不是[0-9]转为10，前后全是[0-9]直接删掉。
3、转完十后再转“百”，后面不是[0-9]转为00，前后全是[0-9]直接删掉。
4、转完百后再转“千”，后面不是[0-9]转为000，后面是0的判断后面\d+的长度，删掉千然后根据长度补0。后面[1-9]的直接删掉“千”。

leolee95

给写个函数代码哈，多谢了

leolee95

zzj198237 发表于 2020-2-28 14:43
for i=1 to 20  'arr(i，1) 装入 （一，二,两，俩，三，四,五,六,七,八,九,十，壹贰叁肆伍陆柒捌玖，[/back ...

问题是，首先要找到文中的大写数字啊，怎么匹配找到
第二步才是转换

zzj198237

leolee95 发表于 2020-2-28 16:23
问题是，首先要找到文中的大写数字啊，怎么匹配找到
第二步才是转换

arr(i,1) =mid(s,j,1