摘要:
VB代码:'------------------------'汉字转拼音缩写'------------------------Public Function GetPYSX(Str As String) As StringOn Error GoTo PROC_ERROR Dim i As Long For i = 0 To Len(Str) - 1 GetPYSX = GetPYSX & GetPYSXChar(Mid(Str, i + 1, 1)) Next PROC_ERROR: Exit FunctionEnd FunctionPublic Functio 阅读全文