AutoIt Français

#include <GuiConstants.au3>
#include <File.au3>
#include <GuiTreeView.au3>
#include <IE.au3>

GuiCreate("CSV to Treeview Test", 420, 350)

$Label = GuiCtrlCreateLabel("CSV to Treeview Test", 10, 10, 170, 30, $SS_CENTER)
$Tree = GuiCtrlCreateTreeview(10, 50, 400, 280)

$csv_file= "file.csv"
Dim $csv_array
global $link_array[0][2]

_FileReadToArray($csv_file, $csv_array,1,";")

$count_lines = _FileCountLines($csv_file)
$temp1 = ""
$temp3 = ""
global $title_ID[1][2]
global $sub_ID[1][2]
global $sub2_ID[1][2]
For $i = 1 to $count_lines

$temp2 = $csv_array[$i][0]

If $temp2 <> $temp1 Then
$temp1 = $temp2
$title = GUICtrlCreateTreeViewItem($csv_array[$i][0], $tree)
_ArrayAdd($title_ID,$title&";"&$csv_array[$i][1],0,";")
EndIf

If $temp2 = $csv_array[$i][0] AND $temp3 <> $csv_array[$i][2] Then
$subtitle = GUICtrlCreateTreeViewItem($csv_array[$i][2], $title)
$temp3 = $csv_array[$i][2]
_ArrayAdd($sub_ID,$subtitle &";"&$csv_array[$i][3],0,";")
EndIf

If $temp2 = $csv_array[$i][0] AND $temp3 = $csv_array[$i][2] Then
$subtitle2 = GUICtrlCreateTreeViewItem($csv_array[$i][4], $subtitle)
$temp3 = $csv_array[$i][2]
_ArrayAdd($sub2_ID,$subtitle2&";"&$csv_array[$i][5],0,";")
EndIf
Next

GuiSetState()
While 1
$msg = GuiGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case Else
For $i = 1 to UBound($title_ID) -1
If $Msg = $title_ID[$i][0] Then

Local $oIE = _IECreate($title_ID[$i][1])
$focus = $title_ID[$i][0]
_IENavigate($oIE, $title_ID[$i][1])
EndIf
Next
For $j = 1 to UBound($sub_ID) -1
If $Msg = $sub_ID[$j][0] Then

Local $oIE = _IECreate($sub_ID[$j][1])
_IENavigate($oIE, $sub_ID[$j][1])
EndIf
Next
For $k = 1 to UBound($sub2_ID) -1
If $Msg = $sub2_ID[$k][0] Then
$focus = $sub2_ID[$k][0]
Local $oIE = _IECreate($sub_ID[$i][1])
_IENavigate($oIE, $sub2_ID[$k][1])

EndIf
Next
EndSelect
WEnd