Untitled

#include <File.au3>

Func TB($Tabs)
    $Ind = 0
    $Val = ""
    While($Ind < $Tabs)
        $Val = $Val & "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"
        $Ind += 1
    WEnd
    Return($Val)
EndFunc

$Open = FileOpenDialog ("Set input file", @WorkingDir, "XSI (*.xsi; *.x)", 3, "ivtank00.xsi")
If @Error Then
    Exit
EndIf
$SaveName = FileSaveDialog("Set output file", @WorkingDir, "HTML (*.htm)", 2, "XSI test.htm")
$Open = FileOpen($Open,0)
_FileCreate($SaveName)
$Save = FileOpen($SaveName,1)
$Tab = 0
$Q = Chr(34)
$Color = "#00FF00"
FileWrite($Save,"<body bgcolor=" & $Q & "#000000" & $Q & "> " & @CRLF)
While(1)
    $Line = FileReadLine($Open)
    If @error = -1 Then
        ExitLoop
    EndIf
    $Color = "#00FF00" ; Default color
    If StringInStr($Line, "{") Then
        $Tempv = StringReplace(StringReplace(StringReplace(StringReplace($Line,"{", ""), " ", ""),@Tab,""),"frm-"," frm-")
                ; COLORS
                ; Basic stuff
                If Not StringInStr($Tempv, "Frame") And $Tab == 0 Then
                    $Color = "#0000FF"
                EndIf
                ; Frame stuff
                If StringInStr($Tempv, "Frame Frm-") Or StringInStr($Tempv, "FrameTransformMatrix") Then
                    $Color = "#FF0000"
                EndIf
                ; Texture stuff
                If StringInStr($Tempv, "MeshMaterialList") Or StringInStr($Tempv, "SI_MeshTextureCoords") Or StringInStr($Tempv, "SI_Material") Or StringInStr($Tempv, "SI_Texture2D") Then
                    $Color = "#FFFF00"
                EndIf
                ; END COLORS
        If StringInStr($Tempv, "Mesh") And (Not StringInStr($Tempv, "MeshMaterialList")) And (Not StringInStr($Tempv, "SI_MeshNormals")) And (Not StringInStr($Tempv, "SI_MeshTextureCoords")) Then
            $Tempv = StringReplace($Tempv,"Mesh","Mesh ")
        EndIf
        FileWrite($Save,"<font color=" & $Q & $Color & $Q & ">" & TB($Tab) & $Tempv & @CRLF & "</font></br>")
        $Tab += 1
    ElseIf StringInStr($Line, "}") Then
        $Tab -= 1
    EndIf
WEnd
FileWrite($Save,"</body>")
FileClose($Open)
FileClose($Save)
Beep(3000,100)
Beep(4000,100)
Beep(5000,100)
Exit