HTML to AWS

[DirtDBaK]

I'm cleaning out my projects folder...

Get rid of 2007's scripts and make room for 2008

Needed this a while back and it's just been sitting around on my server.

Maybe it will help someone...

Enjoy

expandcollapse popup

;HTML to AWS
#include <GUIConstants.au3>
#include <File.au3>

#Region ### START Koda GUI section ### Form=
Global $Form1 = GUICreate("AWS & HTML tools || By DBaK ||", 633, 90)
Global $File = GUICtrlCreateInput("In File", 8, 8, 585, 21)
Global $Button1 = GUICtrlCreateButton("...", 600, 8, 27, 17, 0)
Global $Button2 = GUICtrlCreateButton("HTML to AWS", 8, 32, 193, 17, 0)
Global $Button3 = GUICtrlCreateButton("AWS to HTML", 400, 32, 193, 17, 0)
GUICtrlSetState(-1,$GUI_DISABLE)
Global $Save_as = GUICtrlCreateInput("Out File", 8, 56, 585, 21)
Global $Button4 = GUICtrlCreateButton("...", 600, 56, 25, 17, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button2
            HTML2AWS( GuiCtrlRead( $file ), GuiCtrlRead( $Save_as ) )
        Case $button1
            GuiCtrlSetData($file, File(0))
        Case $button4
            GuiCtrlSetData($save_as, File(1))
    EndSwitch
WEnd


Func HTML2AWS( $in, $out )
    If Not FileExists($in) Then 
        MsgBox(64, "Error", "File doesn't exist!")
        Return(0)
    Else
        ProgressOn( "HTML >> AWS", "Reading File", "Opening File", 0, 0 )
        $inhand = FileOpen($in, 0 )
        $lines = _FileCountLines( $in )
        If @Error = 1 then
            Msgbox(16, "Error", "File could not be opened or doesn't exist" )
            ProgressOff()
            Return(0)
        EndIf
        $outHand = FileOpen($out, 10 )
        $buffer = ''
        For $i = 1 to $lines step 1
            ProgressSet( $i/$lines*50, "Line "&$i&" of "&$lines)
            $tmp = FileReadLine( $inhand, $i )
            If $tmp <> "" or $tmp <> ' ' then $buffer = $buffer & "`" & $tmp
        Next
        If StringInStr( $buffer, "'") then
            ProgressSet( 50, "Replacing Single Quotes", "Checking File" )
            $buffer = StringReplace( $buffer, "'", '"' )
        Endif
        $a = StringSplit($buffer,"`")   ;Splippt up the file
        If Not ISArray( $a ) then 
            MsgBox(16, "Error", "Error Spliting File" )
            ProgressOff()
            Return(0)
        Else
            ProgressSet(50, "Writing Header", "Checking File" )
            FileWriteLine( $outhand, '#include <web.au3>'&@CRLF&'_StartWebApp_Session("Email Login")'&@CRLF )
            ;MsgBox(0, 'Number Of lines after SrtingSplit', "StringSplit Lines: "&$a[0] & " Actual Lines: " & $lines ) ;This wil check to see if the number of lines is the same
            For $x = 1 to $a[0] step 1
                if StringLen($a[$x]) >= 1 Then
                    FileWriteLine( $outhand, "Echo('"&$a[$x]&"')")
                Endif
            ProgressSet((($x/$a[0])*50)+50, "Writing File", "Creating AWS file" )
            Next
            ProgressSet(100, "Wrote "&$x&" lines of AWS code" )
        Endif
    Endif
    ProgressOff()
EndFunc    

Func File($typ = '0')
If $typ = '0' then
    Return(FileOpenDialog( "Select File", "Desktop", "Valid Files(*.html;*.htm;*.au3;*.aws;*.txt)|All(*.*)" ))
Endif
Return(FileSaveDialog( "Select File", "Desktop", "Valid Files(*.html;*.htm;*.au3;*.aws;*.txt)|All(*.*)" ))
EndFunc

Edited January 1, 2008 by DBak

[DaleHohm]

What is AWS?

http://en.wikipedia.org/wiki/Aws

Dale

[DirtDBaK]

AutoIt Web Script....

It just makes the HTML change from

<b>this is html</b>

into

Echo('<b>this is html</b>')

and it will also add this to the file

#include <web.au3>
_StartWebApp(' ')

Thought it might help out some web scripters that use frontpage/dreamweaver to generate thire HTML.

[Fabry]

where is the udf of Autoit web server?

thank

[DirtDBaK]

a search shows:

WebGui.au3 = http://www.autoitscript.com/forum/index.ph...t=0#entry423320

An Installer = http://www.autoitscript.com/forum/index.ph...5503&hl=web

You'll need Abyss Web Server X1 Google it...

[AutoItKing]

I did the same thing a while ago. But yours looks much better. It's in my sig.

[DirtDBaK]

Cool I made mine in about 20 mins. and I didn't even think to check the forum for one. Then afterwards I got to thinking why not post it...

Thanks for the feedback!