获取汉字的拼音首字母
来源:互联网 发布:海康高清网络摄像机 编辑:程序博客网 时间:2024/04/19 13:20
Private Function GetPY(strHZ As String) As String '获得单个汉字拼音的首字符
strHZ = Hex(Asc(strHZ)) '将汉字转换为其内码的十六进制字符串
Select Case strHZ
Case "B0A1" To "B0C4"
GetPY = "a"
Case "B0C5" To "B2C0"
GetPY = "b"
Case "B2C1" To "B4ED"
GetPY = "c"
Case "B4EE" To "B6E9"
GetPY = "d"
Case "B6EA" To "B7A1"
GetPY = "e"
Case "B7A2" To "B8C0"
GetPY = "f"
Case "B8C1" To "B9FD"
GetPY = "g"
Case "B9FE" To "BBF6"
GetPY = "h"
Case "BBF7" To "BFA5"
GetPY = "j"
Case "BFA6" To "C0AB"
GetPY = "k"
Case "C0AC" To "C2E7"
GetPY = "l"
Case "C2E8" To "C4C2"
GetPY = "m"
Case "C4C3" To "C5B5"
GetPY = "n"
Case "C5B6" To "C5BD"
GetPY = "o"
Case "C5BE" To "C6D9"
GetPY = "p"
Case "C6DA" To "C8BA"
GetPY = "q"
Case "C8BB" To "C8F5"
GetPY = "r"
Case "C8F6" To "CBF9"
GetPY = "s"
Case "CBFA" To "CDD9"
GetPY = "t"
Case "CDDA" To "CEF3"
GetPY = "w"
Case "CEF4" To "D188"
GetPY = "x"
Case "D189" To "D4D0"
GetPY = "y"
Case "D4D1" To "D7F9"
GetPY = "z"
Case Else
GetPY = " "
End Select
End Function
Public Function GetCode(strZF) As String '将汉字字符串转换为其拼音的首字符串
If strZF = "" Then Exit Function
Dim I As Integer, S As String
For I = 1 To Len(strZF)
S = Mid(strZF, I, 1)
GetCode = GetCode & UCase(GetPY(S))
Next I
End Function
- 获取汉字的拼音首字母
- 获取汉字的拼音首字母
- 获取汉字的拼音首字母
- 获取汉字的拼音首字母
- 获取汉字的拼音首字母
- 获取汉字的拼音首字母
- 获取汉字的首字母拼音
- 获取汉字拼音首字母
- 获取汉字拼音首字母
- 获取汉字拼音首字母
- 获取汉字拼音首字母
- 获取汉字拼音首字母
- 获取汉字拼音首字母
- 获取汉字拼音首字母
- 获取汉字拼音首字母的SQL函数
- 关于获取一组汉字的拼音首字母
- JavaScrip获取汉字拼音的首字母
- java 获取汉字拼音的首字母
- 98、2000和XP系统自定义打印纸张的VB代码
- 大阪第29天——日本的加班文化
- 通过自定义打印纸张的大小,实现打印到哪里纸张就停止在哪里
- sniffer原理
- 连接
- 获取汉字的拼音首字母
- 数据结构基础
- apache的Virtualhost要注意的小问题
- 巨乱数据的笛卡尔乘积结果
- IUnknown接口
- #pragma once 的意思
- 矩阵计算(C++)
- 关于在RCP程序开发过程中遇到的:No Application ID has been found错误提示。
- 有效的Java异常