I'm trying to add a new feature to my bot which involves updating an HTM document. I'm trying to have the bot check through an HTM document and add all lines to an array. After this has been completed, it will then look for a specific string within the document and convert it to a null string along with the 3 lines above and two lines below. Here's what I have so far:
Public Function HTMLGenerate_Delete()
Dim strLine() As String
Dim w, nLines As Integer
nLines = 0
Open App.Path & "\channel.htm" For Input As #1
Do While EOF(1) = False
nLines = nLines + 1
Line Input #1, strLine(nLines)
Loop
Close #1
Open App.Path & "\channel.htm" For Output As #1
For w = 1 To nLines
If strLine(w) = "test" Then
strLine(w - 3) = ""
strLine(w - 2) = ""
strLine(w - 1) = ""
strLine(w) = ""
strLine(w + 1) = ""
strLine(w + 2) = ""
Else
Print #1, strLine(w)
End If
Next
Close #1
End Function
Any help would be greatly appreciated.
Much easier to use XMLDOM.