Couldn't fight the urge. Just had to figure out this array thing. Here goes:
code:
break on
DIM $array[10] ;assuming fewer than 12 entries
$x = 0
; Find headers in .pbk fileIF OPEN(1, "C:\kix\rasphone.pbk") = 0
$cl = ReadLine(1)
WHILE @ERROR = 0
if SUBSTR($cl, 1, 1) = "["
$array[$x] = SUBSTR($cl, 2, LEN($cl)-2)
? "Header $x = " $array[$x]
$x = $x + 1
ENDIF
$cl = ReadLine(1)
LOOP
ENDIF
$ = CLOSE(1)
get $
; Find phone number in each section
$x = 0
WHILE $array[$x] <> ""
$dev = ReadProfileString("C:\kix\rasphone.pbk", $array[$x], "PhoneNumber")
If @ERROR = 0
? "PhoneNumber = " + $dev
Endif
$x = $x + 1
LOOP
get $
I'm still lazy, so I left some for you.
_________________________
Give a man a fish and he will be back for more. Slap him with a fish and he will go away forever.
