比如：
四川公司华阳加油站 提取为HY
四川公司玉林加油站 提取为YL
四川公司神仙树加油站 提取为SXS
'wtoa是把中文字符串转换成首字母的函数
'你可以新建一个文本框和按钮试一下
Function wtoa(ByVal word As String) As String
Dim i As Integer, j As Integer, k As Integer
Const s = "A阿B芭C擦D搭E蛾F发G噶H哈J击K喀L垃M妈N拿O哦P啪Q期R然S撒T塌W挖X昔Y压Z匝"
For j = 1 To Len(word)
k = Asc(Mid(word, j, 1))
For i = Len(s) To 1 Step -2
If k >= Asc(Mid(s, i, 1)) Then
wtoa = wtoa & Mid(s, i - 1, 1)
Exit For
End If
Next
Next
End Function
Private Sub Command1_Click()
d = Replace(Text1.Text, "四川公司", "")
d = Replace(d, "加油站", "")
MsgBox wtoa(d)
End Sub
'你可以新建一个文本框和按钮试一下
Function wtoa(ByVal word As String) As String
Dim i As Integer, j As Integer, k As Integer
Const s = "A阿B芭C擦D搭E蛾F发G噶H哈J击K喀L垃M妈N拿O哦P啪Q期R然S撒T塌W挖X昔Y压Z匝"
For j = 1 To Len(word)
k = Asc(Mid(word, j, 1))
For i = Len(s) To 1 Step -2
If k >= Asc(Mid(s, i, 1)) Then
wtoa = wtoa & Mid(s, i - 1, 1)
Exit For
End If
Next
Next
End Function
Private Sub Command1_Click()
d = Replace(Text1.Text, "四川公司", "")
d = Replace(d, "加油站", "")
MsgBox wtoa(d)
End Sub
温馨提示：答案为网友推荐，仅供参考
第1个回答 2009-08-15
将每个汉字的汉语拼音的首字母保存到数据库里面。数据库两个字段一个村汉字，一个村拼音首字母。然后截取用户字符串，跟数据库中村汉字的字段进行比对。找到了就返回一个拼音字母就ok了。
第2个回答 2018-12-17
你都已经选择最佳答案了，我就没有必要再回答了，不然我有一个更好的办法可以提取任意汉字的拼音首个字母
