$W1 ="kixtart"
$count = Len($W1)
While $count <> 0
	? Left($W1,1)
	$count = $count - 1
	$W1 = Right($W1,$count)
Loop

Quote:

---

cool... but I need each letter to be defined as global variables...
somthing like "for each $lvar" do this and that...

---

$word = 'testword'
dim $letters[len($word)-1]
for $j = 0 to ubound($letters)
   $letters[$j] = substr($word,$j+1,1)
next

for each $letter in $letters
   ? $letter
next   

Break On

$word = 'testword'
Dim $letters[Len($word)-1]
For $j = 0 to Ubound($letters)
	$=Execute("$$Letters$j = SubStr($word,$j+1,1)")
Next

? 'Letter 1: '+$Letters0
? 'Letter 2: '+$Letters1

$=Execute("$$Letters$j = SubStr($word,$j+1,1)")

$=Execute("$" + "Letters" + $j + " = SubStr(" + $word + "," + $j + "+1,1)")code]





Edited by Chris S. (2005-07-12 11:47 PM)

Quote:

---

...once the "word" is "splited" into "letters" I need each letter defined in variable form...

e.g.

$l1 = "k"
$l2 = "i"
$l3 = "x"

and so on ...

---

Reverse("one") ?
Reverse("two") ?
Reverse("three") ?
Reverse("supercalifragilisticexpialidocious") ?
 
Function Reverse($s)
	While $s<>""
		$Reverse=Left($s,1)+$Reverse
		$s=SubStr($s,2)
	Loop
EndFunction