Additional examples:

We are using the original kixtart script <i>notepad.kix</i>.

1. run kixstrip notepad1.kix notepad1.txt /nolicense

code:

  IF setconsole("hide")
  ENDIF
;
;     NT/95 logging - Kixtart 3.62
;
; (c) scripting@wanadoo.nl - 2000
;
;     vs 1.00 - program      (easily use notepad to open unknown file)
;
;     1.00  (20000715)       original version
;
  $prgm_version="1.00"
  IF (ExistKey("HKEY_CLASSES_ROOT\unknown") = 0)
    $result=AddKey("HKEY_CLASSES_ROOT\unknown\Shell")
    $result=AddKey("HKEY_CLASSES_ROOT\unknown\Shell\open")
    $result=AddKey("HKEY_CLASSES_ROOT\unknown\Shell\open\command")
  ENDIF
  ;
  $ikey="HKEY_CLASSES_ROOT\unknown\Shell\open"
  $ikey_ex=ENUMVALUE($ikey, 0)
  $default_notepad="Quickview with Notepad"
  IF (ExistKey($ikey+"\"+$ikey_ex) = 0)
    $result_data_type=ReadType($ikey, $ikey_ex)
  ELSE
    $result_data_type="REG_SZ"
  ENDIF
  IF (writevalue($ikey, $ikey_ex, $default_notepad, $result_data_type) = 0)
    IF (writevalue($ikey, $ikey_ex, $default_notepad, "REG_SZ") = 0)
    ENDIF
  ENDIF
  ;
  $ikey="HKEY_CLASSES_ROOT\unknown\Shell\open\command"
  $ikey_ex=ENUMVALUE($ikey, 0)
  $default_notepad_exe="notepad.exe %1"
  IF (ExistKey($ikey+"\"+$ikey_ex) = 0)
    $result_data_type=ReadType($ikey, $ikey_ex)
  ELSE
    $result_data_type="REG_SZ"
  ENDIF
  IF (writevalue($ikey, $ikey_ex, $default_notepad_exe, $result_data_type) = 0)
    IF (writevalue($ikey, $ikey_ex, $default_notepad_exe, "REG_SZ") = 0)
    ENDIF
  ENDIF
  break on
  flushkb
:end

code:

Kixstrip 3.62 (vs 1.35e)
 input                47 notepad1.kix
 output               35 notepad1.txt
 -skip-               12
 -blocks-              0
 -labels-              1

 license: (not.specified)

code:

IF setconsole("hide") ENDIF $prgm_version="1.00" IF (ExistKey("HKEY_CLASSES_ROOT\unknown") = 0) $result=AddKey("HKEY_CLASSES_ROOT\unknown\Shell") $result=AddKey("HKEY_CLASSES_ROOT\unknown\Shell\open") $result=AddKey("HKEY_CLASSES_ROOT\unknown\Shell\open\command") ENDIF $ikey="HKEY_CLASSES_ROOT\unknown\Shell\open" $ikey_ex=ENUMVALUE($ikey, 0) $default_notepad="Quickview with Notepad" IF (ExistKey($ikey+"\"+$ikey_ex) = 0) $result_data_type=ReadType($ikey, $ikey_ex) ELSE $result_data_type="REG_SZ" ENDIF IF (writevalue($ikey, $ikey_ex, $default_notepad, $result_data_type) = 0) IF (writevalue($ikey, $ikey_ex, $default_notepad, "REG_SZ") = 0) ENDIF ENDIF $ikey="HKEY_CLASSES_ROOT\unknown\Shell\open\command" $ikey_ex=ENUMVALUE($ikey, 0) $default_notepad_exe="notepad.exe %1" IF (ExistKey($ikey+"\"+$ikey_ex) = 0) $result_data_type=ReadType($ikey, $ikey_ex) ELSE $result_data_type="REG_SZ" ENDIF IF (writevalue($ikey, $ikey_ex, $default_notepad_exe, $result_data_type) = 0) IF (writevalue($ikey, $ikey_ex, $default_notepad_exe, "REG_SZ") = 0) ENDIF ENDIF break on flushkb 
  :end

2. example of reformatting source code.
run kixstrip notepad1.kix notepad1.txt /block_check /tab=5.

code:

IF setconsole("hide")
ENDIF
;
;     NT/95 logging - Kixtart 3.62
;
; (c) scripting@wanadoo.nl - 2000
;
;     vs 1.00 - program      (easily use notepad to open unknown file)
;
;     1.00  (20000715)       original version
;
$prgm_version="1.00"
 
IF (ExistKey("HKEY_CLASSES_ROOT\unknown") = 0)
$result=AddKey("HKEY_CLASSES_ROOT\unknown\Shell")
$result=AddKey("HKEY_CLASSES_ROOT\unknown\Shell\open")
$result=AddKey("HKEY_CLASSES_ROOT\unknown\Shell\open\command")
ENDIF
;
$ikey="HKEY_CLASSES_ROOT\unknown\Shell\open"
$ikey_ex=ENUMVALUE($ikey, 0)
$default_notepad="Quickview with Notepad"
IF (ExistKey($ikey+"\"+$ikey_ex) = 0)
$result_data_type=ReadType($ikey, $ikey_ex)
ELSE
$result_data_type="REG_SZ"
ENDIF
IF (writevalue($ikey, $ikey_ex, $default_notepad, $result_data_type) = 0)
IF (writevalue($ikey, $ikey_ex, $default_notepad, "REG_SZ") = 0)
ENDIF
ENDIF
;
$ikey="HKEY_CLASSES_ROOT\unknown\Shell\open\command"
$ikey_ex=ENUMVALUE($ikey, 0)
$default_notepad_exe="notepad.exe %1"
IF (ExistKey($ikey+"\"+$ikey_ex) = 0)
$result_data_type=ReadType($ikey, $ikey_ex)
ELSE
$result_data_type="REG_SZ"
ENDIF
IF (writevalue($ikey, $ikey_ex, $default_notepad_exe, $result_data_type) = 0)
IF (writevalue($ikey, $ikey_ex, $default_notepad_exe, "REG_SZ") = 0)
ENDIF
ENDIF
break on
flushkb
:end

code:

Kixstrip 3.62 (vs 1.35e)
 input                47 notepad2.kix
 output               47 notepad2.txt
 block_check             block_count=0 label=1 tab=5 (default)

 license: (not.specified)

code:

 IF setconsole("hide")
 ENDIF
 ;
 ;     NT/95 logging - Kixtart 3.62
 ;
 ; (c) scripting@wanadoo.nl - 2000
 ;
 ;     vs 1.00 - program      (easily use notepad to open unknown file)
 ;
 ;     1.00  (20000715)       original version
 ;
 $prgm_version="1.00"
  
 IF (ExistKey("HKEY_CLASSES_ROOT\unknown") = 0)
      $result=AddKey("HKEY_CLASSES_ROOT\unknown\Shell")
      $result=AddKey("HKEY_CLASSES_ROOT\unknown\Shell\open")
      $result=AddKey("HKEY_CLASSES_ROOT\unknown\Shell\open\command")
 ENDIF
 ;
 $ikey="HKEY_CLASSES_ROOT\unknown\Shell\open"
 $ikey_ex=ENUMVALUE($ikey, 0)
 $default_notepad="Quickview with Notepad"
 IF (ExistKey($ikey+"\"+$ikey_ex) = 0)
      $result_data_type=ReadType($ikey, $ikey_ex)
 ELSE
      $result_data_type="REG_SZ"
 ENDIF
 IF (writevalue($ikey, $ikey_ex, $default_notepad, $result_data_type) = 0)
      IF (writevalue($ikey, $ikey_ex, $default_notepad, "REG_SZ") = 0)
      ENDIF
 ENDIF
 ;
 $ikey="HKEY_CLASSES_ROOT\unknown\Shell\open\command"
 $ikey_ex=ENUMVALUE($ikey, 0)
 $default_notepad_exe="notepad.exe %1"
 IF (ExistKey($ikey+"\"+$ikey_ex) = 0)
      $result_data_type=ReadType($ikey, $ikey_ex)
 ELSE
      $result_data_type="REG_SZ"
 ENDIF
 IF (writevalue($ikey, $ikey_ex, $default_notepad_exe, $result_data_type) = 0)
      IF (writevalue($ikey, $ikey_ex, $default_notepad_exe, "REG_SZ") = 0)
      ENDIF
 ENDIF
 break on
 flushkb
:end

3. example of checking source code.
run kixstrip notepad1.kix notepad1.txt /block_check /tab=5.
There are added three mistakes:


  • warning 1: a bracket too must.
    IF (ExistKey("HKEY_CLASSES_ROOT\unknown") = 0)) ; - warning 1 -
  • warning 2: during execution it checks the about of brackets in the same
    line. in this case it doesn't first find the last one and secondly it
    doesn't find the firts one.
    $result_data_type=ReadType($ikey,
    $ikey_ex) ; - warning 2 -
  • warning 3: spelling failure in ENDIF statement.
    EENDIF ; - warning 3 -

code:

IF setconsole("hide")
ENDIF
;
;     NT/95 logging - Kixtart 3.62
;
; (c) scripting@wanadoo.nl - 2000
;
;     vs 1.00 - program      (easily use notepad to open unknown file)
;
;     1.00  (20000715)       original version
;
$prgm_version="1.00"
 
IF (ExistKey("HKEY_CLASSES_ROOT\unknown") = 0)) ; - warning 1 -
$result=AddKey("HKEY_CLASSES_ROOT\unknown\Shell")
$result=AddKey("HKEY_CLASSES_ROOT\unknown\Shell\open")
$result=AddKey("HKEY_CLASSES_ROOT\unknown\Shell\open\command")
ENDIF
;
$ikey="HKEY_CLASSES_ROOT\unknown\Shell\open"
$ikey_ex=ENUMVALUE($ikey, 0)
$default_notepad="Quickview with Notepad"
IF (ExistKey($ikey+"\"+$ikey_ex) = 0)
$result_data_type=ReadType($ikey,
                           $ikey_ex) ; - warning 2 -
ELSE
$result_data_type="REG_SZ"
EENDIF ; - warning 3 -
IF (writevalue($ikey, $ikey_ex, $default_notepad, $result_data_type) = 0)
IF (writevalue($ikey, $ikey_ex, $default_notepad, "REG_SZ") = 0)
ENDIF
ENDIF
;
$ikey="HKEY_CLASSES_ROOT\unknown\Shell\open\command"
$ikey_ex=ENUMVALUE($ikey, 0)
$default_notepad_exe="notepad.exe %1"
IF (ExistKey($ikey+"\"+$ikey_ex) = 0)
$result_data_type=ReadType($ikey, $ikey_ex)
ELSE
$result_data_type="REG_SZ"
ENDIF
IF (writevalue($ikey, $ikey_ex, $default_notepad_exe, $result_data_type) = 0)
IF (writevalue($ikey, $ikey_ex, $default_notepad_exe, "REG_SZ") = 0)
ENDIF
ENDIF
break on
flushkb
:end

By run: kixstrip notepad3.kix notepad3.txt /block_check /tab=5

code:

Kixstrip 3.62 (vs 1.35e)
 input                48 notepad3.kix
 output               48 notepad3.txt
 block_check     -ERROR- block_count=1 label=1 tab=2 (default)
 Warning KIXSTRIP:     1 block is incompleted.
 license: (not.specified)

By run: kixstrip notepad3.kix notepad3.txt
code:

Kixstrip 3.62 (vs 1.35e)
 Warning KIXSTRIP:    14 line incompleted.
 Warning KIXSTRIP:    24 line incompleted.
 Warning KIXSTRIP:    25 line incompleted.
 input                48 notepad3.kix
 output               36 notepad3.txt
 -skip-               12
 -blocks-              0
 -labels-              1
 Warning KIXSTRIP:     1 block is incompleted.
 Warning KIXSTRIP:     3 lines are incompleted.
 license: MCA - scripting@wanadoo.nl - 2000

code:

 IF setconsole("hide")
 ENDIF
 ;
 ;     NT/95 logging - Kixtart 3.62
 ;
 ; (c) scripting@wanadoo.nl - 2000
 ;
 ;     vs 1.00 - program      (easily use notepad to open unknown file)
 ;
 ;     1.00  (20000715)       original version
 ;
 $prgm_version="1.00"
  
 IF (ExistKey("HKEY_CLASSES_ROOT\unknown") = 0)) ; - warning 1 -
      $result=AddKey("HKEY_CLASSES_ROOT\unknown\Shell")
      $result=AddKey("HKEY_CLASSES_ROOT\unknown\Shell\open")
      $result=AddKey("HKEY_CLASSES_ROOT\unknown\Shell\open\command")
 ENDIF
 ;
 $ikey="HKEY_CLASSES_ROOT\unknown\Shell\open"
 $ikey_ex=ENUMVALUE($ikey, 0)
 $default_notepad="Quickview with Notepad"
 IF (ExistKey($ikey+"\"+$ikey_ex) = 0)
      $result_data_type=ReadType($ikey,
      $ikey_ex) ; - warning 2 -
 ELSE
      $result_data_type="REG_SZ"
      EENDIF ; - warning 3 -
      IF (writevalue($ikey, $ikey_ex, $default_notepad, $result_data_type) = 0)
           IF (writevalue($ikey, $ikey_ex, $default_notepad, "REG_SZ") = 0)
           ENDIF
      ENDIF
      ;
      $ikey="HKEY_CLASSES_ROOT\unknown\Shell\open\command"
      $ikey_ex=ENUMVALUE($ikey, 0)
      $default_notepad_exe="notepad.exe %1"
      IF (ExistKey($ikey+"\"+$ikey_ex) = 0)
           $result_data_type=ReadType($ikey, $ikey_ex)
      ELSE
           $result_data_type="REG_SZ"
      ENDIF
      IF (writevalue($ikey, $ikey_ex, $default_notepad_exe, $result_data_type) = 0)
           IF (writevalue($ikey, $ikey_ex, $default_notepad_exe, "REG_SZ") = 0)
           ENDIF
      ENDIF
      break on
      flushkb
:end
;
;                   sat 29-jul-2000 04:17:52
;
;Warning KIXSTRIP:    1 block is incompleted.

Greetings.
MCA

_________________________
email scripting@wanadoo.nl homepage scripting@wanadoo.nl | Links | Summary of Site Site KiXforms FAQ kixtart.org library collection mirror MCA | FAQ & UDF help file UDF kixtart.org library collection mirror MCA | mirror USA | mirror europe UDF scriptlogic library collection UDFs | mirror MCA