[问题求助] 求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


    牛逼！