Code : Tout sélectionner
#Include <File.au3>
#include <Array.au3>
#include <GUIConstantsEx.au3>
#include <GuiListView.au3>
#include <Misc.au3>
#include <Constants.au3>
$Debug_LV = False ; Check ClassName being passed to ListView functions, set to True and use a handle to another control to see it work
Global $aTableau1, $Path, $Date, $Station, $PointMesure, $NomFichier, $Extension, $FullPathFile, $nb_col
; # Déclaration du chemin # ===========================================================================================
$Path = @ScriptDir & "\"
$NomFichier = "2"
$Extension = ".csv"
$FullPathFile = $Path & $NomFichier & $Extension
; #FUNCTION _CSV2Array# ===================================================================
; Name ..........: _CSV2Array
; Description ...:
; AutoIt Version : V3.3.0.0
; Syntax ........: _CSV2Array($hFile[, $cSeperator = "auto"[, $bFilterString = True[, $iColumnMode = 0]]])
; Parameter(s): .: $hFile - Handle for the CSV file to Read
; $cSeperator - Optional: (Default = "auto") : Tries to find the separator char (; or , or TAB or | or space)
; | Data-seperator-char
; | Empty-string = Opt("GUIDataSeparatorChar")
; $bFilterString - Optional: (Default = True) : Removes leading and trailing " or '
; $iColumnMode - Optional: (Default = 0) :
; | 0: Sets error if lines have different columns and @extended to the csv-line number
; | 1: returns lines with different columns numbers comparing to the first line, too
; | 2: removing all columns > column numbers in the first line
; Return Value ..: Success - 2-dim Array
; Failure - 0
; @ERROR - 1: error file read
; @ERROR - 2: different number of columns / @EXTENDED = CSV-line
; - 3: parameter error
; Author(s) .....: Thorsten Willert
; Date ..........: Mon Dec 07 18:59:46 CET 2009
; ==============================================================================
Func _CSV2Array($hFile, $cSeperator = ";", $bFilterString = True, $iColumnMode = 0)
Local $s = FileRead($hFile)
If @error Then Return SetError(1)
If $cSeperator = Default Then $cSeperator = "auto"
If Not $cSeperator Then $cSeperator = Opt("GUIDataSeparatorChar")
; searching the line-seperator and splitting the lines into an array
Local $aLines
If StringInStr($s, @CRLF) Then
$aLines = StringSplit($s, @CRLF, 1)
ElseIf StringInStr($s, @CR) Then
$aLines = StringSplit($s, @CR)
Else
$aLines = StringSplit($s, @LF)
EndIf
; searching the delimiter in the first line
Local $aTMP
If $cSeperator = "auto" Then
Local $iMax = 0
Local $iC[5] = [0, 0, 0, 0, 0]
Local $sC[5] = [";", ",", @TAB, "|", " "]
$aTMP = StringRegExp($aLines[1], ";", 3)
If Not @error Then $iC[0] = UBound($aTMP)
$aTMP = StringRegExp($aLines[1], ",", 3)
If Not @error Then $iC[1] = UBound($aTMP)
$aTMP = StringRegExp($aLines[1], "\t", 3)
If Not @error Then $iC[2] = UBound($aTMP)
$aTMP = StringRegExp($aLines[1], "\|", 3)
If Not @error Then $iC[3] = UBound($aTMP)
$aTMP = StringRegExp($aLines[1], "[ ]", 3)
If Not @error Then $iC[4] = UBound($aTMP)
For $i = 4 To UBound($sC) - 1
If $iC[$i] > $iMax Then
$iMax = $iC[$i]
$cSeperator = $sC[$i]
EndIf
Next
EndIf
; creating 2-dim array based on the number of data in the first line
$aTMP = StringSplit($aLines[1], $cSeperator)
Local $iCol = $aTMP[0]
Local $aRet[$aLines[0]][$iCol]
; splitting and filling the lines
For $i = 1 To $aLines[0]
$aTMP = StringSplit($aLines[$i], $cSeperator)
If @error Then ContinueLoop
If $aTMP[0] > $iCol Then
Switch $iColumnMode
Case 0
Return SetError(2, $i)
Case 1
ReDim $aRet[$aLines[0] - 1][$aTMP[0]]
Case 2
$aTMP[0] = $iCol
Case Else
Return SetError(3)
EndSwitch
EndIf
For $j = 1 To $aTMP[0]
$aTMP[$j] = StringStripWS($aTMP[$j], 3)
; removing leading and trailing " or '
If $bFilterString Then $aTMP[$j] = StringRegExpReplace($aTMP[$j], '^("|'')(.*?)\1$', '$2')
$aRet[$i - 1][$j - 1] = $aTMP[$j]
Next ; /cols
Next ; /lines
Return $aRet
EndFunc ;==>_CSV2Array
$array = _CSV2Array($FullPathFile)
$nb_colonnes = UBound($array, 2)
$ligne1 = ""
For $i = 0 to UBound($array, 2)-1 ; nb de colonnes
$ligne1 &= $array[0][$i] & "|"
Next
$ligne1 = StringTrimRight($ligne1, 1) ; pour enlever le dernier "|"
$Nb_Lignes = _FileCountLines($FullPathFile)
;************************************************************************************************************
_LancementGUI()
Func _LancementGUI()
$array = _CSV2Array($FullPathFile)
$nb_colonnes = UBound($array, 2)
$ligne1 = ""
For $i = 0 to UBound($array, 2)-1 ; nb de colonnes
$ligne1 &= $array[0][$i] & "|"
Next
$ligne1 = StringTrimRight($ligne1, 1) ; pour enlever le dernier "|"
$nb_lignes = _FileCountLines($FullPathFile)
Local $msg2
$GUI1 = GUICreate("", 1200, 800, -1, -1, -1, -1)
;**** Création de ma ListView ****
$hListView = GUICtrlCreateListView($ligne1, 5, 33, 1190, 750, BitOR($LVS_SHOWSELALWAYS, $LVS_REPORT))
_GUICtrlListView_SetExtendedListViewStyle($hListView, BitOR($LVS_EX_GRIDLINES, $LVS_EX_FULLROWSELECT, $LVS_EX_SUBITEMIMAGES))
; GUICtrlSetBkColor($hListView, 0xffff88) ; couleur de fond
GUICtrlSetBkColor($hListView, $GUI_BKCOLOR_LV_ALTERNATE)
Dim $aItems[$nb_lignes]
For $i = 0 To $nb_lignes - 2
For $j = 0 to $nb_colonnes - 1
$aItems[$i] &= $array[$i+1][$j] & "|"
Next
$aItems[$i] = StringTrimRight($aItems[$i], 1)
GUICtrlCreateListViewItem($aItems[$i], $hListView)
If Mod($i, 2) <> 0 Then GUICtrlSetBkColor(-1, 0xdddddd)
Next
For $c = 0 to $nb_colonnes - 1
_GUICtrlListView_SetColumn($hListView, $c, $array[0][$c])
GUICtrlSendMsg($hListView, $LVM_SETCOLUMNWIDTH, $c, 150)
Next
GUISetState()
While 1
$msg2 = GUIGetMsg()
If $msg2 = $GUI_EVENT_CLOSE Then ExitLoop
WEnd
EndFunc