filereadline

[morgalis]

Select

            Case $msg = $OK_Btn
                $file = FileOpenDialog("test", @ScriptDir & "\", "test (*.xml)")                

              ; Check if file opened for reading OK
                If $file = -1 Then
                   MsgBox(0, "Error", "Unable to open file.")
                   Exit
                EndIf

        ; Read in lines of text until the EOF is reached
                While 1
                $line = FileReadLine($file)
                If @error = -1 Then ExitLoop
                   MsgBox(0, "Line read:", $line)
                Wend
                FileClose($file)
                
        ;Check if user clicked on the "CANCEL" button
            Case $msg = $Cancel_Btn
                MsgBox(64, "New GUI", "You clicked on the Cancel button!")

        EndSelect

why this gives me always first line of file ?

should go though file till error event -1 raisses

did reasearch so i used straight the sample from help file but same issue

Edited May 5, 2009 by morgalis

[GEOSoft]

This works for me

;
$file = FileOpen(FileOpenDialog("test", @ScriptDir & "\", "test (*.xml)"), 0)

             ; Check if file opened for reading OK
                If $file = -1 Then
                   MsgBox(0, "Error", "Unable to open file.")
                   Exit
                EndIf

       ; Read in lines of text until the EOF is reached
                While 1
                $line = FileReadLine($file)
                If @error = -1 Then ExitLoop
                   MsgBox(0, "Line read:", $line)
                Wend
                FileClose($file)
;

There might only be 1 ine in the file you are trying to read. Make sure you are not using wordwrap in the editor you're using.

[morgalis]

No , more then 1 lines are in the file

<?xml version="1.0"?>
<GlideProfile>
  <MinLevel>0</MinLevel>
  <MaxLevel>0</MaxLevel>
  <Factions>38 14 189 73</Factions>
  <LureMinutes>0</LureMinutes>
  <BlacklistOn>True</BlacklistOn>

msg is always this <?xml version="1.0"?>

[GEOSoft]

Did you try the code as I posted it?

[morgalis]

workx fileopen !!thnx

[wolf9228]

Select

            Case $msg = $OK_Btn
                $file = FileOpenDialog("test", @ScriptDir & "\", "test (*.xml)")                

             ; Check if file opened for reading OK
                If $file = -1 Then
                   MsgBox(0, "Error", "Unable to open file.")
                   Exit
                EndIf

    ; Read in lines of text until the EOF is reached
                While 1
                $line = FileReadLine($file)
                If @error = -1 Then ExitLoop
                   MsgBox(0, "Line read:", $line)
                Wend
                FileClose($file)
                
    ;Check if user clicked on the "CANCEL" button
            Case $msg = $Cancel_Btn
                MsgBox(64, "New GUI", "You clicked on the Cancel button!")

        EndSelect

why this gives me always first line of file ?

should go though file till error event -1 raisses

did reasearch so i used straight the sample from help file but same issue

FileOpenDialog

Success: Returns the full path of the file(s) chosen. Results for multiple selections are "Directory|file1|file2|..."

Failure: Sets @error to 1.

$OK_Btn = 1
        $Cancel_Btn = 0
        $msg = 1

        Select

            Case $msg = $OK_Btn
                $file = FileOpenDialog("test", @ScriptDir & "\", "test (*.xml)")                

              ; Check if file opened for reading OK
                If @error Then
                   MsgBox(0, "Error", "Unable to open file.")
                   Exit
                Else
                $file = FileOpen($file, 0)
        ; Read in lines of text until the EOF is reached
                While 1
                $line = FileReadLine($file)
                If @error = -1 Then ExitLoop
                   MsgBox(0, "Line read:", $line)
                Wend
                FileClose($file)
                 EndIf
        ;Check if user clicked on the "CANCEL" button
            Case $msg = $Cancel_Btn
                MsgBox(64, "New GUI", "You clicked on the Cancel button!")

        EndSelectoÝ÷ ØäZºÚ"µÍÌÍÓÒ×ÐHBBIÌÍÐØ[Ù[ÐHBIÌÍÛÙÈHBBTÙ[XÝBBPØÙH  ÌÍÛÙÈH ÌÍÓÒ×Р   ÌÍÙ[HH[SÜ[X[ÙÊ    ][ÝÝÝ    ][ÝËØÜ  [È ][ÝÉÌLÉ][ÝË   ][ÝÝÝ

[
I][ÝÊHÈÚXÚÈY[HÜ[YÜXY[ÈÒÂYÜ[ÙÐÞ
    ][ÝÑÜ][ÝË  ][ÝÕ[XHÈÜ[[K][ÝÊB^][ÙBÈXY[[ÈÙ^[[HSÑÈXXÚY   ÌÍÙ[HH[SÜ[  ÌÍÙ[K
B   ÌÍØÚÈH[TXY
    ÌÍÙ[JBBBBSÙÐÞ
    ][ÝÐÚXY][ÝË    ÌÍØÚÊB[PÛÜÙJ    ÌÍÙ[JB[YÐÚXÚÈYÙÛXÚÙYÛH  ][ÝÐÐSÑS    ][ÝÈ]ÛØÙH  ÌÍÛÙÈH ÌÍÐØ[Ù[ÐÙÐÞ
    ][ÝÓ]ÈÕRI][ÝË ][ÝÖ[ÝHÛXÚÙYÛHØ[Ù[]ÛÌÌÎÉ][ÝÊB[Ù[XÝ