help with FileReadLine/FileWriteLine..

[qwertyvmonline]

i am a n00b with no programming knowledge but i managed to make a couple of working scripts with autoit ... but now i am stuck...

i am trying to get a script that would write all the possible number combinations consisting of X digits to a file...

for example all possible 4-digit combinations and write them to a file like this...

0000
0001
...etc
9998
9999

i think it like permutations ... but i dont know how to do it ...

so, i though that the closest method (that i can do) is to write a script in which i choose a number to start with and get the script to add 1 until reaching a number that i chose to finish with ...

so in the mentioned example i would set 1000 as the start and 9999

here is what i came up with....

#include <File.au3>

$Start= InputBox("Enter Number to Start With", "Start With:")
$End= InputBox("Enter Number to End With", "End With:")
$File = @ScriptDir & "\file.txt"
_FileCreate($File)
FileOpen ($File, 1)
FileWriteLine ($File, $Start)
FileClose ($File)
Do
FileOpen ($File, 0)
$Finish= FileReadLine ($File,1)
FileClose ($File)
FileOpen ($File, 1)
FileWriteLine ($File, $Finish + 1)
FileClose ($File)
Until $Finish= $End
MsgBox(1,"Finished", "DONE!")
Exit

but it's not working and it stays in a loop writing 1 in every line of the file

1
1
1
1
1
1
1
1
1
...etc

also, that way i would be missing 0001 to 0999 but i thought if i can get the script to work i will do from 0-9 ,10-99 and 100-999 and write another script to add the missing zeros to the start...

can someone help me make the file it with a better method or at least get this one to work....

thanks in advance

[BrewManNH]

Try this method instead:

$Start = InputBox("Enter Number to Start With", "Start With:")
$End = InputBox("Enter Number to End With", "End With:")
$File = @ScriptDir & "\file.txt"
$WriteFile = FileOpen($File, 2)
FileWriteLine($WriteFile, "Starting Number = " & $Start)
For $I = $Start To $End
    FileWriteLine($WriteFile, $I)
Next
FileClose($WriteFile)
MsgBox(1, "Finished", "DONE!")

If you want to have the 0s in front of the number for those lower than 1000, try this:

$Start = InputBox("Enter Number to Start With", "Start With:")
$End = InputBox("Enter Number to End With", "End With:")
$File = @ScriptDir & "\file.txt"
$WriteFile = FileOpen($File, 2)
FileWriteLine($WriteFile, "Starting Number = " & $Start)
For $I = $Start To $End
    Switch $I
        Case 1 to 9
            $I = "000" & $I
        Case 10 to 99
            $I = "00" & $I
        Case 100 to 999
            $I = "0" & $I
    EndSwitch
    FileWriteLine($WriteFile, $I)
Next
FileClose($WriteFile)
MsgBox(1, "Finished", "DONE!")

[Varian]

This script answers your original intention. Someone please check my logic/math to make sure I am thinking correctly.

#include <File.au3>

Local $String
$Digits = InputBox("Enter Number digits to permutate", "Number of Digits:")
If @error Then Exit
$File = @ScriptDir & "\file.txt"
$End = 10 ^ $Digits - 1
For $i = 0 To $End
    $String &= StringFormat("%0" & $Digits & "i", $i)
    If $i <> $End Then $String &= @CRLF
Next

_FileCreate($File)
FileOpen($File, 1)
FileWrite($File, $String)
FileClose($File)
MsgBox(1, "Finished", "DONE!")

[GEOSoft]

Of course you could have eliminated your Switch with

For $i = $Start To $End
    FileWriteLine($writefile, StringFormat("%03u", $i))
Next

Edit: you can substitute "d" for the "u" in the StringFormat call

Edited October 19, 2010 by GEOSoft

[BrewManNH]

I always forget about StringFormat. I probably could have used it in a few places in my media player...hmmm maybe I will do that after all.