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