003集——通过VBA将二进制文件转为文本文件

对于二进制的文件，我们可以通过vba代码转为文本文件。这里以dxf为例，

代码如下：

Sub ConvertBinaryToText()
    Dim fs As Object ' FileSystemObject
    Set fs = CreateObject("Scripting.FileSystemObject")
    
    Dim binaryFilePath As String ' 二进制文件路径
    binaryFilePath = "D:\**\.dxf"
    
    Dim textFilePath As String ' 输出文本文件路径
    textFilePath = "D:\**\1.txt"
    
    Dim inputStream As Object ' 读取二进制文件流
    Set inputStream = fs.OpenTextFile(binaryFilePath)
    
    Dim outputStream As Object ' 写入文本文件流
    Set outputStream = fs.CreateTextFile(textFilePath)
    
    Do Until inputStream.AtEndOfStream
        Dim line As String ' 每行数据
        line = inputStream.ReadLine
        
        ' 在这里处理每行数据，如果需要特定格式或者其他操作
        
        ' 将处理后的结果写入到文本文件
        outputStream.WriteLine line
    Loop
    
    ' 关闭文件流
    inputStream.Close
    outputStream.Close
    
    MsgBox "已成功将二进制文件转换为文本！"
End Sub

结果如下：