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

查看全文

相关阅读:
sublime text 2安装Emment插件
 PHPExcel IE导出乱码问题
 还是PHPExcel问题
 一条SQL语句查询两表中两个字段
 PHPExcel导出插入图片和居中问题
 jqgrid demo
openstack horizon 学习(1) 总览
 Python学习笔记
 微软2016校园招聘在线笔试 [Recruitment]
动态树学习（留坑）

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