中文提取助记码
来源:互联网 发布:c语言和c#的区别 编辑:程序博客网 时间:2024/06/06 12:44
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim ss As String
ss = Me.TextBox3.Text.Trim
Dim str As String
For Each s As Char In ss
str = str & GetZJM(s)
Next
Me.TextBox4.Text = str
End Sub
Private Function GetZJM(ByVal str As String) As String
If (str.CompareTo("吖") < 0) Then Return str
If (str.CompareTo("八") < 0) Then Return "A"
If (str.CompareTo("嚓") < 0) Then Return "B"
If (str.CompareTo("咑") < 0) Then Return "C"
If (str.CompareTo("妸") < 0) Then Return "D"
If (str.CompareTo("发") < 0) Then Return "E"
If (str.CompareTo("旮") < 0) Then Return "F"
If (str.CompareTo("铪") < 0) Then Return "G"
If (str.CompareTo("讥") < 0) Then Return "H"
If (str.CompareTo("咔") < 0) Then Return "J"
If (str.CompareTo("垃") < 0) Then Return "K"
If (str.CompareTo("嘸") < 0) Then Return "L"
If (str.CompareTo("拏") < 0) Then Return "M"
If (str.CompareTo("噢") < 0) Then Return "N"
If (str.CompareTo("妑") < 0) Then Return "O"
If (str.CompareTo("七") < 0) Then Return "P"
If (str.CompareTo("亽") < 0) Then Return "Q"
If (str.CompareTo("仨") < 0) Then Return "R"
If (str.CompareTo("他") < 0) Then Return "S"
If (str.CompareTo("哇") < 0) Then Return "T"
If (str.CompareTo("夕") < 0) Then Return "W"
If (str.CompareTo("丫") < 0) Then Return "X"
If (str.CompareTo("帀") < 0) Then Return "Y"
If (str.CompareTo("咗") < 0) Then Return "Z"
Return str
End Function
- 中文提取助记码
- 提取中文
- 提取数字,英文,中文
- c# 提取中文字符
- 提取中文词组
- python 中文词频提取
- 提取中文字符串
- 字符串中文提取
- [SQL Server] 提取数字、提取英文、提取中文
- xpdf提取中文PDF文档
- 提取中文字段的 缩写
- excel中提取中文拼音
- 提取字符串中的【中文字符】
- PostgreSQL提取中文拼音函数
- 中英文混合字符串 提取中文
- java提取字符串中的中文
- python提取文本中的中文
- Jmeter正则表达式提取器,只提取中文问题
- 存储过程从入门到熟练(c#篇)
- grep sed awk实现批量文件改名
- netfilter
- 在数学的海洋中飘荡
- Fedora 10的YUM源设置
- 中文提取助记码
- XML 实体
- oracle 递归查询
- IN和EXISTS的处理流程
- 一个超长SQL语句的规范书写格式范例.
- Ext 更换页面皮肤。
- 考研vs就业
- Oracle to_char格式化函数
- 如何将QString转换为char *或者相反