;FUNCTION 

;	vbs2Kix() 

; 

;AUTHOR 

;	Lonkero (Jooel_Nieminen@hotmail.com) 

; 

;ACTION 

;	Converts VBScript to kix 

; 

;VERSION 

;	0.5 

; 

;VERSION HISTORY 

;	0.5	10. October 2003	 - First UDF version and improved logic 

;	0.4	11. October 2002	 - Last script-style version coded 

;	0.3	11. October 2002	 - First version found named on board 

; 

;SYNTAX 

;	 vbs2KiX( SOURCE , DESTINATION ) 

; 

;PARAMETERS 

; 

;	SOURCE		- The VBScript file to translate 

;	DESTINATION	- Kix-script file where to save the code 

; 

;RETURNS 

;	nothing. check @error for success/failure. 

; 

;REMARKS 

;	you find something where this does not worky, please report 

;	I'm no VBS dude, so don't know what all need to be translated. 

; 

;DEPENDENCIES 

;	kixtart      

; 

;EXAMPLE 

;	"Running logonscript..." 

;	vbs2KiX(@ldrive+"\logon.vbs","%temp%\logon.kxs") 

;	if not @error 

;	 call "%temp%\logon.kxs" 

;	endif 

; 

; 

;SOURCE 

function vbs2KiX($src,$dst)

dim $file,$,$!,$_,$s,$t,$u,$c

 $file=freefilehandle if not $file exit 1 endif $=open($file,$src) if @error exit @error endif

 $=readline($file) redim $src while @error=0 $u=ubound($src)+1 redim preserve $src[$u] $src[$u]=$ $=readline($file) loop $=close($file)

 $file=0+freefilehandle if not $file exit 1 endif if exist($dst) del $dst endif $=open($file,$dst,5) if @error exit @error endif

 redim $dst[$u]



 for $=0 to $u

  $l=$src[$] $s="" $!=0 $_=len($l)

  for $!=1 to $_

   $c=substr($l,$!,1)

   select

    case $c='"' $s=$s+$c do if $!>=$_ $dst[$]=$s $=$+1 $l=$src[$] $s='' $!=0 $_=len($l) endif do $!=$!+1 $c=substr($l,$!,1) $s=$s+$c until $c='"' or $!=>$_ until $c='"' or $=$u

    case $c='"' $s=$s+$c do if $!>=$_ $dst[$]=$s $=$+1 $l=$src[$] $s='' $!=0 $_=len($l) endif do $!=$!+1 $c=substr($l,$!,1) $s=$s+$c until $c="'" or $!=>$_ until $c="'" or $=$u

    case $c="	" or $c=" " $s=$s+$c

    case $c="&" $s=$s+"+"

    case 1

	$t="" do $t=$t+$c $!=$!+1 $c=substr($l,$!,1) until instr(" 	",$c) $!=$!-1

	select

	 case $t="_" or $t="then" or $t="wscript.echo"

	 case $t="const"  do $!=$!+1 $c=substr($l,$!,1) until $c<>" " and $c<>"	" $!=$!-1 $s=$s+"Global $$"

	 case $t="dim"  do $!=$!+1 $c=substr($l,$!,1) until $c<>" " and $c<>"	" $!=$!-1 $s=$s+"Dim $$"

	 case $t="set"  do $!=$!+1 $c=substr($l,$!,1) until $c<>" " and $c<>"	" $!=$!-1 $s=$s+"$$"

	 case $t="wscript.quit" $s=$s+"Quit"

	 case $t="true" $s=$s+"not 0"

	 case $t="false" $s=$s+"not 1"

	 case $t+substr($l,$!,3)="end if" $s=$s+"EndIf"

	 case 1 $s=$s+$t

	endselect

   endselect

  next

  $dst[$]=$s

 next

 for $=0 to $u $!=writeline($file,$dst[$]+@crlf) next

endfunction