‎Mar 05, 2003 11:13 AM
' ...---but the Loop statements that follow this block don't have a beginning of the loop (so the Loop statement doesn't know where to jump back to)...
Do While Fin.AtEndOfStream <> True
szLine = Fin.ReadLine
' "Change the text on the line below between the quotes to match the text you wanna remove"
if (szLine1 <> "sapdp00 3200/tcp") then
Fout.WriteLine szLine1
end if
Loop
' etc....
‎Mar 05, 2003 11:32 AM
‎Mar 05, 2003 02:43 PM
‎Mar 05, 2003 05:00 PM
‎Mar 06, 2003 08:42 AM
Do Until Fin.EndOfStream
szLine = Fin.ReadLine
If ((szLine<>"string1") AND (szLine<>"string2") AND (szLine<>"string3")) Then
' copy the line
Fout.WriteLine szLine
End If
Loop
‎Mar 07, 2003 11:13 AM