AutoIt Français

Code : Tout sélectionner

#include-once
;===============================================================================
;
; Function Name:   _SQLite_QueryToHtmlTable
; Description:   Return HTML code of a table containing the SQLite table queried.
; Parameter(s):   $dataBase - An Open Database, Use -1 To use Last Opened Database
;                 $queryText - SQL Statement to be executed
;                 $tableName (Optional) - The table name to be writen in the HTML page (Default = "")
;                 $css (Optional) - 0 -> Generate css style sheet for a simple table
;                                   1 -> Better table designe (Default)
;                                   Any other value -> No table borders at all!
;                 $comment (Optional) - True -> Adds comment at begining and end of the HTML code
;                                               (like: <!-- Start HTML Code generated by _SQLite_QueryToHtmlTable() -->)
;                                       False -> Don't adds the comment
; Requirement(s):   sqlite.au3 ##(This UDF must be included AFTER sqlite.au3)##
; Return Value(s):   Success -> The HTML code
;                    Failure -> -1 : Problem in _SQLite_query()
;                               -2 : Problem in _SQLite_fetchNames()
;                               -3 : Problem in _SQLite_fetchData()
; Author(s):   Matwachich (matwachich@gmail.com)
;
;===============================================================================
;
Func _SQLite_QueryToHtmlTable($dataBase, $queryText, $tableName = "", $css = 1, $comment = True)
    Local $names, $rows, $i, $query, $ret

    If _SQLite_Query($dataBase, $queryText, $query) <> $SQLITE_OK Then
        Return -1
    EndIf

    If $comment <> 0 Then $ret &= "<!-- Start HTML Code generated by _SQLite_QueryToHtmlTable() -->" & @CRLF

    If $css = 0 Then
        $ret &= "<style>" & @CRLF
        $ret &= "<!--table"
        $ret &= "{"
        $ret &= "border-collapse: collapse;"
        $ret &= "}"
        $ret &= "th"
        $ret &= "{"
        $ret &= "border: 1px solid black;"
;~      $ret &= "background-color: gray;"
;~      $ret &= "color: white;"
        $ret &= "}"
        $ret &= "td"
        $ret &= "{"
        $ret &= "border: 1px solid black;"
        $ret &= "}-->"
        $ret &= @CRLF & "</style>" & @CRLF
    EndIf

    If $css = 1 Then
        $ret &= "<style>" & @CRLF
        $ret &= "<!--table"
        $ret &= "{"
        $ret &= "border-collapse: collapse;"
        $ret &= "}"
        $ret &= "th"
        $ret &= "{"
        $ret &= "border: 1px solid black;"
        $ret &= "background-color: gray;"
        $ret &= "color: white;"
        $ret &= "}"
        $ret &= "td"
        $ret &= "{"
        $ret &= "border: 1px solid black;"
        $ret &= "}-->"
        $ret &= @CRLF & "</style>" & @CRLF
    EndIf

    If $tableName <> "" Then $ret &= "<p> <strong> Query from table: " & $tableName & " </strong> </p>" & @CRLF
    $ret &= "<table>" & @CRLF

    If _SQLite_FetchNames($query, $names) <> $SQLITE_OK Then
        Return -2
    EndIf

    $ret &= "<tr>"
    For $i in $names
        $ret &= "<th>" & $i & "</th>"
    Next
    $ret &= "</tr>"

    While _SQLite_FetchData($query, $rows) = $SQLITE_OK
        If @error Then Return -3
        $ret &= "<tr>"
        For $i In $rows
            $ret &= "<td>" & $i & "</td>"
        Next
        $ret &= "</tr>"
    WEnd

    $ret &= @CRLF & "</table>" & @CRLF
    $ret &= "<p>Generated on " & @MDAY &"/"& @MON &"/"& @YEAR & " - " & @HOUR &":"& @MIN &":"& @SEC & "</p>"
    If $comment <> 0 Then $ret &= @CRLF & "<!-- End HTML Code generated by _SQLite_QueryToHtmlTable() -->"

    Return $ret
EndFunc
 

Code : Tout sélectionner

#include <SQLite.au3>
#include "SqliteQuerytoHtmlTable.au3"

;~ #AutoIt3Wrapper_Run_Debug_Mode=y
Dim $query, $row, $data

_SQLite_Startup()

_SQLite_Open(":memory:")

_SQLite_Exec(-1, "CREATE TABLE IF NOT EXISTS aTable(colonne1,colonne2)")
_SQLite_Exec(-1, "INSERT INTO aTable VALUES ('02','test 2');" & _
                    "INSERT INTO aTable VALUES ('01','test 1');" & _
                    "INSERT INTO aTable VALUES ('03','test 3');")

; ### Récupération des données dans la console de Scite ###
_SQLite_Query(-1, "SELECT ROWID,* FROM aTable ORDER BY colonne1 ASC;", $query)

_SQLite_FetchNames($query, $data)
ConsoleWrite("| " & $data[0] & @TAB & "| " & $data[1] & @TAB & "| " & $data[2] & @CRLF)

ConsoleWrite("-----------------------------------" & @CRLF)
While _SQLite_FetchData($query, $row) = $SQLITE_OK
    ConsoleWrite("| " & $row[0] & @TAB & "| " & $row[1] & @TAB & @TAB & "| " & $row[2] & @CRLF)
WEnd
ConsoleWrite("<-------------------------------------->" & @CRLF)

; ### Et maintenant, ecriture des données dans le fichier testhtml ###
$htmlCode = _SQLite_QueryToHtmlTable(-1, "SELECT ROWID,* FROM aTable ORDER BY ROWID ASC", "aTable")

$file = FileOpen("test.html", 2)
FileWrite($file, $htmlCode)
FileClose($file)

_SQLite_Close()
_SQLite_Shutdown()