[问题求助] 求VBS脚本快捷的二进制读写

jyswjjgdwtdtj

我要把一个二进制文件每一个byte都写入一个txt里
如二进制文件为：
682669BC1A2B
那我就要输出到txt
104
38
105
188
26
43
请问怎么高效地输出？
或是换一种方式？

a=timer
Set ado = CreateObject("adodb.stream")
Set fso = CreateObject("scripting.filesystemobject")
Set file = fso.OpenTextFile("049.txt",2,True)
ado.Type = 1
ado.Open
ado.LoadFromFile("049.xxx")
Do Until ado.EOS
file.Write ascb(ado.Read(1))&" "
Loop
ado.Close
msgbox timer-a
复制代码

这样一个4兆的文件都要28秒，而且狂耗cpu
应该就是耗在ascb上面

或者能不能换一种“加密”方式
就是让不能直接打开就行了
求了……

jyswjjgdwtdtj

回复 2# czjt1234


    牛逼！

czjt1234

'示例：以二进制数据对文件进行Base64编码和解码，不能是0字节的空文件
Dim oStream, file, oNode, s

file = "1.txt"

'base64编码
Set oStream = CreateObject("ADODB.Stream")
oStream.Type = 1    'adTypeBinary
oStream.Mode = 3    'adModeReadWrite
oStream.Open()
oStream.LoadFromFile file
Set oNode = CreateObject("Msxml2.DOMDocument").CreateElement("base64")
oNode.DataType = "bin.base64"
oNode.nodeTypedValue = oStream.Read()
oStream.Close()
Wsh.Echo oNode.Text

'base64解码
s = oNode.Text
Set oNode = CreateObject("Msxml2.DOMDocument").CreateElement("base64")
oNode.DataType = "bin.base64"
oNode.Text = s
Set oStream = CreateObject("ADODB.Stream")
oStream.Type = 1    'adTypeBinary
oStream.Mode = 3    'adModeReadWrite
oStream.Open()
oStream.Write oNode.nodeTypedValue
oStream.SaveToFile file, 2    'adSaveCreateOverWrite
oStream.Close()

MsgBox "ok"
复制代码