Code : Tout sélectionner
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <MsgBoxConstants.au3>
#include <GUIConstants.au3>
#include <GUIListview.au3>
#include <File.au3>
#include <Array.au3>
$Form1 = GUICreate("Version", 511, 636, 192, 124)
$List1 = GUICtrlCreateListView("Version", 32, 192, 345, 383)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 324)
$quit = GUICtrlCreateButton("Exit", 240, 584, 121, 41, $WS_GROUP)
$Button5 = GUICtrlCreateButton("Modifier", 384, 432, 113, 33, $WS_GROUP)
GUISetState(@SW_SHOW)
Global $file = "C:\temp\ids.txt", $Countfile = _FileCountLines($file), $fileHandle = FileOpen($file)
Global $res, $var1, $tempID, $fSortSense = False
For $i = 1 To $Countfile
$var1 = FileReadLine($fileHandle, $i)
$res = StringSplit($var1, @TAB)
$tempID = GUICtrlCreateListViewItem($res[1], $List1)
If $res[2] = "" Then
GUICtrlSetBkColor(-1, 0xFFFFCC)
Else
;GUICtrlSetBkColor(-1,$COLOR_GREEN)
EndIf
Next
_GUICtrlListView_SimpleSort($List1, $fSortSense, 0, False)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $quit
Exit
Case $Button5
Call("_mod")
EndSwitch
WEnd
Func _mod()
$Form3 = GUICreate("Modification", 430, 291, 325, 240)
$Label11 = GUICtrlCreateLabel("Version", 40, 16, 354, 41)
GUICtrlSetFont(-1, 18, 400, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("IUD", 40, 80, 83, 17)
$Label4 = GUICtrlCreateLabel("Version Logiciel", 40, 144, 76, 17)
$msg = GUICtrlCreateLabel("", 144, 128, 132, 41)
$new1 = GUICtrlCreateInput("", 32, 104, 105, 21)
$new3 = GUICtrlCreateInput("", 32, 176, 105, 21)
$modif = GUICtrlCreateButton("Modifier", 144, 224, 137, 33, $WS_GROUP)
GUISetState(@SW_SHOW)
$nuid = GUICtrlRead(GUICtrlRead($List1))
$liste = "C:\temp\ids.txt"
$vrFchConf = FileOpen($liste, 0)
While 1
$vrLignConf = FileReadLine($vrFchConf)
If @error Then ExitLoop
$vrChmRepCiblConf = StringSplit($vrLignConf, @TAB)
Global $uid = $vrChmRepCiblConf[1]
Global $vers = $vrChmRepCiblConf[2]
If $nuid = $uid & "|" Then
GUICtrlSetData($new1, $uid)
GUICtrlSetData($new3, $vers)
Else
EndIf
WEnd
While 1
Global $neuid = GUICtrlRead($new1)
Global $newvers = GUICtrlRead($new3)
Global $msg
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
ExitLoop
Case $modif
If ($neuid And $newvers) = "" Then
MsgBox(64, "Info", "Le nom du magasin ou l'ID Ammyy ne peut pas être vide")
Else
MsgBox(0,"","Remplacer la ligne")
ExitLoop
EndIf
EndSwitch
WEnd
GUISetState(@SW_HIDE, $Form3)
EndFunc
