获得汉字字符串拼音首字母
摘要：
'返回给定字符串的首字母 Function IndexCode(ByVal IndexTxt As String) As String Dim i As Integer For i = 1 To IndexTxt.Length IndexCode = IndexCode & GetOneIndex(Mid(IndexTxt, i, 1)) ... 阅读全文
posted @ 2005-12-29 00:07 billnet 阅读(452) 评论(0) 推荐(0) 编辑
