小弟無意一發現一個極為簡單的方示由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
        '----------------------------------------------------------------------------

全站熱搜

vbqa 發表在 痞客邦 留言(1) 人氣()