Dear,
A lot of remarks about your example. Some have been made already.
- missing ENDIFs
- missing "right parenthesis" in ReadValue
- incomplete "double quotation"
To get those problems easily use our tool kixstrip400.exe, which you
can find on our site.
Our call kixstrip400 input.kix output.kix /block_check /show_errors /show_structure
results in
code:
$server=LOCALSERVER
IF INGROUP ("101")
GOTO "101"
IF INGROUP ("202")
GOTO "202"
:101
USE E: "\\SERVER\ESHARE"
USE F: "\\SERVER\FSHARE"
GOTO "GENERAL"
:202
USE E: "\\SERVER\ESHARE"
USE F: "\\SERVER\FSHARE"
;CHANGE UNINSTALL PATH FOR MCAFEE
$mcafee = Readvalue
"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{87AEFD84-BC0D-11D4-B885-00508B022A51}","InstallSource")
; -------> Warning KIXSTRIP: 17 line incomplete "right parenthesis".
; -------> Warning KIXSTRIP: 17 line incompleted.
IF $mcafee="\\\\SERVER1\\mcafee\\Win32\\"
ELSE
SHELL "$SERVER\REPOSITORY\MCAFEE\BATCH.BAT" $server"
; -------> Warning KIXSTRIP: 20 line incomplete "double quotation".
; -------> Warning KIXSTRIP: 20 line incompleted.
ENDIF
GOTO "GENERAL"
:general
;($begin)
;
; mon 11-mar-2002 04:11:52 (kix 4.00 vs 3.01e)
;
;Informative KIXSTRIP: input=28 output=28 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:1:1]
; - select:case:endselect [0:0:0]
; - while:loop [0:0]
;Warning KIXSTRIP: 2 lines are incompleted.
;Warning KIXSTRIP: some lines contains errors or possible errors.
; 1 line incomplete "double quotation".
; 1 line incomplete "right parenthesis".
; 2 line incompleted.
;Informative KIXSTRIP: 3 block_structures found.
;Informative KIXSTRIP: no UDF's found.
;Informative KIXSTRIP: 3 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
;Informative KIXSTRIP: 4 GOTO
;Informative KIXSTRIP: 1 SHELL
;Informative KIXSTRIP: 4 USE
;
;($end)
;($begin)
;
;Warning KIXSTRIP: 20 line incomplete "double quotation".
;Warning KIXSTRIP: 17 line incomplete "right parenthesis".
;Warning KIXSTRIP: 17, 20 line incompleted.
;
;($end)
A fast way can be something like
code:
GOTO end_of_script
;
; - your script-
;
:end_of_script
? "Informative KIX: end of script reached"
for verifying also possible problems with your script.
greetings.
btw: symbol
on our homepage has been linked to related http://kixtart.org topic.