將行插入非文本文件

Question

我想將行插入非文本文件的中間（該文件的擴展名爲「dxf」）。我使用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. 一個未定義/空的第一個/文件規範參數調用.OpenTextFile拋出一個錯誤5 - 無效的過程調用或參數
5. 你不能插入行追加他們;在VBScript中修改文件'特別笨拙';將整個文件加載到內存中，編輯，寫回來可能適用於您
6. .DFX文件以ASCII或二進制格式顯示;如果是後者，則不能使用FileSystemObject（請參閱ADODB.Stream）