vba 不能显示音标字体

denemc

各位老师：

我用VBA 程序将音标字符读入数组，发现里面有"?"。我在网上找了很多字体并进行了安装，程序还是不能显示。我做了小的附件，将这个显示出来了。请哪位老师指点一下该怎么处理？说明一下：我需要将音标字符通过读入数组后写入access数据库。附件  非常感谢！

huang1314wei

这个跟你使用什么字体应该没什么关系，需要编码转换一下就OK了

1. Function Encode(strEncode As String) As String
   
2. '取得十六进制的UNICODE
   
3.     Dim i As Long
   
4.     Dim chrTmp As String
   
5.     Dim ByteLower As String
   
6.     Dim ByteUpper As String
   
7.     Dim strReturn As String
   
8.     For i = 1 To Len(strEncode)
   
9.         chrTmp$ = Mid(strEncode, i, 1)
   
10.         ByteLower$ = Hex$(AscB(MidB$(chrTmp$, 1, 1)))
    
11.         If Len(ByteLower$) = 1 Then ByteLower$ = "0" & ByteLower$
    
12.         
    
13.         ByteUpper$ = Hex$(AscB(MidB$(chrTmp$, 2, 1)))
    
14.         If Len(ByteUpper$) = 1 Then ByteUpper$ = "0" & ByteUpper$
    
15.       
    
16.         strReturn$ = strReturn$ & "\u" & ByteUpper$ & ByteLower$
    
17.     Next
    
18.     Encode = strReturn$
    
19. End Function
    
20. 
    
21. Function UnicodeDec(strUnicode As String)
    
22.     Dim arr, i%, s$
    
23.     arr = Split(strUnicode, "\u")
    
24.     For i = 1 To UBound(arr)
    
25.         s = s & ChrW(Application.WorksheetFunction.Hex2Dec(arr(i)))
    
26.     Next
    
27.     UnicodeDec = s
    
28. End Function

复制代码

huang1314wei

附件参考》》》》》
英语词汇音标.rar (18.88 KB, 下载次数: 9)

2018-8-19 11:06 上传

点击文件名下载附件