Quote:

---

what is lexer?
what you mean for kix?

---

Quote:

---

idk - I think the VBS to KIX script would be your best starting point. Don't look directly into the PostPrep Kix2Html function - you'll go blind (I did).

---

Quote:

---

so, you looking for converting from kix or to kix?

---

 ; Based on Jooel's VBS2Kix Script

Break On
Kix2VBS("test.kix","test.vbs")

function Kix2VBS($src,$dst)
    dim $file,$,$Counter,$LineLength,$String,$t,$u,$Character
    $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
        $Line=$src[$]
        ? "Line: >"+$Line+"<"
        $String=""
        $Counter=0

        $Line=Replace($Line, "@@Error", "Err.Number")
        $Line=Replace($Line, "@@SError", "Err.Description")
        $Line=Replace($Line, "EndIf", "End If")
        $Line=Replace($Line, "EndFunction", "End Function")
        $Line=Replace($Line, "$$", "var")
        $Line=Replace($Line, "?", "wscript.echo")

        ? "Line: >"+$Line+"<"
        $LineLength=len($Line)

        for $Counter=1 to $LineLength
            $Character=substr($Line,$Counter,1)
            ;? "Current beginning char is >"+$Character+"<"
            select
                ; Strings encased in dbl quotes
                case $Character='"'
                    $String=$String+$Character
                    do
                        if $Counter>=$LineLength
                            $dst[$]=$String
                            $=$+1
                            $Line=$src[$]
                            $String=''
                            $Counter=0
                            $LineLength=len($Line)
                        endif
                        do
                            $Counter=$Counter+1
                            $Character=substr($Line,$Counter,1)
                            $String=$String+$Character
                        until $Character='"' or $Counter=>$LineLength
                    until $Character='"' or $=$u

                ; Spaces
                case $Character="	" or $Character=" "
                    $String=$String+$Character

                ; Concantenation Char
                case $Character="+"
                    $String=$String+"&"

                ; Comments
                case $Character=";"
                    ? "Found comment"
                    $String=$String+"'"

                case 1
                	$t=""
                    $bitDQ=0
                    $bitSQ=0
                    $TTP=""

                    ;? "LL "$LineLength
                    ;? "CT "$Counter
                    For $i=1 to $LineLength
                        $Char=Substr($Line,$i,1)
                        ;? "Char>"+$Char+"<"
                        $TTP=$TTP+$Char
                        Select
                            ; Apostrophe
                            ;1=DQ active
                            ;2=DQ master
                            ;4=SQ active
                            ;8=SQ master

                            ;3=DQ active master
                            ;7=DQ active master, SQ active lesser
                            ;12=SQ active master
                            ;13=SQ active master, DQ active lesser

                            Case $Char="'" and $bitDQ=1 and $bitSQ=1

                            Case $Char='"' and $bitDQ=0 ;out of a dq block
                                $bitDQ=1
                                ? "Entering a DQ string>"+$TTP+"<"

                            Case $Char="'" and $bitSQ=0 ;out of a sq block
                                $bitSQ=1
                                ? "Entering a SQ string>"+$TTP+"<"
                            Case $Char='"' and $bitDQ=1 ;in a dq block
                                $bitDQ=0
                                ? "Exiting a DQ string>"+$TTP+"<"
                            Case $Char="'" and $bitSQ=1 ;in a sq block
                                $bitSQ=0
                                ? "Exiting a SQ string>"+$TTP+"<"
                            Case 1

                        EndSelect
                    Next

                    do
                        $t=$t+$Character
                        $Counter=$Counter+1
                        $Character=substr($Line,$Counter,1)
                    until $Counter=>$LineLength+1;instr(" 	",$Character);
                    $Counter=$Counter-1

                    ? "T is >"+$t+"<"

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

                        ; Remove Break On
                         case Substr(Ltrim($t),1,8)="Break On"
                            $t=Replace($t,"Break On","")
                            $String=$String+$t ;+" ' VBC: Removed Break On"

                         ; Global to Dim
                         case Substr(Ltrim($t),1,6)="global"
                            $t=Replace($t,"global","Dim")
                            ? "G"
                            ? "T is Now>"+$t+"<"
                            $String=$String+$t+" ' VBC: Converted from a global"

                    	 ; Add Set to objects
                    	 Case instr($t,"CreateObject") or instr($t,"GetObject")
                            $String=$String+"Set "+$t

                    	 ; Handle Optionals
                         Case Substr(Ltrim($t),1,8)="Function"
;                             While Instr($t,"Optional")<>0
;                                 $pstart=Instr($t,"Optional")
;                                 $parm=Substr($t,$pstart)
;                                 $parm=Trim(Substr($t,9))
;                                 ? "parm>"+$parm+"<"
;
;                             Loop

                            ;If Not IsNull(optViewOutput) Then
                            ;End If
                            $String=$String+"dim"

                    	 case $t="set"
                            do
                                $Counter=$Counter+1
                                $Character=substr($Line,$Counter,1)
                            until $Character<>" " and $Character<>"	"
                            $Counter=$Counter-1
                            $String=$String+"$$"

                         case $t="quit"
                            $String=$String+"wscript.quit"

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

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

                    	 case $t+substr($Line,$Counter,3)="endif"
                            $String=$String+"end if"

                    	 case 1
                            $String=$String+$t
                	endselect
           endselect
        next
        $dst[$]=$String
    next

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

endfunction


; Function Replace()
;
; Author      Randy Watson (aerathistorm@yahoo.com)
;
; Action      Replaces first or all occurrences of one string with another
;
; Syntax      Replace(Source, SearchString, ReplaceString, First, CaseSensitive)
;
; Parameters
;         Source
;            String to search
;         SearchString
;            String being replaced
;         ReplaceString
;            New string
;         First (Optional)
;            Pass the value 1 to replace only first occurrence. Default is replace all.
;         CaseSensitive (Optional)
;            Pass the value 1 to turn on case sensitivity. Default is off.
;
; Returns
;         Returns the new string.
;
; Remarks
;
;
; Dependencies
;         None
;
; Example(s)
;         Replace all occurences of a non case sensative string with another:
;$StringSource = "Three Apples + four apples makes seven apples"
;$StringSearch = "apple"
;$StringReplace = "orange"
;$StringReplaced = Replace($StringSource, $StringSearch, $StringReplace)
;? "Original string: $StringSource"
;? "New string: $StringReplaced"
;         Replace only the first case sensative occurrence:
;$StringReplaced = Replace($StringSource, $StringSearch, $StringReplace, 1, 1)
;? "Original string: $StringSource"
;? "New string: $StringReplaced"; Source:
;Exit
Function Replace($SourceString, $SearchString, $ReplaceString, Optional $First, Optional $CaseSensitive)
   Dim $String1
   Dim $String2
   Dim $Finished   $Finished = 0
   $Counter = 0
   $String1 = $SourceString
   If $CaseSensitive
      $PreviousState = SetOption("CaseSensitivity", "On")
   EndIf
   While Not $Finished
      $String2 = $String1
      $Location = InStr($String1, $SearchString)
      If $Location > 0
         $String1 = Substr($String1, 1, $Location - 1) + $ReplaceString + Substr($String1, $Location + Len($SearchString))
      Else
         $Finished = 1
      EndIf
      If $First
         $Finished = 1
      EndIf
      If $String1 = $String2
         $Finished = 1
      EndIf
   Loop
   $Replace = $String1
   $Nul = SetOption("CaseSensitivity", $PreviousState)
EndFunction

 

writeline(1,"blaah")

writeline(1,"blaah" +
"blaah blaah" +
"blaah,
blaah, blaah blaah")