入力ファイルをループし、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」コマンドのようなものを考えています。