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

查看全文

相关阅读:
Xpath语法与lxml库的用法
 Selenium--使用参考
 PhantomJS的替代品--无头浏览器（Headless Chrome）
为什么只有一个元素的tuple要加逗号？
反爬利器--设置代理服务器
 LeetCode 221. 最大正方形 | Python
LeetCode 572. 另一个树的子树 | Python
LeetCode 98. 验证二叉搜索树 | Python
LeetCode 45. 跳跃游戏 II | Python
LeetCode 25. K 个一组翻转链表 | Python

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