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

查看全文

相关阅读:
Zend Studio使用
 iOS中block实现的探究
 用python演示一个简单的AST(抽象语法树)
Cocos2D-x权威指南: CCNode类方法：
ListView的优化
 可变參数
 android媒体--stagefright概述【一】
flume安装及配置
 linux包之sysstat之mpstat与pidstat命令
 Java实现第十届蓝桥杯等差数列

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