► Afficher le texteFichier .cvs modèle
Le fichier .cvs est de ce type :
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"► Afficher le texteCode du script
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