Public Function 區(fa$) As StringOn Error Resume NextDim L1$, R1$, L$, R$, a, b$, c, d, e$c = Len(fa)For i = 1 To cd = Mid(fa, i, 1)a = Hex(Asc(d))L1 = CInt("&H" + Mid(a, 1, 2)) ‐ 160R1 = CInt("&H" + Mid(a, 3, 2)) ‐ 160If Len(L1) = 1 ThenL = "0" & L1ElseL = L1End IfIf Len(R1) = 1 ThenR = "0" & R1ElseR = R1End Ifb = d & " " & L & R & " "e = e & bNext i區 = e End Function

總結

以上是生活随笔為你收集整理的VBA、.net查汉字区位码的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。