Search for string in textfile and place text below it

[Nu2Java]

I have new text files that I need to make updates to on a regular basis. What I need is to find a line of text and then append below that line three additional lines like this:

'Search for this line which has hundreds of lines below it
M8010 (Tool Head DOWN)

Once found, enter these lines directly below it:

N0109 (Park Tool)
N0110 G01 F999.900
N0111 X-1.5 Y1.5 Z-2.82

Thanks for any help or examples.

 

[guitarzan]

Wow, sorry... brain froze on me, thanks PHV

 

[Nu2Java]

Here is my final piece of code, but the strKey search is causing an error. I'm stuck.

Function File2Compare

Dim objFSO, strFile

strFile = strFile2.Value

Const ForReading = 1, ForWriting = 2

Title ="File to Compare" 


strSearch = "(Tool Head DOWN)"
strSearch2 = "(Tool Head UP)"
strKey = "Park Tool"

strAdd = "N0109 (Park Nozzle)" & vbCrLf _
       & "N0110 G01 F999.900" & vbCrLf _
       & "N0111 X-1.5 Y1.5 Z-2.82"
       


Set objFSO = CreateObject("Scripting.FileSystemObject")


   [COLOR=#CC0000]If InStr(objFSO.ReadAll, strKey) Then 
        MsgBox "No Update Required"
    Else[/color]    

    Set objFile = objFSO.OpenTextFile(strFile, 1).ReadAll
    Do Until objFile.AtEndOfStream
        strLine = objFile.ReadLine
        
		
		
        If InStr(strLine, strSearch) or InStr(strLine, strSearch2) Then
          strLine = strLine & vbCrLf & strAdd
		End If
        strNewtext = strNewtext & strLine & vbCrLf
		 
    Loop
    
    objFile.Close
    Set objFile = objFSO.OpenTextFile(strFile, 2)
    objFile.Write strNewtext
    objFile.Close
	MsgBox "File has been updated with Park Instructions" & vbCr & vbCr & strFile, vbInformation
End If
End Function

 

[guitarzan]

PHV corrected my mistake. Should have been:

If InStr(objFSO.OpenTextFile(strFile, 1).ReadAll, strKey) Then

 

[Nu2Java]

Ah, now I see how it is written. Thank You all for the help and your time.... very much appreciated!