標題: [發問] hex string 轉成 bin string [打印本頁]

---

作者: swatt    時間: 2011-7-19 11:25     標題: hex string 轉成 bin string

本帖最後由 swatt 於 2011-7-19 14:23 編輯

請教各位高手大大,
在網路上有找到一個用VBA將hex string 轉成 bin string 的方法，如下:
其中一句, cix = CInt("&H" & hdgt)  ,一直看不懂此寫法意義?  //注意H前少一個& ，cix = CInt("&H" & hdgt)
請各位高手幫忙解答一下，謝謝啦~

PS:不知道為什麼"&"在編輯時看得到，但編輯完成之後卻有些地方看得到，有些地方看不到，怪怪滴.....

-----------------------------------------------------------------
Sub h2b()
cnvarr = Array("0000", "0001", "0010", "0011", _
"0100", "0101", "0110", "0111", "1000", _
"1001", "1010", "1011", "1100", "1101", _
"1110", "1111")

bstr = ""

mystr = "ABC"

For i = 1 To Len(mystr)
hdgt = Mid(mystr, i, 1)
cix = CInt("&H" & hdgt)     //注意H前少一個& ，cix = CInt("&H" & hdgt)
bstr = bstr & cnvarr(cix)     //注意 bstr 和 cnvarr(cix)之間少一個&


Next

End Sub
-----------------------------------------------------------------

---

作者: oobird    時間: 2011-7-19 11:33

一看就是錯誤的思維
cix = CInt("H" & hdgt)
cint函數~強制轉換為整數型態
但不可能把文字"HA"轉換為數字

---

作者: swatt    時間: 2011-7-19 13:58

本帖最後由 swatt 於 2011-7-19 14:19 編輯

回應oobird 大大,
H前少了一個&，(用編輯看得到&，貼上後就看不到了??)
cix = CInt("&H" & hdgt)
我有試過確實可以用。
再麻煩大大看一下。

PS:這句也少了一個 &
bstr = bstr & cnvarr(cix)

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)