Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] 阿拉伯数字转汉字小写格式


  共有2842人关注过本帖树形打印复制链接

主题：[求助] 阿拉伯数字转汉字小写格式
帅哥哟，离线，有人找我吗？
lsy
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00 		[求助] 阿拉伯数字转汉字小写格式  发帖心情 Post By：2015/10/28 13:55:00 [只看该作者]

MessageBox.Show(CUNum(123)) ：壹贰叁
MessageBox.Show(CUNumBer(123))：壹佰贰拾叁
MessageBox.Show(CLNum(123))：一二三

没有对应的CLNumber，要将123转成一百二十三，用什么函数呢？
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/10/28 14:07:00 [只看该作者]

直接替换，如

 

MessageBox.Show(CUNumBer(123).replace("壹", "一").replace("佰", "百").replace("贰","二"))
 回到顶部
帅哥哟，离线，有人找我吗？
lsy
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00 		  发帖心情 Post By：2015/10/28 14:10:00 [只看该作者]

以下是引用大红袍在2015/10/28 14:07:00的发言：

直接替换，如

 

MessageBox.Show(CUNumBer(123).replace("壹", "一").replace("佰", "百").replace("贰","二"))



谢谢！

也是个变通的法子。
 回到顶部
帅哥哟，离线，有人找我吗？
lsy
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00 		  发帖心情 Post By：2015/10/28 15:04:00 [只看该作者]

Dim t As Table = CurrentTable
Dim result As String

For i As Integer = 0 To t.Rows.Count - 1
    Dim str1 As String = "壹贰叁肆伍陆柒捌玖仟佰拾零"
    Dim str2 As String = "一二三四五六七八九千百十〇"
    result = CUNumBer(i + 1)
    For j As Integer = 0 To str1.Length - 1
        result = result.Replace(str1(j), str2(j))
    Next
    If i + 1 < 20 AndAlso result.StartsWith("一十") Then
        result = result.SubString(1)
    End If
    t.Rows(i)("列名") = "第" & result & "列"    
Next
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03125 秒, 4 次数据查询