[VB6 ] 關於unicode轉換問題
本身不是很熟VB6 可是因為公司需要硬著下去做看看
希望給予指教
我的問題是在讀寫unicode
如
中字 unicode(10進位) 16
龜 40860 9F9C
如果使用 Hex(AscW("龜") '結果為 9F9C
但是用 AscW("龜") '結果為 -24676
使用 num = Val("&H9F9C") '結果還是 -24676 num宣告integer,double都一樣
是因為大部分這些函式都是回傳int嗎
所以只能把9F9C直接一個一個拆開算嗎?? 才可以得到40860
是否有更好的方式呢
另外像是
Dim i As Integer
Dim tt() As Byte
Dim str As String
tt = StrConv("龜", vbUnicode)
str = StrConv(tt, vbFromUnicode)
Debug.Print str '變成沒東西 如果把字改為 如:愛 則沒問題
For i = 0 To UBound(tt)
Debug.Print i & "=" & Hex(tt(i))
Next
龜字結果:
0=3F
1=0
愛字結果:
0=1B
1=0
2=61
3=0
請問上面為何如此??
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 122.117.41.57
→
03/29 15:22, , 1F
03/29 15:22, 1F
→
03/29 16:03, , 2F
03/29 16:03, 2F
→
03/29 17:37, , 3F
03/29 17:37, 3F
推
04/02 13:56, , 4F
04/02 13:56, 4F
→
04/02 14:00, , 5F
04/02 14:00, 5F
→
04/02 14:00, , 6F
04/02 14:00, 6F
→
04/02 14:01, , 7F
04/02 14:01, 7F