zoukankan html css js c++ java

将中文数字转换层阿拉伯数字

 1     Private Sub ChangeChineseNumberToArabicNumber()
 2             Dim TempSubName As String = ""
 3             TempSubName = "第三分公司"
 4             'TempSubName = "第十分公司"
 5             'TempSubName = "第十三分公司"
 6             'TempSubName = "第五十分公司"
 7             'TempSubName = "第二十五分公司"
 8             'TempSubName = "第五百分公司"
 9             'TempSubName = "第七百零六分公司"
10             'TempSubName = "第六百一十分公司"
11             'TempSubName = "第八百八十八分公司"
12 
13             TempSubName = Replace(TempSubName, "零", "0")
14             TempSubName = Replace(TempSubName, "一", "1")
15             TempSubName = Replace(TempSubName, "二", "2")
16             TempSubName = Replace(TempSubName, "三", "3")
17             TempSubName = Replace(TempSubName, "四", "4")
18             TempSubName = Replace(TempSubName, "五", "5")
19             TempSubName = Replace(TempSubName, "六", "6")
20             TempSubName = Replace(TempSubName, "七", "7")
21             TempSubName = Replace(TempSubName, "八", "8")
22             TempSubName = Replace(TempSubName, "九", "9")
23             TempSubName = Replace(TempSubName, "十", "T")
24             TempSubName = Replace(TempSubName, "百", "H")
25 
26             '处理"十"位
27             If System.Text.RegularExpressions.Regex.IsMatch(TempSubName, "dTd") Then
28                 TempSubName = Replace(TempSubName, "T", "")
29             ElseIf System.Text.RegularExpressions.Regex.IsMatch(TempSubName, "Td") Then
30                 TempSubName = Replace(TempSubName, "T", "1")
31             ElseIf System.Text.RegularExpressions.Regex.IsMatch(TempSubName, "dT") Then
32                 TempSubName = Replace(TempSubName, "T", "0")
33             Else
34                 TempSubName = Replace(TempSubName, "T", "10")
35             End If
36 
37             '处理"百"位
38             If System.Text.RegularExpressions.Regex.IsMatch(TempSubName, "dHd") Then
39                 TempSubName = Replace(TempSubName, "H", "")
40             ElseIf System.Text.RegularExpressions.Regex.IsMatch(TempSubName, "Hd") Then
41                 TempSubName = Replace(TempSubName, "H", "1")
42             ElseIf System.Text.RegularExpressions.Regex.IsMatch(TempSubName, "dH") Then
43                 TempSubName = Replace(TempSubName, "H", "00")
44             Else
45                 TempSubName = Replace(TempSubName, "H", "100")
46             End If
47 
48             Response.Write(TempSubName)
49     End Sub

查看全文

相关阅读:
关于数据库中读写 Blob 字段的正确做法。
C# wave mp3 播放器探寻
 公布Delphi热键注册源码
 Windows 下 Eclipse 集成开发环境演绎
 VS2012 MSHA　文件制做程序
 Erlang 学习笔记（二） Debugger工具的使用
 Excel里数字列号转换为字符标签列
 串或序列的rotate操作
 64K动画技术剖析：Mod音乐的制作和使用
 64K动画技术剖析之：Metaball

原文地址：https://www.cnblogs.com/pyblogs/p/3492252.html