cicle : read some line in files

[myspacee 0]

hello to all,

i need to read some lines in 190 files.

post some code that have error but can't find where:

; Shows the filenames of all files in the current directory.
$search = FileFindFirstFile("C:\temp\*.txt)  

; Check if the search was successful
If $search = -1 Then
    MsgBox(0, "Error", "No files/directories matched the search pattern")
    Exit
EndIf



While 1
    $file = FileFindNextFile($search) 
    If @error Then ExitLoop
    
    

    $file_read = FileOpen($file, 0)
    $line_01 = FileReadLine($file, 1)

    msgbox(0, "This is sfirst line of : " & $file, $line_01)    

    FileClose($file)


WEnd

; Close the search handle
FileClose($search)

in this example sscript should read first line for every file, but doesn't.

anyone can correct me please ?

thank you,

m.

[wakillon 391]

Try this

; Shows the filenames of all files in the current directory.
$search = FileFindFirstFile("C:\temp\*.txt" )

While 1
    $file = FileFindNextFile($search)
    If @error Then ExitLoop
    ConsoleWrite ( "$file : " & $file & @Crlf )
    $line_01 = FileReadLine ( 'c:\' & $file, 1 )
    ConsoleWrite ( "$line_01 : " & $line_01 & @Crlf )
    msgbox ( 0, '', "This is sfirst line of : " & $file & @crlf & $line_01 )
    FileClose($file)
WEnd

; Close the search handle
FileClose($search)

[hannes08 35]

Hi myspacee,

if you need to read more than 1 line per file, I suggest to use _FileReadToArray instead of FileReadLine() because it's faster.