台灣最大程式設計社群網站
線上人數
324
 
會員總數:245981
討論主題:189559
歡迎您免費加入會員
討論區列表 >> 專欄文章 >> binary t與 hex character的轉換
[]  
[我要回覆]
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
binary t與 hex character的轉換
價值 : 0 QP  點閱數:383 回應數:0
樓主

站務人員 站長
門外漢
0 1580
542 9
發送站內信

捐贈 VP 給 站務人員
試試這兩個function


Function bin2str(binstr)

Dim varlen, clow, ccc, skipflag

skipflag = 0

ccc = ""

varlen = LenB(binstr)

For i = 1 To varlen

If skipflag = 0 Then

clow = MidB(binstr, i, 1)

If AscB(clow) > 127 Then

ccc = ccc & Chr(AscW(MidB(binstr, i + 1, 1) & clow))

skipflag = 1

Else

ccc = ccc & Chr(AscB(clow))

End If

Else

skipflag = 0

End If

Next

bin2str = ccc

End Function



Function str2bin(str)

For i = 1 To Len(str)

str2bin = str2bin & ChrB(Asc(Mid(str, i, 1)))

Next

End Function
本篇文章發表於2002-06-26 00:00
目前尚無任何回覆
   

回覆
如要回應,請先登入.