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

nk0769 · 发表于 2013-4-3 20:36

1.请问有办法直接用函数将a行的unicode转换到b行成中文吗?
2.如用vba,如何写出读取本地文本,然后直接转换成另一文本,来呈现此结果

香川群子 · 发表于 2013-4-3 21:05

本帖最后由香川群子于 2013-4-3 21:20 编辑

就楼主附件的格式来说，用VBA自定义函数解决代码如下：
可以自动判断并相互转换

Function ChW(t)
If InStr(t, "") Then
s = Split(t, "")
For i = 0 To UBound(s)
If Left(UCase(s(i)), 1) = "U" Then
ChW = ChW & ChrW("&H" & Mid(s(i), 2))
Else
ChW = ChW & s(i)
End If
Next
Else
For i = 1 To Len(t)
s = AscW(Mid(t, i, 1))
If s > 0 And s < 255 Then
ChW = ChW & Mid(t, i, 1)
Else
ChW = ChW & "\u" & Hex(s)
End If
Next
End If
End Function

复制代码

Unicode码转中文.rar (8.85 KB, 下载次数: 118)

香川群子 · 发表于 2013-4-3 21:24

考虑到楼主似乎喜欢小写字母……

附件修改如下：

nk0769 · 发表于 2013-4-3 21:47

香川群子发表于 2013-4-3 21:24
考虑到楼主似乎喜欢小写字母……

附件修改如下：

谢谢美女侠圣,再问个很菜的问题,怎么打开您写的vba源码?
我用excel2007打开此文件,点击查看宏或按alt+f8,都不显示vba的视窗,而随便录制一个vba,再按查看宏就可以看到您写得vba.

nk0769 · 发表于 2013-4-3 22:04

本帖最后由 nk0769 于 2013-4-3 22:05 编辑

还有最右边或者中间如果也有字母或者数字,会出现错误,请问改怎么改?

香川群子 · 发表于 2013-4-3 23:18

本帖最后由香川群子于 2013-4-3 23:21 编辑

处理好了。

看附件。

Unicode码转中文2.rar (13.28 KB, 下载次数: 606)

nk0769 · 发表于 2013-4-4 00:24

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

看附件。

太好了,学习了多种函数的用法,非常感谢.

orientalred · 发表于 2015-3-11 11:50

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

看附件。

太牛了，非常感谢！

zhonghaopu · 发表于 2017-12-6 14:48

太牛了,学习了多种函数的用法

fxl447098457 · 发表于 2017-12-6 17:01

Function zm(str As String)
With VBA.CreateObject("htmlfile")
.write "<script></script>"
zm = .parentwindow.unescape(Replace(str, "\u", "%u"))
End With
End Function

		自动登录	找回密码
密码			免费注册

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