私は特定の単語を検索したいと思っています。開始時に

Question

次のコードを使用して、各行の先頭に;を追加できましたが、特定の単語が見つかった後に;を追加したいとします。 [Abc]。どのようにVBScriptを使用してこれを行うには？

Const ForReading=1 
Const ForWriting=2 

Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set f = objFSO.OpenTextFile("D:\sam.txt", ForReading) 

Do Until f.AtEndOfStream 
    strText = f.ReadLine 
    If Len(strText) = 0 Then 
     blnFound = True 
     MsgBox "blank line found" 
     strText = vbNewLine & strText 
     strContents = strContents & strText & vbCrlf 
    Else 
     strText = ";" & strText 
     strContents = strContents & strText & vbCrlf 
    End If 
Loop 

f.Close 

Set f = objFSO.OpenTextFile("D:\sam.txt", Forwriting) 
f.WriteLine strContents 
f.Close 

Sam.txtには、いくつかの行が含まれています。

 
Hi, need help 
This is a sample text file 
[Abc] 
How are you 
Hope you are doing well! 

だから私は、出力sam.txtファイルが内部のデータの下に持っていなければならないとします

だから、

 
Hi, need help 
This is a sample text file 
[Abc] 
;How are you 
;Hope you are doing well! 

Answer 1

、基本的に、あなたはINI形式のファイルを持っており、特定のセクションのエントリがコメントしたいと思います。それは次のように達成することができます。

filename = "D:\sam.txt" 

Set fso = CreateObject("Scripting.FileSystemObject") 

txt = Split(fso.OpenTextFile(filename).ReadAll, vbNewLine) 

disable = False 
For i = 0 To UBound(txt) 
    If Left(txt(i), 1) = "[" Then 
    If txt(i) = "[Abc]" Then 
     disable = True 
    Else 
     disable = False 
    End If 
    End If 

    If disable Then txt(i) = ";" & txt(i) 
Next 

fso.OpenTextFile(filename, 2).Write Join(txt, vbNewLine) 

Answer 2

はそれを置き換えるこの

Option Explicit 

Dim FSO ' Object 

Set FSO = CreateObject("Scripting.FileSystemObject") 

Dim ReadTxtFile, WriteTxtFile ' Object 
Dim TextLine, TextLineToWrite ' String 
Dim AddStr' bool 

' Open both text file in the same time 
Set ReadTextFile = FSO.OpenTextFile("Sam.txt", 1) ' Open file to read 
Set WriteTextFile = FSO.OpenTextFile("Sam_new.txt", 2, True) ' Open file to write 

' Do read file as normal but add a switch 
' Write original text line to text file while switch is disabled 
' Add str to the text line and write once switch is trigger 

AddStr = False ' Add str disabled 
Do Until ReadTextFile.AtEndOfStream ' Start Read 

    Textline = ReadTextFile.Readline 

    If AddStr = True Then ' If add str enabled 
     TextLineToWrite = ";" & Textline ' Add string 
    Else ' if add str disabled 
     TextLineToWrite = Textline ' write original line 
    End If 

    If Trim(Textline) = "[ABC]" Then ' If indicator read 
     AddStr = True ' add str write 
    End if 

    WriteTextFile.WriteLine TextLineToWrite ' Write file when each line is read 
Loop 

ReadTextFile.Close 
WriteTextFile.Close 

msgbox "Done"