我常用的小模块-自动生成简体中文拼音码

最新推荐文章于 2019-05-29 10:44:45 发布

hwmys

最新推荐文章于 2019-05-29 10:44:45 发布

阅读量1.3k

点赞数

本文链接：https://blog.csdn.net/hwmys/article/details/1122758

版权

编程模块专栏收录该内容

7 篇文章 0 订阅

订阅专栏

'*******************************************

Public Function GetTextFirstLetter(strText As String) As String
'求出一字串的全部首字母
Dim t As Integer
Dim strTempLetters As String
For t = 1 To Len(Trim(strText))
strTempLetters = strTempLetters + GetCharFirstLetter(Asc(Mid(strText, t, 1)))
Next
GetTextFirstLetter = strTempLetters
End Function

Private Function GetCharFirstLetter(intChar As Integer) As String
'求出单个汉字的首字母，内部调用
'输入汉字asc码，输出首字母
Select Case intChar
Case Is >= 0:          GetCharFirstLetter = Chr(intChar)
Case Is >= -10246:     GetCharFirstLetter = " "
Case Is >= -11055:     GetCharFirstLetter = "Z"
Case Is >= -11847:     GetCharFirstLetter = "Y"
Case Is >= -12556:     GetCharFirstLetter = "X"
Case Is >= -12838:     GetCharFirstLetter = "W"
Case Is >= -13318:     GetCharFirstLetter = "T"
Case Is >= -14090:     GetCharFirstLetter = "S"
Case Is >= -14149:     GetCharFirstLetter = "R"
Case Is >= -14630:     GetCharFirstLetter = "Q"
Case Is >= -14914:     GetCharFirstLetter = "P"
Case Is >= -14922:     GetCharFirstLetter = "O"
Case Is >= -15165:     GetCharFirstLetter = "N"
Case Is >= -15640:     GetCharFirstLetter = "M"
Case Is >= -16212:     GetCharFirstLetter = "L"
Case Is >= -16474:     GetCharFirstLetter = "K"
Case Is >= -17417:     GetCharFirstLetter = "J"
Case Is >= -17922:     GetCharFirstLetter = "H"
Case Is >= -18239:     GetCharFirstLetter = "G"
Case Is >= -18526:     GetCharFirstLetter = "F"
Case Is >= -18710:     GetCharFirstLetter = "E"
Case Is >= -19218:     GetCharFirstLetter = "D"
Case Is >= -19775:     GetCharFirstLetter = "C"
Case Is >= -20283:     GetCharFirstLetter = "B"
Case Is >= -20319:     GetCharFirstLetter = "A"
Case Else:             GetCharFirstLetter = " "
End Select
End Function