dozosama Posted March 8, 2019 Posted March 8, 2019 (edited) Hi all i creation logs can help me I give you me code and after me probleme mon code : expandcollapse popup #include <Date.au3> ; Variable to ecrire in the fichier text Local $ currentDate = _DateTimeFormat (_NowCalc (), 2) Local $ currentTime = _DateTimeFormat (_NowCalc (), 5) Variable $ locale = 125 Global $ filename = @ScriptDir & "\ log \ logfile.txt" Mode $ global = 10; 2 + 8 (effacer + créer le répertoire) Global $ file = FileOpen ($ nomfichier, mode $) ; Ecriture dans le fichier texte FileWriteLine ($ fichier, "") FileWriteLine ($ file, "___________________") FileWriteLine ($ fichier, "| |") FileWriteLine ($ fichier, "| journal DEBUT |") FileWriteLine ($ file, "| ___________________ |") FileWriteLine ($ fichier, "") FileWriteLine ($ fichier, "") FileWriteLine ($ file, "Informations générales") FileWriteLine ($ file, "------------------------") FileWriteLine ($ file, "-> Début du traitement lancé le" & $ currentDate & "à" & $ currentTime) FileWriteLine ($ fichier, "-> $ variable =" & $ variable) Dim $ Array [13] = ["logiciel 0", _; 0 "logiciel 1", _; 1 "logiciel 2", _; 2 "logiciel 3", _; 3 "logiciel 4", _; 4 "logiciel 5", _; 5 "logiciel 6", _; 6 "logiciel 7", _; 7 "logiciel 8", _; 8 "logiciel 9", _; 9 "logiciel 10", _; dix "logiciel 11", _; 11 "logiciel 12"]; 12 $ dimension = $ Array [0] Pour $ i = 0 To UBound; de 0 à la fin soit 13 ici Sommeil (10) if FileExists ($ Array [$ i]) Alors; test tout les chemins du tableau (var $ i) TrayTip ("tous", "ok", 10000); dit si tout est bon Autre TrayTip ("/! \ Probleme", "l'unique nom du logiciel n'est pas bon", 10000); dit si il a 1 faute Fin si Suivant ; Ouverture du fichier log avec bloc-notes Run ("notepad.exe" & $ filename) Me notepad dont run whit that code code : expandcollapse popup #include <Date.au3> ; Variable to ecrire in the text text Local $ currentDate = _DateTimeFormat (_NowCalc (), 2) Local $ currentTime = _DateTimeFormat (_NowCalc (), 5) Variable locale $ 125 Global $ filename = @ScriptDir & "\ log \ logfile.txt" Global $ mode = 10; 2 + 8 (effacer + créer un répertoire ) Global $ file = FileOpen ($ filename, $ mode) ; Ecriture Dans le fichier texte FileWriteLine ($ file, "") FileWriteLine ($ file, » ___________________ ") FileWriteLine ($ file," | | ") FileWriteLine ($ file," | DÉBUTS journal | ") FileWriteLine ($ file," | ___________________ | ") FileWriteLine ($ fichier," ") FileWriteLine ($ fichier," ") FileWriteLine ($ fichier," Informations générales ") FileWriteLine ($ fichier," ------------- ----------- ") FileWriteLine ($ file," -> Début du traitement lancé le "& $ currentDate &" à "& $ currentTime) FileWriteLine ($ file," -> $ variable = "& $ variable) ; Ouverture du fichier log avec notepad Run ("notepad.exe" & $ filename) Dim $ Array [13] = ["logiciel 0", _; 0 "logiciel 1", _; 1 "logiciel 2", _; 2 "logiciel 3", _; 3 "logiciel 4", _; 4 "logiciel 5", _; 5 "logiciel 6", _; 6 "logiciel 7", _; 7 "logiciel 8", _; 8 "logiciel 9", _; 9 "logiciel 10", _; 10 "logiciel 11", _; 11 "logiciel 12"]; 12 $ dimension = $ Array [0] Pour $ i = 0 To UBound; de 0 à la fin soit 13 ici Sleep (10) si FileExists ($ Array [$ i]) Then; tester tout les chemins du tableau (var $ i) TrayTip ("all", "ok", 10000); dit si tout est bon Else TrayTip ("/! \ probleme", "l'un des noms de logiciel n'est pas bon", 10000); dit si il a 1 faute EndIf Suivant jand that code notepad run juste no give me logs can one dude help me ? (sorry for fault im franch) where take logs code ( https://autoitscript.fr/forum/viewtopic.php?t=3597 (franch forum autoit)) i have tested a lot code for programme Thank you for help and good day all Edited March 8, 2019 by dozosama
Skeletor Posted March 8, 2019 Posted March 8, 2019 Seems like you have an issue with your formatting. I cleaned up your code and also your variables had a space between the $ and the variable name. PS: your welcome to translate my English to French. expandcollapse popup#include <Date.to3> ; Variable to write in the text text Local $currentDate = _DateTimeFormat (_NowCalc (), 2) Local $currentTime = _DateTimeFormat (_NowCalc (), 5) Local $variable = 125 Global $filename = @ScriptDir & "\log\logfile.txt" Global $mode = 10 ; 2 + 8 (erase + create a directory) Global $ file = FileOpen($filename, $mode) ; Writing In the text file FileWriteLine($file, "") FileWriteLine($file, "___________________") FileWriteLine($file, "| |") FileWriteLine($file, "| START journal |") FileWriteLine($file, "| ___________________ |") FileWriteLine($file, "") FileWriteLine($file, "") FileWriteLine($file, "General Information") FileWriteLine($file, "------------- -----------") FileWriteLine($file, "-> Start of processing started the" & $currentDate & "at" & $currentTime) FileWriteLine($file, "-> " & $variable & " =" & $variable) ; Openinglog file with notepad Run ("notepad.exe" & $filename) Dim $Array [13] = ["software 0", _; 0 "software 1", _; 1 "software 2", _; 2 "software 3", _; 3 "software 4", _; 4 "software 5", _; 5 "software 6", _; 6 "software 7", _; 7 "software 8" _; 8 "software 9", _; 9 "software 10", _; 10 "software 11", _; 11 "software 12"]; 12 $dimension = $Array [0] For $i = 0 To UBound; from 0 to the end is 13 here Sleep (10) if FileExists ($Array [$i]) Then; test all the paths of the array (var $ i) TrayTip ("all", "ok", 10000); says if everything is good else TrayTip ("/! \ Problem", "one of the software names is not good", 10000); says if he has 1 fault EndIf Kind RegardsSkeletor "Coffee: my defense against going postal." Microsoft Office Splash Screen | Basic Notepad Program (Beginner) | Transparent Splash Screen | Full Screen UI
dozosama Posted March 8, 2019 Author Posted March 8, 2019 Is no worry for you went me really code ? and im ok for translate thank you for help !!
Skeletor Posted March 8, 2019 Posted March 8, 2019 okay, i havent tested your code, but does it work for you? Kind RegardsSkeletor "Coffee: my defense against going postal." Microsoft Office Splash Screen | Basic Notepad Program (Beginner) | Transparent Splash Screen | Full Screen UI
dozosama Posted March 8, 2019 Author Posted March 8, 2019 (edited) Non me folder log is good created juste empty Juste in me folder log and me notpade logfille.txt not log is empty i can screen tell me your question thank you again for help !! Edited March 8, 2019 by dozosama
dozosama Posted March 8, 2019 Author Posted March 8, 2019 (edited) expandcollapse popup#include <Date.au3> ; Variable à ecrire dans le fichier texte Local $currentDate = _DateTimeFormat( _NowCalc(), 2) Local $currentTime = _DateTimeFormat( _NowCalc(), 5) Local $variable = 125 ;~ filename Filename of the text file to open. ;~ mode Mode (read or write) to open the file in. ;~ Can be a combination of the following: ;~ 0 = Read mode ;~ 1 = Write mode (append to end of file) ;~ 2 = Write mode (erase previous contents) ;~ 4 = Read raw mode ;~ 8 = Create directory structure if it doesn't exist (See Remarks). ;~ 16 = Force binary(byte) reading and writing mode with FileRead and FileWrite ;~ 32 = Use Unicode UTF16 Little Endian reading and writing mode. Reading does not override existing BOM ;~ 64 = Use Unicode UTF16 Big Endian reading and writing mode. Reading does not override existing BOM ;~ 128 = Use Unicode UTF8 reading and writing mode. Reading does not override existing BOM ;~ Both write modes will create the file if it does not already exist. The folder path must already exist (except using mode '8' - See Remarks). Global $filename = @ScriptDir&"\log\logfile.txt" Global $mode = 10 ; 2 + 8 (erase + create dir) Global $file = FileOpen($filename, $mode) ; Ecriture dans le fichier texte FileWriteLine($file,"") FileWriteLine($file," ___________________") FileWriteLine($file,"| |") FileWriteLine($file,"| DEBUT log |") FileWriteLine($file,"|___________________|") FileWriteLine($file,"") FileWriteLine($file,"") FileWriteLine($file," Informations générales") FileWriteLine($file," ------------------------") FileWriteLine($file," -> Début du traitement lancé le "&$currentDate&" à "&$currentTime) FileWriteLine($file," -> $variable = "&$variable) ; Ouverture du fichier log avec notepad Run("notepad.exe "&$filename) ;coin variable Global $01path = "M:\01_INSTALLATION_POSTE\Logiciels_13-02-201\" ;le chemin ;Tableau Dim $Array [13] = ["01_googlechromestandaloneenterprise64.msi", _ ; 0 Google "02_Firefox Setup 65.0.1.exe", _ ; 1 Firefox "03_install_flash_player_32_active_x.msi", _ ; 2 Flash active "03_install_flash_player_32_plugin.msi", _ ; 3 Flash plugin "04_AdobeAIRInstaller.exe", _ ; 4 Adobe "05_sw_lic_full_installer.msi", _ ; 5 Shockwave "06_jre-8u201-windows-x64.exe", _ ; 6 Java "07_AcroRdrDC1901020091_fr_FR.exe" , _ ; 7 Acrordr "08_winrar-x64-561fr.exe", _ ; 8 Winrar "09_7z1806-x64.exe", _ ; 9 Zip "10_gimp-2.10.8-setup-2.exe", _ ; 10 Gimp "11_vlc-3.0.6-win64.exe" , _ ; 11 Vlc "12_LibreOffice_6.1.5_Win_x64.msi"] ; 12 Libreoffice ; debut de de la boucle If FileExists ($01path) Then ; test le chemin principale TrayTip ("path","C'est bon pas de probleme",1000) Else TrayTip ("/!\ path","probleme de chemin a swap",1000) EndIf For $i = 0 To UBound($Array) ; crée une variable qui dit de 0 a Ubound (la fin du tableau) Sleep (10) ; millisec if FileExists ($01path & $Array[$i]) Then ; test le chemin principale avec les nom des logiciel TrayTip ("Logiciel","Les nom de logiciel sont bon",1000) Else TrayTip ("/!\ probleme","l'un des nom de logiciel est pas bon",1000) EndIf Next ;debut de l'install ProcessWaitClose (ShellExecute ($Array[0])) ;Google Is me really code sorry for < ;comments litel comments in french> Edited March 8, 2019 by dozosama
Skeletor Posted March 8, 2019 Posted March 8, 2019 Try this: expandcollapse popup#include <Date.au3> ; Variable to write in the text text Local $currentDate = _DateTimeFormat (_NowCalc (), 2) Local $currentTime = _DateTimeFormat (_NowCalc (), 5) Local $variable = 125 Global $filename = @ScriptDir & "\log\" Local $fFile = "logfile.txt" Global $mode = 10 ; 2 + 8 (erase + create a directory) Global $ file = FileOpen($filename, $mode) ; Writing In the text file If FileExists($filename & $fFile) Then FileWriteLine($filename & $fFile, "") FileWriteLine($filename & $fFile, " ___________________") FileWriteLine($filename & $fFile, "| |") FileWriteLine($filename & $fFile, "| START journal |") FileWriteLine($filename & $fFile, "|___________________|") FileWriteLine($filename & $fFile, "") FileWriteLine($filename & $fFile, "") FileWriteLine($filename & $fFile, "General Information") FileWriteLine($filename & $fFile, "------------- -----------") FileWriteLine($filename & $fFile, "-> Start of processing started the " & $currentDate & " at " & $currentTime) FileWriteLine($filename & $fFile, "-> " & $variable & " = " & $variable) ; Openinglog file with notepad Else DirCreate($filename) FileWriteLine($filename & $fFile, "") FileWriteLine($filename & $fFile, "___________________") FileWriteLine($filename & $fFile, "| |") FileWriteLine($filename & $fFile, "| START journal |") FileWriteLine($filename & $fFile, "| ___________________ |") FileWriteLine($filename & $fFile, "") FileWriteLine($filename & $fFile, "") FileWriteLine($filename & $fFile, "General Information") FileWriteLine($filename & $fFile, "------------- -----------") FileWriteLine($filename & $fFile, "-> Start of processing started the" & $currentDate & "at" & $currentTime) FileWriteLine($filename & $fFile, "-> " & $variable & " =" & $variable) ; Openinglog file with notepad EndIf Dim $Array [13] $Array[0] = "software 0" ; 0 $Array[1] = "software 1" ; 1 $Array[2] = "software 2" ; 2 $Array[3] = "software 3" ; 3 $Array[4] = "software 4" ; 4 $Array[5] = "software 5" ; 5 $Array[6] = "software 6" ; 6 $Array[7] = "software 7" ; 7 $Array[8] = "software 8" ; 8 $Array[9] = "software 9" ; 9 $Array[10] = "software 10" ; 10 $Array[11] = "software 11" ; 11 $Array[12] = "software 12" ; 12 $dimension = $Array [0] For $i = 0 To UBound; from 0 to the end is 13 here Sleep (10) if FileExists ($Array [$i]) Then; test all the paths of the array (var $ i) TrayTip ("all", "ok", 10000); says if everything is good else TrayTip ("/! \ Problem", "one of the software names is not good", 10000); says if he has 1 fault EndIf Next Kind RegardsSkeletor "Coffee: my defense against going postal." Microsoft Office Splash Screen | Basic Notepad Program (Beginner) | Transparent Splash Screen | Full Screen UI
Moderators Melba23 Posted March 8, 2019 Moderators Posted March 8, 2019 Moved to the appropriate forum, as the Developer General Discussion forum very clearly states: Quote General development and scripting discussions. If it's super geeky and you don't know where to put it - it's probably here. Do not create AutoIt-related topics here, use the AutoIt General Help and Support or AutoIt Technical Discussion forums. Moderation Team Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind Open spoiler to see my UDFs: Spoiler ArrayMultiColSort ---- Sort arrays on multiple columnsChooseFileFolder ---- Single and multiple selections from specified path treeview listingDate_Time_Convert -- Easily convert date/time formats, including the language usedExtMsgBox --------- A highly customisable replacement for MsgBoxGUIExtender -------- Extend and retract multiple sections within a GUIGUIFrame ---------- Subdivide GUIs into many adjustable framesGUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView itemsGUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeViewMarquee ----------- Scrolling tickertape GUIsNoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxesNotify ------------- Small notifications on the edge of the displayScrollbars ----------Automatically sized scrollbars with a single commandStringSize ---------- Automatically size controls to fit textToast -------------- Small GUIs which pop out of the notification area
Skeletor Posted March 8, 2019 Posted March 8, 2019 Welcome back Melba23... Kind RegardsSkeletor "Coffee: my defense against going postal." Microsoft Office Splash Screen | Basic Notepad Program (Beginner) | Transparent Splash Screen | Full Screen UI
Skeletor Posted March 8, 2019 Posted March 8, 2019 @dozosama Try this: Jsut refined the Array and added a second... Tray Tip does not work in Windows 10.. And for the life of me , I cannot understand why when I paste code, it's showing "At the roof" instead of AutoIt... its only for this topic, works fine everywhere else. expandcollapse popup#include <Date.au3> #include <TrayConstants.au3> ; Variable to write in the text text Local $currentDate = _DateTimeFormat (_NowCalc (), 2) Local $currentTime = _DateTimeFormat (_NowCalc (), 5) Local $variable = 125 Global $filename = @ScriptDir & "\log\" Local $fFile = "logfile.txt" Global $mode = 10 ; 2 + 8 (erase + create a directory) Global $ file = FileOpen($filename, $mode) ; Writing In the text file If FileExists($filename & $fFile) Then FileWriteLine($filename & $fFile, "") FileWriteLine($filename & $fFile, " ___________________") FileWriteLine($filename & $fFile, "| |") FileWriteLine($filename & $fFile, "| START journal |") FileWriteLine($filename & $fFile, "| ___________________ |") FileWriteLine($filename & $fFile, "") FileWriteLine($filename & $fFile, "") FileWriteLine($filename & $fFile, "General Information") FileWriteLine($filename & $fFile, "------------- -----------") FileWriteLine($filename & $fFile, "-> Start of processing started the " & $currentDate & " at " & $currentTime) FileWriteLine($filename & $fFile, "-> " & $variable & " = " & $variable) ; Openinglog file with notepad Else DirCreate($filename) FileWriteLine($filename & $fFile, "") FileWriteLine($filename & $fFile, " ___________________") FileWriteLine($filename & $fFile, "| |") FileWriteLine($filename & $fFile, "| START journal |") FileWriteLine($filename & $fFile, "| ___________________ |") FileWriteLine($filename & $fFile, "") FileWriteLine($filename & $fFile, "") FileWriteLine($filename & $fFile, "General Information") FileWriteLine($filename & $fFile, "------------- -----------") FileWriteLine($filename & $fFile, "-> Start of processing started the" & $currentDate & "at" & $currentTime) FileWriteLine($filename & $fFile, "-> " & $variable & " =" & $variable) ; Openinglog file with notepad EndIf Dim $Array [13] = ["software 0", "software 1", "software 2", "software 3", "software 4", "software 5", "software 6", "software 7", "software 8", "software 9", "software 10", "software 11", "software 12"] For $i = 0 To 13 - 1 Sleep (1000) if FileExists($Array[$i]) Then; test all the paths of the array (var $ i) TrayTip("all", "ok", 10000, $TIP_ICONASTERISK) else TrayTip("/! \ Problem", "one of the software names is not good", 10000, $TIP_ICONASTERISK); says if he has 1 fault EndIf Next Kind RegardsSkeletor "Coffee: my defense against going postal." Microsoft Office Splash Screen | Basic Notepad Program (Beginner) | Transparent Splash Screen | Full Screen UI
Skeletor Posted March 8, 2019 Posted March 8, 2019 Argh, found the issue... Its because I set the Translation from French to English to help this little buddy out with his coding... Kind RegardsSkeletor "Coffee: my defense against going postal." Microsoft Office Splash Screen | Basic Notepad Program (Beginner) | Transparent Splash Screen | Full Screen UI
dozosama Posted March 8, 2019 Author Posted March 8, 2019 xD i go tested your code and you tell what's going on thank for help
dozosama Posted March 8, 2019 Author Posted March 8, 2019 Sry for late look me probleme Thank for help expandcollapse popup #include <Date.au3> #include <TrayConstants.au3> ; Variable to write in the text text Local $currentDate = _DateTimeFormat (_NowCalc (), 2) Local $currentTime = _DateTimeFormat (_NowCalc (), 5) Local $variable = 125 Global $filename = @ScriptDir & "\log\" Local $fFile = "logfile.txt" Global $mode = 10 ; 2 + 8 (erase + create a directory) Global $ file = FileOpen($filename, $mode) ; Writing In the text file If FileExists($filename & $fFile) Then FileWriteLine($filename & $fFile, "") FileWriteLine($filename & $fFile, " ___________________") FileWriteLine($filename & $fFile, "| |") FileWriteLine($filename & $fFile, "| START journal |") FileWriteLine($filename & $fFile, "| ___________________ |") FileWriteLine($filename & $fFile, "") FileWriteLine($filename & $fFile, "") FileWriteLine($filename & $fFile, "General Information") FileWriteLine($filename & $fFile, "------------- -----------") FileWriteLine($filename & $fFile, "-> Start of processing started the " & $currentDate & " at " & $currentTime) FileWriteLine($filename & $fFile, "-> " & $variable & " = " & $variable) ; Openinglog file with notepad Else DirCreate($filename) FileWriteLine($filename & $fFile, "") FileWriteLine($filename & $fFile, " ___________________") FileWriteLine($filename & $fFile, "| |") FileWriteLine($filename & $fFile, "| START journal |") FileWriteLine($filename & $fFile, "| ___________________ |") FileWriteLine($filename & $fFile, "") FileWriteLine($filename & $fFile, "") FileWriteLine($filename & $fFile, "General Information") FileWriteLine($filename & $fFile, "------------- -----------") FileWriteLine($filename & $fFile, "-> Start of processing started the" & $currentDate & "at" & $currentTime) FileWriteLine($filename & $fFile, "-> " & $variable & " =" & $variable) ; Openinglog file with notepad EndIf Global $01path = "M:\01_INSTALLATION_POSTE\Logiciels_13-02-2019\" ;le chemin Dim $Array [13] = ["01_googlechromestandaloneenterprise64.msi", _ ; 0 Google "02_Firefox Setup .0.1.exe", _ ; 1 Firefox "03_install_flash_player__active_x.msi", _ ; 2 Flash active "03_install_flash_player_32_plugin.msi", _ ; 3 Flash plugin "04_AdobeAIRInstaller.exe", _ ; 4 Adobe "05_sw_lic_full_installer.msi", _ ; 5 Shockwave "06_jre-8u201-windows-x64.exe", _ ; 6 Java "07_AcroRdrDC1901020091_fr_FR.exe" , _ ; 7 Acrordr "08_winrar-x64-561fr.exe", _ ; 8 Winrar "09_7z1806-x64.exe", _ ; 9 Zip "10_gimp-2.10.8-setup-2.exe", _ ; 10 Gimp "11_vlc-3.0.6-win64.exe" , _ ; 11 Vlc "12_LibreOffice_6.1.5_Win_x64.msi"] ; 12 Libreoffice For $i = 0 To 13 - 1 Sleep (1000) if FileExists($01path & $Array[$i]) Then; test all the paths of the array (var $ i) TrayTip("all", "ok", 10000, $TIP_ICONASTERISK) else TrayTip("/! \ Problem", "one of the software names is not good", 10000, $TIP_ICONASTERISK); says if he has 1 fault EndIf Next thank again
dozosama Posted March 8, 2019 Author Posted March 8, 2019 i don't know why don't fishing log pepole can help me i have tested whit #include <file.au3> Global $LogFile = @ScriptDir & "\MonLog.log" If FileExists($LogFile) Then FileDelete($LogFile) _FileWriteLog($LogFile,"Text 1") ; Par defaut ajouté à la fin _FileWriteLog($LogFile,"Text 2") ; Par defaut ajouté à la fin _FileWriteLog($LogFile,"Cette ligne est rajoutée au début", 1) _FileWriteLog($LogFile,"Cette ligne est rajoutée au encore au début", 1) _FileWriteLog($LogFile,"Text 3", -1) ; -1 est la valeur par defaut (ajoute à la fin) _FileWriteLog($LogFile,"Text 4", -1) ; -1 est la valeur par defaut (ajoute à la fin) need see logs and a lot other code and never good or ne obligate logs Message of orreur i me loop ex : software 2 not good me code give me "software 2 faulse" , software 5 is good me code dont give me is good becose i don't need information me code give me software faulse for speed for me and swap speed and need lose time whit that probleme You see ? or not call thank you all for help
dozosama Posted March 11, 2019 Author Posted March 11, 2019 (edited) hey all i have change code Frensh dude give me the code i give you frensh forum : https://www.autoitscript.fr/forum/viewtopic.php?f=3&t=15092&p=103419#p103419 expandcollapse popup#include <File.au3> #include <Array.au3> ;============================================ mise en place de sous dossiers et de fichiers pour l'exemple ======================================================= ; en réalité, c'est à faire manuellement DirCreate(@ScriptDir & "\Programmes") Local $sousdossiers[13] =["Gimp","Firefox","Chrome","PaintNet","AutoIt","Scite","NotePad","VLC","MultiMedia","machin","Bidule","Truc","Autre"] For $i = 0 To 12 DirCreate(@ScriptDir & "\Programmes\" & $sousdossiers[$i]) $open = FileOpen(@ScriptDir & "\Programmes\" & $sousdossiers[$i] &"\"& $sousdossiers[$i]&"-"& $i&"."& $i + 2&".exe",8 + 2) FileClose($open) Next ;======================================================================================================================================================= ;Le but est de surveiller le dossier Programmes et de réécrire l'ini. Les chemins seront mis à jour à chaque lancement ; on cherche les Exe dans les sous dossiers de Programmes FileDelete(@ScriptDir & "\monIni.ini");on détruit l'ini $aArray = _FileListToArrayRec(@ScriptDir & "\Programmes", "*.exe;*.msi", $FLTAR_FILESFOLDERS ,$FLTAR_RECUR,$FLTAR_SORT , $FLTAR_FULLPATH) _ArrayDisplay($aArray) Local $key, $iValue For $i = 1 To $aArray[0] If StringRight($aArray[$i], 3) = "exe" Or StringRight($aArray[$i], 3) = "msi" Then;si la ligne se termine par "exe" ou "msi" $iValue = $aArray[$i] ;enregistre le chemin Else $split = StringSplit($aArray[$i],"\");on découpe le chemin du sous dossier $key = $split[UBound($split) - 1]; enregistre le nom du sous dossier EndIf If $key > "" And $iValue > "" And StringInStr($iValue,$key) > 0 Then;(Key=Value) si la clef et sa valeur ne sont pas vide et si le nom de la clef se retrouve dans sa valeur IniWrite(@ScriptDir & "\monIni.ini","command", $key, $iValue) ;on écrit $key = "" ;on vide les variables pour la prochaine ligne $iValue = "" EndIf Next ShellExecuteWait(@ScriptDir & "\monIni.ini") $aArray_ini = IniReadSection(@ScriptDir & "\monIni.ini","command") _ArrayDisplay($aArray_ini) ;à partir de ce tableau, on peut nommer par exemple un bouton avec $aArray_ini[1][0] et pour son action ShellExecute($aArray_ini[1][1]) (AutoIt dans le cas présent) i is good juste it tells me that my file "MonIni.ini" does not exist i don't know why thank for help ---------------Détecter la langueAfrikaansAlbanaisAllemandAmhariqueAnglaisArabeArménienAzériBasqueBengaliBiélorusseBirmanBosniaqueBulgareCatalanCebuanoChewaChinois (simplifié)Chinois (traditionnel)CingalaisCoréenCorseCréole haïtienCroateDanoisEspagnolEspérantoEstonienFinnoisFrançaisFrison occidentalGaélique écossaisGalicienGalloisGéorgienGoudjeratiGrecHaoussaHawaïenHébreuHindiHmongHongroisIgboIndonésienIrlandaisIslandaisItalienJaponaisJavanaisKannadaKazakhKhmerKirghizeKurdeLaoLatinLettonLituanienLuxembourgeoisMacédonienMalaisMalayalamMalgacheMaltaisMaoriMarathiMongolNéerlandaisNépalaisNorvégienOurdouOuzbekPachtoPendjabiPersanPolonaisPortugaisRoumainRusseSamoanSerbeShonaSindhiSlovaqueSlovèneSomaliSotho du SudSoundanaisSuédoisSwahiliTadjikTagalogTamoulTchèqueTélougouThaïTurcUkrainienVietnamienXhosaYiddishYorubaZoulouFrançais Edited March 11, 2019 by dozosama
dozosama Posted March 11, 2019 Author Posted March 11, 2019 sorry for not colors i dont know how the master sry again
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now