c语言ascw,二进制转换成字符串

上传的文件都是二进制的，要取出其中的相关信息，就需要将二进制转换成字符串。

函数中 LenB、MidB 等与 Len、Mid 意义相同，只是多加了个 B 表示是操作二进制的。

'二进制转换成字符串

function BinToStr(binStr)

if IsNull(binStr) then

BinToStr = ""

exit function

end if

dim newStr, chnFlag

dim i, c

newStr = ""

chnFlag = true

for i=1 To LenB(binStr)

if chnFlag then

c = MidB(BinStr, i, 1)

if AscB(c) > 127 then

'AscW 会把二进制的中文双字节字符高位和低位反转

'所以 MidB(binStr,i+1,1)&c 表达式中，c 在后面

newStr = newStr & Chr(AscW(MidB(binStr,i+1,1)&c))

chnFlag = false

else

newStr = newStr & Chr(AscB(c)) '这里用的是 ASCB 不是 ASCW

end If

else

chnFlag = true

end If

next

BinToStr = newStr

end function