返回列表 上一主題 發帖

[發問] hex string 轉成 bin string

swatt

帖子
37 
主題
11 
精華
0 
積分
87 
點名
0  
作業系統
window7 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2011-3-14 
最後登錄
2022-5-30 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 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
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
2#
發表於 2011-7-19 11:33 | 只看該作者
一看就是錯誤的思維
cix = CInt("H" & hdgt)
cint函數~強制轉換為整數型態
但不可能把文字"HA"轉換為數字

TOP

swatt

帖子
37 
主題
11 
精華
0 
積分
87 
點名
0  
作業系統
window7 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2011-3-14 
最後登錄
2022-5-30 
3#
發表於 2011-7-19 13:58 | 只看該作者
本帖最後由 swatt 於 2011-7-19 14:19 編輯

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

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

TOP

        靜思自在 : 受人點水之恩，須當湧泉以報。
返回列表 上一主題