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
  • 相关阅读:
    关于 数据库中 读写 Blob 字段的正确做法。
    C# wave mp3 播放器探寻
    公布Delphi热键注册源码
    Windows 下 Eclipse 集成开发环境演绎
    VS2012 MSHA 文件制做程序
    Erlang 学习笔记 (二) Debugger工具的使用
    Excel里数字列号转换为字符标签列
    串或序列的rotate操作
    64K动画技术剖析:Mod音乐的制作和使用
    64K动画 技术剖析之:Metaball
  • 原文地址:https://www.cnblogs.com/pyblogs/p/3492252.html
Copyright © 2011-2022 走看看