求VBS脚本快捷的二进制读写

jyswjjgdwtdtj

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

1. a=timer
   
2. Set ado = CreateObject("adodb.stream")
   
3. Set fso = CreateObject("scripting.filesystemobject")
   
4. Set file = fso.OpenTextFile("049.txt",2,True)
   
5. ado.Type = 1
   
6. ado.Open
   
7. ado.LoadFromFile("049.xxx")
   
8. Do Until ado.EOS
   
9. file.Write ascb(ado.Read(1))&" "
   
10. Loop
    
11. ado.Close
    
12. msgbox timer-a

复制代码

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

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

czjt1234

1. '示例：以二进制数据对文件进行Base64编码和解码，不能是0字节的空文件
   
2. Dim oStream, file, oNode, s
   
3. 
   
4. file = "1.txt"
   
5. 
   
6. 'base64编码
   
7. Set oStream = CreateObject("ADODB.Stream")
   
8. oStream.Type = 1    'adTypeBinary
   
9. oStream.Mode = 3    'adModeReadWrite
   
10. oStream.Open()
    
11. oStream.LoadFromFile file
    
12. Set oNode = CreateObject("Msxml2.DOMDocument").CreateElement("base64")
    
13. oNode.DataType = "bin.base64"
    
14. oNode.nodeTypedValue = oStream.Read()
    
15. oStream.Close()
    
16. Wsh.Echo oNode.Text
    
17. 
    
18. 'base64解码
    
19. s = oNode.Text
    
20. Set oNode = CreateObject("Msxml2.DOMDocument").CreateElement("base64")
    
21. oNode.DataType = "bin.base64"
    
22. oNode.Text = s
    
23. Set oStream = CreateObject("ADODB.Stream")
    
24. oStream.Type = 1    'adTypeBinary
    
25. oStream.Mode = 3    'adModeReadWrite
    
26. oStream.Open()
    
27. oStream.Write oNode.nodeTypedValue
    
28. oStream.SaveToFile file, 2    'adSaveCreateOverWrite
    
29. oStream.Close()
    
30. 
    
31. MsgBox "ok"

复制代码

jyswjjgdwtdtj

回复 2# czjt1234


    牛逼！