;==========================================================================================================================================
;
; How to remove the first line of a text file?
;
; (c)Detlev Dalitz.20100226.
;==========================================================================================================================================

; Note: EOL must be CRLF sequence.

DirChange (DirScript ())

strFileThis = IntControl (1004, 0, 0, 0, 0)
strFileTestIn = ItemReplace ("Test.in.txt", -1, strFileThis, ".")
strFileTestOut1 = ItemReplace ("Test.out.1.txt", -1, strFileThis, ".")
strFileTestOut2 = ItemReplace ("Test.out.2.txt", -1, strFileThis, ".")

; Create Testfile.
strTest = "Line 1" : @CRLF : "Line 2" : @CRLF : "Line 3" : @CRLF : "Line 4" : @CRLF
FilePut (strFileTestIn, strTest)

; Version 1.
strText = FileGet (strFileTestIn)
FilePut (strFileTestOut1, StrSub (strText, StrIndex (strText, @CRLF, 1, @FWDSCAN) + 2, -1))
Run (strFileTestOut1, "")

; Version 2.
FilePut (strFileTestOut2, ItemRemove (1, FileGet (strFileTestIn), @LF))
Run (strFileTestOut2, "")

Exit