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

查看全文

相关阅读:
react.js 你应知道的9件事
 table的border-collapse属性与border-spacing属性
 深入理解 CSS变形 transform(3d)
$ 的绑定事件
 保留两位小数
 数据库日期格式化
 javaScript对两个数组进行去重
 js中的原型链__proto__其实超简单！！
JSON.parse()和JSON.stringify()应用理解
 Java Web 重归

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