2

入力ファイルをループし、readline コマンドを使用して各行を読み取り、さまざまな基準をチェックしてから、結果に基づいて変更を加えたいと考えています。これが私がやろうとしていることの非常に単純なバージョンです:

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(strFileLoc, 1)

Do While Not objFile.AtEndOfStream
     strLineRead = objFile.readline
     if strLineRead Like "*text to change*" Then
          'Some code to change the line
     end if
Loop

私が行っているのは、ファイル全体を strFileText という文字列に保存し、Replace 関数を使用して、その文字列内の strLineRead を変更されたバージョンに置き換えることです。このようなもの:

strFileText = Replace(strFileText, strLineRead, strNewLine)

次に、その文字列全体を新しいテキスト ファイルに書き込みます。

問題は、テキスト全体が「NC」である行があり、ファイル全体で「NC」の検索/置換を実行すると、1 行以上が変更されることがあります。

FileSystemObject の特定の行で、ファイルを直接変更できるコマンドはありますか? 「writeline」コマンドのようなものを考えています。

4

1 に答える 1