code:

---

for each $char in "hello world"
 ? $char
next

---

An idea for a new UDF :

code:

---

for each $char in CharArray("Hello World")
 ?$char
next

---

Split() does something similar but can't quite be used to convert strings into char arrays ... the string needs at least some kind of delimiter between chars (anyone?)

-Shawn

[ 25 November 2001: Message edited by: Shawn ]

code:

---

 
$String="hello world"
For $Count = 1 To Len($String) Step 1
  ? SUBSTR($String,$Count,1)
Next

---

-Shawn

the only thing my poor brain spits out right now is :

code:

---

;of course not working  
for each $char in "0123456789"
    $array[$char] = "whatever"
next

---

J.

_________________________

A good example. And I was thinking that this "new" way of viewing strings (as a collection of chars) could come in handy when scanning/parsing strings.

By way of a simplistic example, is one wanted to code the "infamous" reverse a string routine, one could do this:

code:

---

for each $char in "hello world"
 $reversed = $char + $reversed 
next

---

Here's the same routine, coded with a UDF:

code:

---

for each $char in CharArray("hello world")
 $reversed = $char + $reversed 
next

?"reversed=" $reversed

exit 1

Function CharArray($String)
 dim $len,$i
 $len = len($String)
 $CharArray = ""
 if $len = 0
  return
 endif
 dim $array[$len-1]
 for $i = 0 to $len-1
  $array[$i] = substr("$String",$i+1,1)
 next
 $CharArray = $array
EndFunction

---

-Shawn

! gnirts a gnisrever elpmaxe rof naem uoy ,ees I ... hhA

_________________________

Herr Shawn

Herr NTdoc

I'm voluntarily offering German-lessons!

Jens

P.S.: Damn, those Germans are everywhere

-Shawn

it's amazing how fast some posts can go to hell-in-a-handbasket eh ? (lol) - oh well - if we can't have some fun sometimes, what's the point of it all

[ 27 November 2001: Message edited by: Shawn ]