如何将unicode转换到成中文,更希望有高手能做出多格式互转

fxl447098457

王慢慢的慢生活

香川群子 发表于 2013-4-3 23:18
处理好了。

看附件。

十分感谢，十分感谢。

thomsonzk

香川群子 发表于 2013-4-3 23:18
处理好了。

看附件。

老师，想请教下http://basic.10jqka.com.cn/603229/是GBK的编码，我提取到word后都是乱码方框，请问老师这情况该如何处理！

梦幻华策

1. Function ChW(t)
   
2.     If InStr(t, "\u") Then
   
3.         s = Split(t, "\u")
   
4.         If Left(t, 2) <> "\u" Then ChW = ChW & s(0)
   
5.         For i = 1 To UBound(s)
   
6.             If Len(s(i)) > 3 Then
   
7.                 ChW = ChW & ChrW("&H" & Left(s(i), 4)) & Mid(s(i), 5)
   
8.             Else
   
9.                 ChW = ChW & s(i)
   
10.             End If
    
11.         Next
    
12.         
    
13.     Else
    
14.         For i = 1 To Len(t)
    
15.             s = AscW(Mid(t, i, 1))
    
16.             If s > 0 And s < 255 Then
    
17.                 ChW = ChW & Mid(t, i, 1)
    
18.             Else
    
19.                 ChW = ChW & "\u" & LCase(Hex(s))
    
20.             End If
    
21.         Next
    
22.     End If
    
23. End Function

复制代码