以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  将阿拉伯数字转换为小写中文格式  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=11933)

--  作者:雨中的泪
--  发布时间:2011/8/17 12:24:00
--  将阿拉伯数字转换为小写中文格式

将阿拉伯数字转换为小写中文格式,如何实现。

谢谢


--  作者:狐狸爸爸
--  发布时间:2011/8/17 12:28:00
--  

没有小写中文格式,只有大些中文格式。

我想有有了大写,想转为小写,应该难不倒你。


--  作者:雨中的泪
--  发布时间:2011/8/17 12:31:00
--  

1  一

2  二

.

.

.

22 二十二


--  作者:雨中的泪
--  发布时间:2011/8/17 12:32:00
--  
如何实现?谢谢
--  作者:狐狸爸爸
--  发布时间:2011/8/17 14:23:00
--  
不过就是把壹替换为一,把贰替换为二而已
--  作者:雨中的泪
--  发布时间:2011/8/17 15:38:00
--  
还要判断位数
--  作者:狐狸爸爸
--  发布时间:2011/8/17 15:47:00
--  
Dim s1 As String = "一二三四五六七八九十百千万"
Dim s2 As String = "壹贰叁肆伍陆柒捌玖拾佰仟万"
Dim s3 As String = CUNumber(123456)
For i As Integer =0 To s1.Length - 1
   s3 = s3.replace(s2(i),s1(i))
Next
output.show(s3)
[此贴子已经被作者于2011-8-17 15:47:46编辑过]

--  作者:ddh5856
--  发布时间:2018/1/24 15:42:00
--  

CLNum

将阿拉伯数字转换为中文小写格式,只能处理整数。

语法

CLNum(Value)

Value:要转换的阿拉伯数字。

例如:

Output.Show(CLNum(123))

输出为:一二三