AutoIt Français

Code : Tout sélectionner

"SS,ID","MAC","RSSI","Mode","Encryption","Speed","PHY","Beacon","First Seen","Last Seen","Pairwise Ciphers","Group Ciphers","Key Management","SSID","MAC","RSSI","Mode","Encryption","Speed","PHY","Beacon","First Seen","Last Seen","Pairwise Ciphers","Group Ciphers","Key Management","Last Seen","Pairwise Ciphers","Group Ciphers","Key Management"
"d,link","00:19:5b:d8:7d:cc",-58,"BSS","WPA",54,"OFDM",100,1217778545,1217784946,"TKIP-CCMP","TKIP","PSK","dlink","00:19:5b:d8:7d:cc",-58,"BSS","WPA",54,"OFDM",100,1217778545,1217784946,"TKIP-CCMP","TKIP","PSK",1217784946,"TKIP-CCMP","TKIP","PSK"
"ZyXEL","00:13:49:a8:68:1d",-84,"BSS","WEP",54,"OFDM",100,1217778545,1217784946,"WEP","WEP","Not known","ZyXEL","00:13:49:a8:68:1d",-84,"BSS","WEP",54,"OFDM",100,1217778545,1217784946,"WEP","WEP","Not known",1217784946,"WEP","WEP","Not known"
"anMOTOS","00:18:4d:0c:ae:96",-84,"BSS","WEP",54,"OFDM",100,1217778566,1217784946,"WEP","WEP","Not known","anMOTOS","00:18:4d:0c:ae:96",-84,"BSS","WEP",54,"OFDM",100,1217778566,1217784946,"WEP","WEP","Not known",1217784946,"WEP","WEP","Not known"
"25cbfptuy8","00:0f:cc:39:7e:40",-84,"BSS","WEP",54,"OFDM",100,1217778606,1217784942,"WEP","WEP","Not known","25cbfptuy8","00:0f:cc:39:7e:40",-84,"BSS","WEP",54,"OFDM",100,1217778606,1217784942,"WEP","WEP","Not known",1217784942,"WEP","WEP","Not known"
"Macnet","00:18:4d:f6:a8:a8",-86,"BSS","WPA2",54,"OFDM",100,1217784807,1217784807,"CCMP","CCMP","PSK","Macnet","00:18:4d:f6:a8:a8",-86,"BSS","WPA2",54,"OFDM",100,1217784807,1217784807,"CCMP","CCMP","PSK",1217784807,"CCMP","CCMP","PSK"

Code : Tout sélectionner

#cs ----------------------------------------------------------------------------

 AutoIt Version : 3.2.12.0
 Auteur:         Tlem

 Fonction du Script :
    Conversion d'un fichier CVS vers HTML.

#ce ----------------------------------------------------------------------------
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

If $CmdLine[0] > 1 Then
    MsgBox(16, "Erreur", "Pas plus de 1 fichier à la fois  !")
    Exit (1)
EndIf

If $CmdLine[0] = 1 Then
    If StringLower(StringTrimLeft($CmdLine[1], StringLen($CmdLine[1])-3))<> "cvs" Then
    MsgBox(16, "Erreur", "Fichier .cvs seulement ..." & @TAB)
        Exit (1)
    EndIf
        
    _CVS2HTML($CmdLine[1], ",")
    Exit (0)
EndIf


#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("CVS2HTML", 280, 210, -1, -1, BitOR($WS_SYSMENU,$WS_CAPTION,$WS_POPUP,$WS_POPUPWINDOW,$WS_BORDER,$WS_CLIPSIBLINGS))
$File = GUICtrlCreateInput("Fichier.cvs", 16, 56, 225, 21)
$Nav = GUICtrlCreateButton("...", 245, 56, 20, 20, 0)

$Group1 = GUICtrlCreateGroup("Séparateur", 16, 88, 113, 105)
$Radio_1 = GUICtrlCreateRadio("Virgule", 32, 108, 80, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
$Radio_2 = GUICtrlCreateRadio("Point virgule", 32, 133, 80, 17)
$Radio_3 = GUICtrlCreateRadio("Tabulation", 32, 158, 80, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)

$Label1 = GUICtrlCreateLabel("CVS to HTML", 72, 8, 113, 24)
GUICtrlSetFont(-1, 12, 800, 4, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("Fichier à convertir : ", 16, 40, 97, 15)

$Lancer = GUICtrlCreateButton("Lancer", 144, 168, 59, 25, 0)
$Quitter = GUICtrlCreateButton("Quitter", 208, 168, 59, 25, 0)

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE, $Quitter
            Exit
        
        Case $Lancer
            $sFile = GUICtrlRead($File)
            If not $sFile = "" Or $sFile = "Fichier.cvs" Then
                If FileExists($sFile) Then
                    If BitAND(GUICtrlRead($Radio_1), $GUI_CHECKED) = $GUI_CHECKED Then
                        $Separator = ","
                    ElseIf BitAND(GUICtrlRead($Radio_2), $GUI_CHECKED) = $GUI_CHECKED Then
                        $Separator = ";"
                    Else
                        $Separator = "  "
                    EndIf
                
                    $Res = _CVS2HTML($sFile, $Separator)
                    
                    If $Res Then 
                        MsgBox(64,"CVS2HTML", "Fichier " & StringTrimRight ($sFile, 3) & "htm créé")
                    Else
                        MsgBox(16,"CVS2HTML", "Erreur à la création du fichier")
                    EndIf
                EndIf
            EndIf

        Case $Nav
            $Res = FileOpenDialog("Choisissez le fichier :", @HomeDrive, "Fichier cvs (*.cvs)", 3)
            If not @error then GUICtrlSetData($File, $Res)

    EndSwitch
WEnd

Func _CVS2HTML($File, $Separator)
    Local $Strtmp
    
    $Strtmp = '<HTML><HEAD>' & @CRLF & '<TITLE>' & $File & '</TITLE>' & @CRLF & _
    '</HEAD>' & @CRLF & '<BODY' & @CRLF & @CRLF & '<TABLE border="1">' & @CRLF
    
    $hFile = FileOpen($File, 0)

    While 1
        $Line = FileReadLine($hFile)
        If @error = -1 Then ExitLoop
        
        $Strtmp = $Strtmp & '   <TR>' & @CRLF

        $Res = StringSplit($Line, $Separator)
        For $i = 1 to $Res[0]
            $Strtmp = $Strtmp & '       <TD>' & $Res[$i] & '</TD>' & @CRLF
        Next

        $Strtmp = $Strtmp & '   </TR>' & @CRLF

    Wend

    $Strtmp = $Strtmp & '</TABLE>' & @CRLF & '</BODY>' & @CRLF & '</HTML>'

    FileClose($hFile)
    
    $hFile = FileOpen(StringTrimRight ($File, 3) & "htm", 1)
    $ResWrite = FileWrite($hFile, $Strtmp)
    FileClose($hFile)

    Return $ResWrite
EndFunc