Extract lines from text [Beginner]

[bahtea]

A very crude code. I have chosen the FOR loop: the approach could be wrong altogether.

Let me state it this way, this is what I want to have:

1. Extract whole lines in sequence from text files.

2. The line numbers increase by 4, starting from line no.3 (ie, 3, 7, 11 upto the last).

The big question:

How to input the INCREMENTAL LINE NO's into the Go to dialog of the text editor?

#include <file.au3>

Dim $file
Dim $lines

$file=FileOpenDialog("Select your file",@DesktopDir,"All files (*.*)")
$lines = _FileCountLines($file)
MsgBox(64, "Processed", "There are " & $lines & " lines in the selected file.")

For $startwork = 3 To $lines Step 4
    WinActivate("[CLASS:Notepad++]", "")
    Send("^g")
    Send("XXX") <-- CAN SEND INCREMENTAL LINE NOs HERE?
... 
    Next

Exit

Or, maybe there is a better program to do this kind of work?

Thank you.

ExtLines.au3

[jaberwacky]

Is this what you want?

#include <file.au3>

Dim $file
Dim $lines

$file = FileOpenDialog("Select your file", @DesktopDir, "All files (*.*)")
$lines = _FileCountLines($file)
MsgBox(64, "Processed", "There are " & $lines & " lines in the selected file.")

For $startwork = 3 To $lines Step 4
    WinActivate("[CLASS:Notepad++]", "")
    Send("^g")
    Send($startwork) ;< - - CAN SEND INCREMENTAL LINE NOs HERE?
    ;...
Next

Exit

edit: typo in the code

Edited September 4, 2010 by jaberwocky6669

[bahtea]

Yes, jaberwocky6669, you got it right. Thanks so much.

[wakillon]

A MsgBox display "There are "9 lines in the selected file." and nothing !

See Matt Post with _StringGetLine function, it works.

[GEOSoft]

Local $file, $lines
$file = FileOpenDialog("Select your file", @DesktopDir, "All files (*.*)")
StringRegExpReplace(fileRead($sFile), "(\v+|$)", "$1")
$lines = @extended
MsgBox(64, "Processed", "There are " & $lines & " lines in the selected file.")

For $startwork = 3 To $lines Step 4
    WinActivate("[CLASS:Notepad++]", "")
    Send("^g")
    Send($startwork) ;< - - CAN SEND INCREMENTAL LINE NOs HERE?
    ;...
Next