将行插入非文本文件

Question

我正在尝试将行插入非文本文件的中间（文件的扩展名为＆＃34; dxf＆＃34;）。我正在使用vbscript来做到这一点。

我看到的每个地方，都遇到了FileSystemObject.OpenTextFile。但是，当我尝试在dxf文件上使用它时，它会导致错误：异常80070057（我相信这是一个无效的文件）。

这是我的代码：

Dim file
Dim fso

Set fso = CreateObject("Scripting.FileSystemObject")

If fileexists(dxfFile$) Then
    Set file = fso.OpenTextFile(dxfPath, ForAppending, True)

    file.WriteLine("<PORTLIST TESTING>ASDFLKJ")
    file.Close
End If

Answer 1

1. dxfFile$不是有效的VBscript变量名称;使用dxfFile，file或dfxPath（一致）
2. FileExists是FileSystemObject的一个方法;你需要致电fso.FileExists
3. dxfFile，dfxPath和ForAppending都未定义
4. 使用未定义/空的first / filespec参数调用.OpenTextFile会引发错误5 - 无效的过程调用或参数
5. 您无法通过追加来插入行;修改中间的文件＆＃39;在VBScript中尤其笨拙;将整个文件加载到内存中，编辑，回写可能对你有用
6. .DFX文件采用ASCII或二进制格式;如果是后者，则无法使用FileSystemObject（参见ADODB.Stream）