主题：请教如何用vf将中文数据转换成阿拉伯数字
gt54lcy
[专家分：0] 发布于 2010-06-30 11:59:00
RT
例如:
"大河镇铺垭庙村十一社"转换为"大河镇铺垭庙村11社"
"大河镇铺垭庙村二十五社"转换为"大河镇铺垭庙村25社"
等等....
回复列表 （共8个回复）
沙发
豆角大烩菜 [专家分：0] 发布于 2010-07-12 15:22:00
[求助]excel转换成vf hits：17
板凳
狐说八道 [专家分：860] 发布于 2010-07-16 08:20:00
CLEAR
aa= '大河镇铺垭庙村一百二十五社'
? chinatonumber(aa)
aa= '大河镇铺垭庙村二十五社'
? chinatonumber(aa)
aa= '大河镇铺垭庙村十一社'
? chinatonumber(aa)
aa= '大河镇铺垭庙村十社'
? chinatonumber(aa)
FUNCTION chinatonumber(china)
chinas = '一二三四五六七八九十百'
numbers = '123456789'
numberstr = CHRTRANC(china, CHRTRANC(china, chinas, ''), '')
IF LEFT(numberstr, 2 ) = '十' THEN
IF LEN(numberstr)=2 THEN
resault = CHRTRANC(STRTRAN(china, '十', '一十'), chinas, STRCONV(numbers+'0', 1))
ELSE
resault = CHRTRANC(china, chinas, STRCONV(numbers+'1', 1))
ENDIF
ELSE
resault = CHRTRANC(china, chinas, STRCONV(numbers, 1))
ENDIF
RETURN STRCONV(resault, 2)
ENDFUNC
3 楼
wengjl [专家分：0] 发布于 2010-07-25 16:56:00
中文数位置任意，就出错
4 楼
妙计山人 [专家分：130] 发布于 2010-07-25 17:55:00
凡事不可照搬，得具体问题具体对待。2楼提供的函数倒是帮了本人一个大忙，顺向2楼深表谢意！
5 楼
狐说八道 [专家分：860] 发布于 2010-07-26 12:38:00
[em10]
3楼：如何分段不用教的吧？
6 楼
esailor [专家分：2650] 发布于 2010-07-29 11:31:00
假设：
百色镇十里堡村八里庄第六村民组
7 楼
狐说八道 [专家分：860] 发布于 2010-07-29 17:27:00
百色镇十里堡村八里庄第六村民组
——前面都是地名，最后的可变换成6
之前，如何拆截或拼装字符串那是你的事——需要规则来约束
8 楼
moke9 [专家分：30] 发布于 2010-09-02 09:43:00
你好.我是全职网赚工作者.
如果你有时间有电脑.
想在网络上创业.请联系我..
项目绝对真实.详情QQ空间资料
加盟请联系 QQ908889846
我来回复
您所在位置：社区首页 — Visual Foxpro讨论区 — 请教如何用vf将中文数据转换成阿拉伯数字