汉字转换成拼音
时 间:2007-10-18 21:38:08
作 者:竹笛 ID:8 城市:上海 QQ:2851379730
摘 要:汉字转换成拼音
正 文:
Dim Dl, Dh
Dl = ChrString(0)
Dh = ChrString(1)
GBOffset = (Dl - 161) * 94 + (Dh - 161)
End Function
Public Function HZtoPY(ByVal strHZ As String) As String
Dim i As Integer, intCountHZ As Integer
Dim HZ As String
strHZ = Trim(strHZ)
intCountHZ = Len(strHZ)
HZtoPY = ""
For i = 1 To intCountHZ
HZ = Mid(strHZ, i, 1)
Select Case ChrW(AscW(HZ))
Case ChrW(&H5416) To ChrW(&H93CA): HZtoPY = HZtoPY & "A"
Case ChrW(&H516B) To ChrW(&H7C3F): HZtoPY = HZtoPY & "B"
Case ChrW(&H5693) To ChrW(&H9519): HZtoPY = HZtoPY & "C"
Case ChrW(&H54D2) To ChrW(&H8DFA): HZtoPY = HZtoPY & "D"
Case ChrW(&H5C59) To ChrW(&H8D30): HZtoPY = HZtoPY & "E"
Case ChrW(&H53D1) To ChrW(&H99A5): HZtoPY = HZtoPY & "F"
Case ChrW(&H65EE) To ChrW(&H8FC7): HZtoPY = HZtoPY & "G"
Case ChrW(&H94EA) To ChrW(&H8816): HZtoPY = HZtoPY & "H"
'''' "I" -- Î;Þ;
Case ChrW(&H4E0C) To ChrW(&H7AE3): HZtoPY = HZtoPY & "J"
Case ChrW(&H5494) To ChrW(&H5ED3): HZtoPY = HZtoPY & "K"
Case ChrW(&H5783) To ChrW(&H96D2): HZtoPY = HZtoPY & "L"
Case ChrW(&H5988) To ChrW(&H7A46): HZtoPY = HZtoPY & "M"
Case ChrW(&H62FF) To ChrW(&H7CEF): HZtoPY = HZtoPY & "N"
Case ChrW(&H5662) To ChrW(&H6CA4): HZtoPY = HZtoPY & "O"
Case ChrW(&H8DB4) To ChrW(&H66DD): HZtoPY = HZtoPY & "P"
Case ChrW(&H4E03) To ChrW(&H7FA4): HZtoPY = HZtoPY & "Q"
Case ChrW(&H86BA) To ChrW(&H7BAC): HZtoPY = HZtoPY & "R"
Case ChrW(&H7BAC) To ChrW(&H9501): HZtoPY = HZtoPY & "S"
Case ChrW(&H4ED6) To ChrW(&H7BA8): HZtoPY = HZtoPY & "T"
'''' "U" -- Î;Þ;
''' "V" -- Î;Þ;
Case ChrW(&H54C7) To ChrW(&H92C8): HZtoPY = HZtoPY & "W"
Case ChrW(&H5915) To ChrW(&H8548): HZtoPY = HZtoPY & "X"
Case ChrW(&H8548) To ChrW(&H8574): HZtoPY = HZtoPY & "Y"
Case ChrW(&H531D) To ChrW(&H505A): HZtoPY = HZtoPY & "Z"
Case Else
HZtoPY = HZtoPY & HZ
End Select
Next
End Function
Access软件网QQ交流群 (群号:54525238) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access选项卡示例】Ac...(09.09)
- 【Access源码示例】按输入...(09.02)
- 【Access日期区间段查询】...(08.29)
- 【Access日期区间段查询】...(08.27)
- Access怎样才能实现日期时...(08.21)
- 【Access定时打开查询】A...(08.19)
- Access生成固定数量的记录...(08.13)
- Access怎样才能实现日期时...(08.12)
- Access利用导航窗体控件对...(08.03)
学习心得
最新文章
- Access表中的字段名、字段标题...(09.19)
- Access快速开发平台--更改“...(09.18)
- 【中秋及国庆优惠】Access培训...(09.15)
- Access如何将日期型的数值转换...(09.14)
- 英文输入法输入数据中存在单引号引起...(09.11)
- 【Access选项卡示例】Acce...(09.09)
- 让Access光标停留在指定的控件...(09.07)
- 关于Access查询条件里使用通配...(09.06)
- Access报表偷懒制作法--Ac...(09.05)
- Access快速开发平台--窗体数...(09.04)