[code]<%’获取字符中中文首字字符    ’返回：A-Z ;123 ; ###    Public Function GetSpellChar(str)        Dim tmp        GetSpellChar = "@"   ...