取得字符串首字母

最新推荐文章于 2026-06-12 16:47:04 发布

原创最新推荐文章于 2026-06-12 16:47:04 发布 · 1.6k 阅读

7 ·

本内容遵循CC 4.0 BY-SA版权协议

收录于

源码

当前文章被收录于：

源码

7 篇文章 0 人学习

订阅专栏查看详情

当前文章被以下社区和专栏收录：

博客展示了一段C语言代码，定义了一个名为PYin的私有函数，用于将输入字符串中每个字符转换为对应的拼音首字母。通过对字符ASCII码范围的判断，为每个字符匹配相应的拼音首字母，最后将结果拼接返回。还包含一个文本框改变时调用该函数的事件处理代码。

'Code By 魑魅魍魉
'mailto:DemonStudio@hotmail.com

Private Function PYin(ByVal Str As String) As String
Dim mLen As Long, mLong As Long, PY As String
mLen = Len(Str)
For mLong = 1 To mLen
Select Case Asc(Mid$(Str, mLong, 1))
Case -20319 To -20284: PY = "A"
Case -20283 To -19776: PY = "B"
Case -19775 To -19219: PY = "C"
Case -19218 To -18711: PY = "D"
Case -18710 To -18527: PY = "E"
Case -18526 To -18240: PY = "F"
Case -18239 To -17923: PY = "G"
Case -17922 To -17418: PY = "H"
Case -17417 To -16475: PY = "J"
Case -16474 To -16213: PY = "K"
Case -16212 To -15641: PY = "L"
Case -15640 To -15166: PY = "M"
Case -15165 To -14923: PY = "N"
Case -14922 To -14915: PY = "O"
Case -14914 To -14631: PY = "P"
Case -14630 To -14150: PY = "Q"
Case -14149 To -14091: PY = "R"
Case -14090 To -13319: PY = "S"
Case -13318 To -12839: PY = "T"
Case -12838 To -12557: PY = "W"
Case -12556 To -11848: PY = "X"
Case -11847 To -11056: PY = "Y"
Case -11055 To -2050: PY = "Z"
End Select
PYin = PYin & PY
Next mLong
End Function