Im trying to write a script that will delete the first and last line of a text file. All I can think of is the first line...anybody have a clue as to what I gotta do to delete the last AND first line...
PHP:
txtFilepath = "in.txt"
txtOut = "out.txt"
Dim objFSO, objTextFilein, objTextFileout
Dim sRead, sReadLine, sReadAll
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFilein = objFSO.OpenTextFile(txtFilepath, ForReading)
On Error Resume Next
sReadLine = objTextFilein.ReadLine
If Err.Number = 62 Then
objTextFilein.Close
Set txtFilepath = objFSO.GetFile("in.txt")
txtFilepath.Delete()
Else
Set objTextFileout = objFSO.CreateTextFile(txtOut, ForWriting)
Do While Not objTextFilein.AtEndOfStream
sReadLine = objTextFilein.ReadLine
objTextFileout.WriteLine(sReadLine)
loop
set sReadLine = Nothing
objTextFilein.Close
objTextFileout.Close
Set txtFilepath = objFSO.GetFile("in.txt")
txtFilepath.Delete()
Set txtOut = objFSO.GetFile("out.txt")
txtOut.Copy("in.txt")
txtOut.Delete()
End If