Add detail in textfile

[ngskicker]

hi guys...

can some one help me to doing this job,

currently i have a bunch of file about 1~2 KB containing list of words, says...

aaa
aaerially
aam
aarogramme
aaron
aaronic
aarp
...

i want change it to...

int aaa = 3;
int aaerially = 9;
int aam = 3;
int aarogramme = 10;
int aaron = 5;
int aaronic = 7;
int aarp = 4;
...

so far i have a

$file = FileOpen("words.txt", 0)
$filer = FileOpen("test.txt", 1)

For $i = 1 To 192718 ;192718 is number of line
    $str = FileReadLine($file, $i)
    $len = StringLen($str)
    If $len <= 16 Then
        FileWriteLine($filer, "int "&$str&" = "&$len&';')
    EndIf
Next

FileClose($file)
FileClose($filer)

but it take much time to finish one file,

can anyone suggest me better solution,

[PsaltyDS]

There's no reason to hard code the number of lines. Just loop on FileReadLine() until you get an error (EOF):

$sInFile = @ScriptDir & "\words.txt"
$sOutFile = @ScriptDir & "\test.txt"
$hInFile = FileOpen($sInFile, 0)
$hOutFile = FileOpen($sOutFile, 1)

While 1
    $str = FileReadLine($hInFile)
    If @error Then ExitLoop
    $len = StringLen($str)
    If $len <= 16 Then
        FileWriteLine($hOutFile, "int " & $str & " = " & $len & ';')
    EndIf
WEnd

FileClose($hInFile)
FileClose($hOutFile)

You'll have to try it to see how much not resetting the pointer every time will help execution speed.

[ngskicker]

Ok, i'll try your code and calculates how fast your code

=======================EDIT=============================

And yes, your code do it much fast, thanks mate

Edited August 28, 2010 by ngskicker