网上找的Vba代码目前发现提取不了这几个汉字的大写首字母,请问有什么办法解决的嘛?
1条回答 默认 最新
- 普通网友 2023-09-10 12:18关注
汉字转拼单首字母
现在各种查询中,一般都支持拼音首字母查询,下面的函数可以获得汉字的首字母。
Public Function PY(myStr)
Dim Str$, L$, Temp$, 特殊字$
Str = Replace(Replace(myStr, " ", ""), " ", "")
dict = [{"吖","a";"八","b";"擦","c";"咑","d";"鵽","e";"发","f";"伽","g";"哈","h";"丌","j";"咔","k";"垃","l";"妈","m";"拿","n";"哦","o";"妑","p";"七","q";"然","r";"仨","s";"他","t";"屲","w";"夕","x";"丫","y";"帀","z"}]
特殊字 = "仇Q覃Q"
For i = 1 To Len(Str)L = Mid$(Str, i, 1)j = InStr(tmp, Mid(Str, i, 1))If L Like "[一-龥]" ThenTemp = Temp & IIf(j, Mid(特殊字, j + 1, 1), UCase(Application.Lookup(L, dict)))ElseTemp = Temp & LEnd If
Next i
PY = Temp
End Function解决 无用评论 打赏 举报
悬赏问题
- ¥15 数据库原理及应用(相关搜索:数据类型)
- ¥100 解决数据不连续出现问题
- ¥15 clousx6整点报时指令怎么写
- ¥30 远程帮我安装软件及库文件
- ¥15 关于#自动化#的问题:如何通过电脑控制多相机同步拍照或摄影(相机或者摄影模组数量大于60),并将所有采集的照片或视频以一定编码规则存放至规定电脑文件夹内
- ¥20 深信服vpn-2050这台设备如何配置才能成功联网?
- ¥15 Arduino的wifi连接,如何关闭低功耗模式?
- ¥15 Android studio 无法定位adb是什么问题?
- ¥15 C#连接不上服务器,
- ¥15 angular项目错误