在access中实现 Utf8 转换为 Unicode编码

Function Utf8ToUnicode(str)

Dim i, c, c2, c3, out, length

out = ""

i = 1

length = LenB(str)

Do While i <= length

c = AscB(MidB(str,i,1))

i = i + 1

Select Case (c \ 2 ^ 4)

Case 0,1,2,3,4,5,6,7

out = out & ChrW(c)

Case 12,13

c2 = AscB(MidB(str,i,1))

i = i + 1

out = out & ChrW(((c And &H1F) * 2 ^ 6) Or (c2 And &H3F))

Case 14

c2 = AscB(MidB(str,i,1))

i = i + 1

c3 = AscB(MidB(str,i,1))

i = i + 1

out = out & ChrW(((c And &H0F) * 2 ^ 12) Or _

((c2 And &H3F) * 2 ^ 6) Or _

((c3 And &H3F) * 2 ^ 0))

End Select

Loop

Utf8ToUnicode = out

End Function

(tmtony access中国)
注意要在不同的操作系统下进行测试,有可能系统内码不同,会导致有一些区别

发布人:tmtony-Access中国

分享到：

点击次数：更新时间：2013-06-30 09:40:19 【打印此页】【关闭】