问题在VBscript中读写二进制文件

我之前使用ADODB.Stream来读取和写入二进制文件就是这个链接

如何在VBscript中使用ADODB.stream连接二进制文件

它工作正常唯一的问题是在Windows 2003服务器上禁用ADODB.stream，

还有另一种方法我可以在二进制模式下读取3个文件并将它们连接起来或将它们存储在VBscript中的一个文件中

谢谢 J.P

10588

2018-05-19 14:49

起源

答案:

一年前我遇到过类似的问题。我们知道TextStream对象用于ANSI或Unicode文本数据，而不是二进制数据;如果流是二进制的，它们的.readAll（）方法会产生损坏的输出。但是有解决方法。将字符逐个读入数组可以正常工作。这应该允许您将二进制数据读入VB字符串，并将其写回磁盘。当进一步操作这样的二进制字符串时，不要忘记某些操作可能导致断字符串，因为它们仅用于文本。我总是将二进制字符串转换为整数数组，然后再使用它们。

Function readBinary(path)
Dim a
Dim fso
Dim file
Dim i
Dim ts
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.getFile(path)
If isNull(file) Then
    MsgBox("File not found: " & path)
    Exit Function
End If
Set ts = file.OpenAsTextStream()
a = makeArray(file.size)
i = 0
' Do not replace the following block by readBinary = by ts.readAll(), it would result in broken output, because that method is not intended for binary data 
While Not ts.atEndOfStream
    a(i) = ts.read(1)
i = i + 1
Wend
ts.close
readBinary = Join(a,"")
End Function

Sub writeBinary（bstr，path）昏暗的fso 朦胧设置fso = CreateObject（“Scripting.FileSystemObject”） On Error Resume Next 设置ts = fso.createTextFile（路径）如果Err.number <> 0那么 MSGBOX（Err.message）退出子万一 On Error GoTo 0 ts.Write（BSTR） ts.Close 结束子

函数makeArray（n）'小实用函数朦胧 s =空间（n） makeArray = Split（s，“”）结束功能

2017-12-08 23:25

基于Luc125和Alberto的答案，这里有2个重新设计和简化的功能：

读取功能

Function readBinary(strPath)

    Dim oFSO: Set oFSO = CreateObject("Scripting.FileSystemObject")
    Dim oFile: Set oFile = oFSO.GetFile(strPath)

    If IsNull(oFile) Then MsgBox("File not found: " & strPath) : Exit Function

    With oFile.OpenAsTextStream()
        readBinary = .Read(oFile.Size)
        .Close
    End With

End Function

写功能

Function writeBinary(strBinary, strPath)

    Dim oFSO: Set oFSO = CreateObject("Scripting.FileSystemObject")

    ' below lines pupose: checks that write access is possible!
    Dim oTxtStream

    On Error Resume Next
    Set oTxtStream = oFSO.createTextFile(strPath)

    If Err.number <> 0 Then MsgBox(Err.message) : Exit Function
    On Error GoTo 0

    Set oTxtStream = Nothing
    ' end check of write access

    With oFSO.createTextFile(strPath)
        .Write(strBinary)
        .Close
    End With

End Function

2018-05-20 14:15

你需要这条线吗？ Dim oTxtStream: Set oTxtStream = oFSO.createTextFile(strPath) - Sen Jacob

该行假设检查文件写入访问权限。如果删除它，在某些情况下脚本可能会崩溃。 - n3rd4i

答案:

Function readBinary(path)
Dim a
Dim fso
Dim file
Dim i
Dim ts
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.getFile(path)
If isNull(file) Then
    MsgBox("File not found: " & path)
    Exit Function
End If
Set ts = file.OpenAsTextStream()
a = makeArray(file.size)
i = 0
' Do not replace the following block by readBinary = by ts.readAll(), it would result in broken output, because that method is not intended for binary data 
While Not ts.atEndOfStream
    a(i) = ts.read(1)
i = i + 1
Wend
ts.close
readBinary = Join(a,"")
End Function

函数makeArray（n）'小实用函数朦胧 s =空间（n） makeArray = Split（s，“”）结束功能

2017-12-08 23:25

基于Luc125和Alberto的答案，这里有2个重新设计和简化的功能：

读取功能

Function readBinary(strPath)

    Dim oFSO: Set oFSO = CreateObject("Scripting.FileSystemObject")
    Dim oFile: Set oFile = oFSO.GetFile(strPath)

    If IsNull(oFile) Then MsgBox("File not found: " & strPath) : Exit Function

    With oFile.OpenAsTextStream()
        readBinary = .Read(oFile.Size)
        .Close
    End With

End Function

写功能

Function writeBinary(strBinary, strPath)

    Dim oFSO: Set oFSO = CreateObject("Scripting.FileSystemObject")

    ' below lines pupose: checks that write access is possible!
    Dim oTxtStream

    On Error Resume Next
    Set oTxtStream = oFSO.createTextFile(strPath)

    If Err.number <> 0 Then MsgBox(Err.message) : Exit Function
    On Error GoTo 0

    Set oTxtStream = Nothing
    ' end check of write access

    With oFSO.createTextFile(strPath)
        .Write(strBinary)
        .Close
    End With

End Function

2018-05-20 14:15

你需要这条线吗？ Dim oTxtStream: Set oTxtStream = oFSO.createTextFile(strPath) - Sen Jacob

该行假设检查文件写入访问权限。如果删除它，在某些情况下脚本可能会崩溃。 - n3rd4i

ADODB流对象是VBScript唯一读取二进制流的本机方法。如果禁用ADODB，则需要安装其他一些第三方组件才能提供相同的功能。

2017-11-11 16:23

可以一起读取所有字节：

Set FS = CreateObject("Scripting.FileSystemObject")
Set fil = FS.GetFile(filename)
fpga = fil.OpenAsTextStream().Read(file.Size)

问题 在VBscript中读写二进制文件

答案:

答案:

热门问题

问题在VBscript中读写二进制文件