台灣最大程式設計社群網站
線上人數
537
 
會員總數:245785
討論主題:189420
歡迎您免費加入會員
討論區列表 >> 專欄文章 >> 將二進制字符轉換成普通字符
[]  
[我要回覆]
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
將二進制字符轉換成普通字符
價值 : 0 QP  點閱數:292 回應數:0
樓主

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

捐贈 VP 給 站務人員
將二進制字符轉換成普通字符

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
本篇文章發表於2002-06-13 00:00
目前尚無任何回覆
   

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