小吳 VBQA 程式設計討論

小弟無意一發現一個極為簡單的方示由big5轉unicode供大家參考
Dim A() As Byte　　　　 '轉換rs("msg")用　轉換前-big5
　　Dim B(62) As Byte　　　'轉換rs("msg")用　轉換後-unicode

'big5轉換成unicod碼　'----------------------------------------------------------------------------
　　　　　　　　A = Trim(rs("msg"))
　　　　　　　　For i = 0 To UBound(A)
　　　　　　　　　　If i Mod 2 = 0 Then
　　　　　　　　　　　　B(i) = A(i + 1)
　　　　　　　　　　Else
　　　　　　　　　　　　B(i) = A(i - 1)
　　　　　　　　　　End If
　　　　　　　　Next
　　　　　　　　'----------------------------------------------------------------------------