Loop Problem!

[WARLICHVN]

First, I would like to sincerely thank everyone for the help yesterday (subject: the string and array).

Items of today I

people need help is:

I get to keep material from 1 File: Name.txt

In file Name.txt many lines are divided by characters "|" (eg : 500 Lines)

Duties of the program after 1 time period (eg 3 minutes) will read to line 2, line 3 ... n line.

That is after 1 time period the number read will be + 1

Wishes to receive the help of everyone!

Edited July 21, 2009 by WARLICHVN

[water]

$hFile = FileOpen("Your File",0)
While 1
 $line = FileReadLine($hFile)
Sleep(18000)
Wend
FileClose($hFile)

Edited July 21, 2009 by water

[WARLICHVN]

Thank you water!

[WARLICHVN]

Oh sorry, but have some problem when problem read line

eg . File : Name.txt

Name1|Addr1|PhoneNumber1
Name2|Addr2|PhoneNumber2

MyCode:

$hFile = FileOpen("Name.txt",0)
While 1
    $line = FileReadLine($hFile)
    If @error = -1 Then ExitLoop
    MsgBox(0,"A",$line)
    Sleep(2000)
    FileClose($hFile)
Wend

So it's not read line 2

Edited July 21, 2009 by WARLICHVN

[99ojo]

Oh sorry, but have some problem when problem read line

eg . File : Name.txt

Name1|Addr1|PhoneNumber1
Name2|Addr2|PhoneNumber2

MyCode:

$hFile = FileOpen("Name.txt",0)
While 1
    $line = FileReadLine($hFile)
    If @error = -1 Then ExitLoop
    MsgBox(0,"A",$line)
    Sleep(2000)
    FileClose($hFile)
Wend

So it's not read line 2

Hi,

set the FileClose ($hFile) after the Wend or use a counter e.g.

$hFile = FileOpen("Name.txt",0)
While 1
    $line = FileReadLine($hFile)
    If @error = -1 Then ExitLoop
    MsgBox(0,"A",$line)
    Sleep(2000)
Wend
FileClose($hFile)

or

$i = 1
While 1
    $hFile = FileOpen("Name.txt",0)
    $line = FileReadLine($hFile, $i)
    If @error = -1 Then ExitLoop
    MsgBox(0,"A",$line)
    $i += 1
    Sleep(2000)
    FileClose($hFile)
Wend

Edited July 21, 2009 by 99ojo

[WARLICHVN]

Thank you so much 99ojo!!!

[WARLICHVN]

How to do it in Func ?

Edited July 22, 2009 by WARLICHVN

[99ojo]

How to do it in Func ?

Hi,

two ways:

1st)

Global $file = "name.txt"

_ReadFile ()

Func _ReadFile ()
$hFile = FileOpen($file, 0)
While 1
    $line = FileReadLine($hFile)
    If @error = -1 Then ExitLoop
    MsgBox(0,"A",$line)
    Sleep(2000)
Wend
FileClose($hFile)
EndFunc

or

_ReadFile ("name.txt")

Func _ReadFile ($file)
$hFile = FileOpen($file, 0)
While 1
    $line = FileReadLine($hFile)
    If @error = -1 Then ExitLoop
    MsgBox(0,"A",$line)
    Sleep(2000)
Wend
FileClose($hFile)
EndFunc

;-))

Stefan

Edited July 23, 2009 by 99ojo