#131247 - 2004-12-15 01:06 PM
Re: Problem Emunerating directory
|
MCA
KiX Supporter
Registered: 2000-04-28
Posts: 5152
Loc: Netherlands, EU
|
Dear,
We run our program kixstrip which you can find on our site and which shows indeed you are missing two ENDIF statements: The result of our call: kistrip input.kix output.kix /block_check /show_errors shows Code:
$username=Dir ($nodepath) WHILE $username <> "" AND @error = 0 ?$username IF NOT InStr ($username,".") decrypt() SELECT CASE $cbousersort.text = "Name" $fullname=ReadProfileString ($nodepath+$username,"Primary","Fullname") IF InStr($fullname,$txtfind.text) $item=$listusers.items.add $item.subitems(0).text = ($transuserid) $item.subitems(1).text = ($fullname) CASE $cbousersort.text = "User ID#" IF InStr($transuserid,$txtfind.text) ?"Find User ID ="$Find $item=$listusers.items.add $item.subitems(0).text = ($transuserid) $item.subitems(1).text = ReadProfileString ($nodepath+$username,"Primary","Fullname") ENDSELECT ENDIF $username = Dir("") LOOP
;($begin) ; ; kixstrip 4.03e - kixtart 4.22 ; ; wed 15-dec-2004 12:58:15 ; ;Informative KIXSTRIP: input=23 output=23 skip=0 ; ;Warning KIXSTRIP: 2 errors in block structure(s). missing statement(s). ; - do:until [0:0] ; - for|each:in|to:step|next [0|0:0|0:0|0] ; - function:endfunction [0:0] ; -ERROR- - if:else:endif [3:0:1] ; - select:case:endselect [1:2:1] ; - while:loop [1:1] ;Warning KIXSTRIP: some lines contains errors or possible errors. ;Informative KIXSTRIP: 5 block_structures found. ;Informative KIXSTRIP: no UDF's found. ;Informative KIXSTRIP: no labels found. ;Summary KIXSTRIP: BREAK CALL DEBUG DISPLAY ENDFUNCTION EXECUTE EXIT FUNCTION GET GETS GOSUB GOTO OLExxx PLAY QUIT RETURN RUN SHELL SLEEP THEN USE ; ;($end) ;($begin) ; ; ;($end)
greetings.
|
Top
|
|
|
|
#131248 - 2004-12-15 02:46 PM
Re: Problem Emunerating directory
|
Kdyer
KiX Supporter
Registered: 2001-01-03
Posts: 6241
Loc: Tigard, OR
|
MCA is correct to a point..
You are missing more than just a couple of ENDIFs
You can clean up your code to be - Code:
WHILE $username <> "" AND @error = 0 ?$username IF NOT InStr ($username,".") decrypt() ;SELECT ;<< IS THIS NEEDED? ;CASE ;<< IS THIS NEEDED? $cbousersort.text = "Name" $fullname=ReadProfileString ($nodepath+$username,"Primary","Fullname") IF InStr($fullname,$txtfind.text) $item=$listusers.items.add $item.subitems(0).text = ($transuserid) $item.subitems(1).text = ($fullname) ELSE ;<< MISSING ELSE? $cbousersort.text = "User ID#" IF InStr($transuserid,$txtfind.text) ?"Find User ID ="$Find $item=$listusers.items.add $item.subitems(0).text = ($transuserid) $item.subitems(1).text = ReadProfileString ($nodepath+$username,"Primary","Fullname") ENDSELECT ENDIF $username = Dir("") ;ENDSELECT ;<< IS THIS NEEDED? ENDIF ; MISSING ENDIF LOOP
Thanks,
Kent
|
Top
|
|
|
|
Moderator: Glenn Barnas, NTDOC, Arend_, Jochen, Radimus, Allen, ShaneEP, Ruud van Velsen, Mart
|
0 registered
and 507 anonymous users online.
|
|
|