辉子的专栏

'文件读成16进制 'FileName:需要转变的文件 Function ReadBinary(FileName) Const adTypeBinary = 1 Dim stream, xmldom, node Set xmldom = CreateObject("Microsoft.XMLDOM") Set node = xmldom.CreateElement("binary") ...

'二进制转16进制 'binary二进制字符串 Function binaryToHex(binary) binary_len = len(binary) quyu = binary_len mod 4 If quyu <> 0 then ss = 5/0 End If hex_len = binary_len/4 For i = 1 To hex_len st...

'16进制转2进制 'Buf 16进制字符串 Function hexTOBinary(Buf) Buf_len = len(Buf) For i = 1 To Buf_len hex_str = mid(Buf,i,1) binary = "" If hex_str = "0" then binary = "0000" If hex_str = "1" then binar...

'16进制写成文件 'FileName:指定文件的位置，绝对路径 'Buf 16进制字符 Function Write16ToFile(FileName,Buf) Const adTypeBinary = 1 Const adSaveCreateOverWrite = 2 Dim stream, xmldom, node Set xmldom = CreateObject("Micro...

Function ReadBinary(FileName) Const adTypeBinary = 1 Dim stream, xmldom, node Set xmldom = CreateObject("Microsoft.XMLDOM") Set node = xmldom.CreateElement("binary") node.DataType = "bin.hex" S...