Forums Developers iterating through tokenized list

Why does this script not work?:
The purpose is to display individually every "word" in a file. %file DOES exist on my system, and if you test it it should be an existent file on yours.


//var %file = "C:\temp\hi.txt", %i = 1 | while (%i <= $lines(%file)) { tokenize 32 $read(%file, %i) | while ($1 != $null) { echo - $1 | tokenize $2- } | inc %i }

Contents of C:\temp\hi.txt:
this is a test
and some more

Expected Output:
- this
- is
- a
- test
- and
- some
- more

Actual Output:
- this


Mirc help says while nesting IS supported.

However, If I just take the above script and seperate it out line by line, then it does work:
alias echofile {
var %file = "C:\temp\hi.txt"
var %i = 1
while (%i <= $lines(%file)) {
tokenize 32 $read(%file, %i)
while ($1 != $null) {
echo - $1
tokenize $2-
}
inc %i
}
}

Why does not the one-liner version of the above script work correctly?

Another question:
If I want to iterate through a tokenized list, is there no other way except pushback (e.g., like in bash scripts)
In other words, how can I get this to work:

alias echowords {
var %i = 1
while (%i <= $0) {
echo Word %i is: $%i
inc %i
}
}
What should I replace "$%i" with to return the i'th token of $1- ??
The only other way I know of is this:
alias echowords {
var %i = 1
while ($1 != $null) {
echo word %i is: $1
tokenize 32 $2-
inc %i
}
}

But I consider this 'pushback' method undesirable... can it be avoided?

//var %file = "C:\temp\hi.txt", %i = 1 | while (%i <= $lines(%file)) { tokenize 32 $read(%file, %i) | while ($1 != $null) { echo - $1 | tokenize 32 $2- } | inc %i }

You've missed a 32 in the /tokenize command..This should not works even with multiple lines, but this may be due to the fact that /tokenize doesn't report any error...




you can use $($+($,%i),2)
or you can store $1- in a %variable and then use $gettok(%variable,%i,32)

Nesting question:

nesting is supported but the parser is bad with nesting multiple whiles *on one line*. You'll probably find that if you split them up to multiple, it will work out alright.

Pushback?

I don't know what "pushback" means, but you can easily loop through tokens via $gettok

- It's a known bug in the parser. I can't find the bug report at the moment but I'm sure I've seen it before. I guess it hasn't been given high priority because it's rare to nest while loops without using multiple lines. If you want you could report it again in the Bug Reports section just in case Khaled has forgotten about it.





- There are a number of ways. The most common would be to use either evaluation brackets or $eval().

ie.

or

I had no idea, but then I never tried it before now.

There was a mircscripts.org challenge practically based solely on this bug.