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
  • 相关阅读:
    Java equals和==的理解
    String StringBuffer StringBuilder 之间的区别
    HTTP 协议的基本知识,包括请求流程、请求方法等
    原生 XMLHttpRequest
    Java WebSocket实现简易聊天室
    Java Timer和TimerTask
    培训日报3.14(mysql,guava,穿山甲等)
    android手机卫士、3D指南针、动画精选、仿bilibli客户端、身份证银行卡识别等源码
    洛谷 P3177 [HAOI2015]树上染色
    洛谷 P2680 运输计划(NOIP2015提高组)(BZOJ4326)
  • 原文地址:https://www.cnblogs.com/pyblogs/p/3492252.html
Copyright © 2011-2022 走看看