AutoIt Français

Code : Tout sélectionner

; Program :     Exemple d'utilisation SplashTextOn
; File Used :   "c:\memo.txt"
;               Contient 10 lignes de mémo format texte.
;               Ne pas oublier de le créer avec 10 lignes !
; Description : Use to help remember or flash informations
;
; Déclarations des includes
#include "Array.au3"             ; pour la fonction _ArrayToString()
#include "file.au3"

; Déclaration des Variables
dim $ar[11]
dim $incre = 1
dim $line
dim $fil

;
; Lecture du fichier memo.txt vers un tableau $AR
; contenant les informations texte à afficher
; 

$fil = FileOpen ("C:\memo.txt", 0)
                                         
 If $fil = -1 Then
    MsgBox(0, "Error", "Unable to open memo.txt file.")
    Exit
EndIf

; Lecture de 10 lignes du fichier ( memo.txt ) vers Tableau $AR 

for $incre = 1 to 10
    $line = FileReadLine($fil)
    $ar[$incre] = $line 
Next

FileClose($fil)

; Boucle sans fin pour l' affichage du mémo toutes les 2 minutes
; rem :  _ArrayToString permet d'imprimer l'ensemble ou partie du tableau $AR
;       necessite #include "Array.au3" (standard include)
;       paramètres intéressant : type de fenètre windows, type de caractère et grandeur

while 1

    SplashTextOn("Title", (_ArrayToString($Ar, @lf, 1, 10)),500, 300, 200, 200, 5, "", 14)       
                           
    Sleep(7*1000)         ; affichage pendant 7 secondes
    SplashOff()           ; Extinction du splash
    sleep (2*60*1000)     ; pause de 2 minutes ou plus suivant les goûts

WEnd