?'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
??? '中文轉換成拼音函數
??? Public Function GetChinesePYCode(ByVal SourceStr As String) As String
??????? Dim Serial_S As String
??????? Dim Serial_T As String
??????? Dim TempS As String
??????? Dim J As Integer

??????? Dim I As Integer
??????? Dim HelpChar As String
??????? Dim GetHelpCode As String
??????? Serial_S = "啊芭擦搭蛾發噶哈擊喀垃媽拿哦啪期然撒塌挖昔壓匝座"
??????? Serial_T = "abcdefghjklmnopqrstwxyz"

??????? For I = 1 To Len(SourceStr)
??????????? HelpChar = Mid(SourceStr, I, 1)

??????????? If Asc(HelpChar) >= Asc(Left(Serial_S, 1)) And Asc(HelpChar) <= Asc(Right(Serial_S, 1)) Then
??????????????? '-------------------------------
??????????????? If Asc(HelpChar) = Asc(Right(Serial_S, 1)) Then
??????????????????? GetChinesePYCode = GetHelpCode & Right(Serial_T, 1)
??????????????? Else
??????????????????? For J = 2 To Len(Serial_S)
??????????????????????? TempS = Mid(Serial_S, J, 1)
??????????????????????? If Asc(HelpChar) < Asc(TempS) Then
??????????????????????????? GetChinesePYCode = GetChinesePYCode & Mid(Serial_T, J - 1, 1)
??????????????????????????? Exit For
??????????????????????? End If

??????????????????? Next J
??????????????? End If

??????????????? '-------------------------------
??????????? Else
??????????????? GetChinesePYCode = GetChinesePYCode & HelpChar
??????????????? GetHelpCode = GetHelpCode & "?"
??????????? End If

??????? Next I

??? End Function

轉載于:https://www.cnblogs.com/qiyuan/archive/2006/08/22/483366.html

總結

以上是生活随笔為你收集整理的中文转换成拼音函数的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。