[...]Création de logs

Aide et conseils concernant AutoIt et ses outils.
Règles du forum
.
Répondre
dozosama
Niveau 1
Niveau 1
Messages : 11
Enregistré le : mar. 05 févr. 2019 09:23
Status : Hors ligne

[...]Création de logs

#1

Message par dozosama » jeu. 07 mars 2019 15:47

Salut a tous , bon voila j'ai encors un question je sais que j'en pose beaucoup , je suis encore débutent sur autoit et en développement en générale, mais j'ai l'envie d'apprendre et connaitre ce domaine bon passons de parler de moi et parlons de mon problème.

Comment le titre l'indique cette Foix mon problème c'est comment crée un bloquenote (notepads) avec les logs j'ai déjà fait qu'elle que recherche (j'ai pas fini)

ou j'ai trouver le code des logs ( https://autoitscript.fr/forum/viewtopic.php?t=3597 )
donc voila mon programme :

Code : Tout sélectionner

#include <Date.au3>

; Variable à ecrire dans le fichier texte
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 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)


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]

For $i = 0 To UBound ; de 0 a la fin soit 13 ici
	Sleep (10)
	if FileExists ($Array[$i]) Then  ; test tout les chemins du tableau (var $i)
		TrayTip ("all","ok",10000) ; dit si tout est bon 
	Else
		TrayTip ("/!\ probleme","l'un des nom de logiciel  est pas bon",10000) ; dit si il a 1 faute 
	EndIf

Next

; Ouverture du fichier log avec notepad
Run("notepad.exe "&$filename)
donc voila quand je mais
< ; Ouverture du fichier log avec notepad
Run("notepad.exe "&$filename) >
a la fin du programme le notepad se lance pas mais quand je le mais apres < FileWriteLine($file," -> $variable = "&$variable) > cette ligne il ce lance mais pas les logs .

Code : Tout sélectionner

#include <Date.au3>

; Variable à ecrire dans le fichier texte
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 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)

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]

For $i = 0 To UBound ; de 0 a la fin soit 13 ici
	Sleep (10)
	if FileExists ($Array[$i]) Then  ; test tout les chemins du tableau (var $i)
		TrayTip ("all","ok",10000) ; dit si tout est bon 
	Else
		TrayTip ("/!\ probleme","l'un des nom de logiciel  est pas bon",10000) ; dit si il a 1 faute 
	EndIf

Next
L'autre programme quand
<; Ouverture du fichier log avec notepad
Run("notepad.exe "&$filename)>
est devant mon tableau.

du coup comment faire si vous avez la solution ou même l'endroit (forum,wiki ect ...) qui a la réponse a ma question je suis preneur

Encore désoler si c'est déjà résolu

Et je continue de cherche et je vous tien au courent

Et merci de votre future aide et bonne journée a tous et toute

dozosama
Niveau 1
Niveau 1
Messages : 11
Enregistré le : mar. 05 févr. 2019 09:23
Status : Hors ligne

Re: [...]Création de logs

#2

Message par dozosama » ven. 08 mars 2019 11:51

Petit mise a jours j'ai changer mon code je vais vous maitre le vraix merci de bien vouloirs maider

Code : Tout sélectionner

#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  = "chemin"
 
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($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

Répondre