Copying and pasting line from notepad

[anyways]

This is the script for copying and pasting a random line from a notepad

$notepad10 = WinGetText("qpwords.txt - Notepad")

$lines10 = StringSplit($notepad10,@crlf,1)

$randomline10 = Random(1, $lines10[0], 1)

Clipput($lines10[$randomline10])

Send(Clipget())

I dont wish anymore to take a random line, i want to take the line in order each time the script restart. Lets say I want to copy/paste line 1 the first time, then when the script restart, copy/paste the second line and so on. What would be the function to use?

Thank you

Edited April 7, 2008 by anyways

[Paulie]

i did a little modification. This will copy the next line form notepad every time you press Home. it's easier than trying to save the current line between script restarts. Also, i used fileread instead of WinGetText. You don't need to have notepad open!

HotKeySet("{HOME}","NextLine")

Global $Line=1

While 1
Sleep(100)
WEnd

Func NextLine()
$Path = "qpwords.txt" ;if not in scriptdir, use full file path
$File = FileOpen($Path,0)
$Current = FileReadLine($File,$Line)
ClipPut($Current)
Send(ClipGet())
FileClose($File)
$Line+=1
EndFunc