Selecting lines then copy to a new file

[aquilesboy]

Hello there again,

Ok I will try my best to explain because english is not my main language, so patience comes great ...

Continuing with my yesterday post, in the below code I'm able to select a name from a ComboBox then search for that name in $aArray and have a sucesfull return, till there everything is right.

Now I'm trying to select a text wich starts 4 lines before where my search is located ($iIndex),  then select 23 lines down....and finally, copy this selection to a new .txt file.

Honestly I dont have any idea how to do it, I have searched all day in forum, tried some examples but I cant get it done.

The code that I need comes after the "$select = $iIndex - 4" line. 

Func _Buttonprint()
Global $name = GUICtrlRead($Combo1)
If $name = "Choose an employee" Then
    MsgBox(16,"Error", "You have to select an employee")
Else
Global $aArray
_FileReadToArray($file, $aArray)
_ArrayTrim ($aArray,$trim,1)
$iStart = 0
While 1
   Global $iIndex = _ArraySearch($aArray, $name, $iStart)
    If $iIndex = -1 Then ExitLoop
        $sLine = $aArray[$iIndex]
    
        If $sLine = "" Then
            MsgBox(0,"Error", "You have to select an employee")
        Else
            $anws = MsgBox(4,"Choose", "Ticket from:" &  $name & @LF & "¿Is that correct?" & " on line " & $iIndex)
            If $anws = 6 Then
                
                $select = $iIndex - 4 ;I use this line cuz the text that I need start 4 lines before where my $iIndex is.
MsgBox(0,"Print","Printing....")
            EndIf
        EndIf
    $iStart = $iIndex
    
    If $iStart > $aArray[0] Then ExitLoop                

EndIf
EndFunc

 Any advice, help?

I hope I explained well.

Thanks in advance!

[TheSaint]

You are missing Wend in your code.

You should read up on FileOpen and FileWrite in the Help file.

Outside of that, it is not totally clear to me what you are aiming at.

Not knowing that, INI functions may even be relevant for your overall objective?

[careca]

Always 23 lines long and 4 before result of $select?

Edited July 25, 2014 by careca

[careca]

Had to create an array of numbers for test

Local $select = 8

;======================================================
;Had to create an array of text for test
#include <Array.au3>
$File = @ScriptDir& '\Sample.txt'
$FileOpen = FileOpen($File)
$FileRead = FileReadToArray($FileOpen)
FileClose($FileOpen)
;_ArrayDisplay($FileRead)
;======================================================

$FileTxt = @ScriptDir& '\NewFile.txt'
$FileTxtOpen = FileOpen($FileTxt, 2)

Work()

Func Work()
For $Line = $select - 5 To $select + 18
    ConsoleWrite('Line '&$Line&' = '& $FileRead[$Line] &@CRLF)
    $FileTxtWrite = FileWriteLine($FileTxtOpen, $FileRead[$Line])
Next
FileClose($FileTxtOpen)
EndFunc

EDIT: $select, not $index

Edited July 25, 2014 by careca

[aquilesboy]

You are missing Wend in your code.

You should read up on FileOpen and FileWrite in the Help file.

Outside of that, it is not totally clear to me what you are aiming at.

Not knowing that, INI functions may even be relevant for your overall objective?

Yeah I missed to write that, but I had it. Thanks!

Had to create an array of numbers for test

Local $select = 8

;======================================================
;Had to create an array of text for test
#include <Array.au3>
$File = @ScriptDir& '\Sample.txt'
$FileOpen = FileOpen($File)
$FileRead = FileReadToArray($FileOpen)
FileClose($FileOpen)
;_ArrayDisplay($FileRead)
;======================================================

$FileTxt = @ScriptDir& '\NewFile.txt'
$FileTxtOpen = FileOpen($FileTxt, 2)

Work()

Func Work()
For $Line = $select - 5 To $select + 18
    ConsoleWrite('Line '&$Line&' = '& $FileRead[$Line] &@CRLF)
    $FileTxtWrite = FileWriteLine($FileTxtOpen, $FileRead[$Line])
Next
FileClose($FileTxtOpen)
EndFunc

EDIT: $select, not $index

Careca, Finally got it!...I used your code with some corrections in variables and it worked exactly like I wanted!

Thanks you very much guys for all the help you gave me, with this I finalized my project

See you around!

[careca]

Good to know.

Best regards.