[R] Affichage dans un SplashText du fichier INI
Posté : mer. 23 déc. 2015 09:31
Bonjour,
je cherche a envoyer sur quelques dizaines d'ordinateurs un message qui pourrait être variable en nombre de ligne.
Ce que j'ai trouvé comme moyen c'est d'utiliser un fichier INI avec pour le moment un nombre de ligne déterminé, car dans ma fonction je lis la ligne en question.
Ce que je souhaiterai.... c'est faire une fonction avec une boucle qui lit le contenu du fichier et qui affiche toutes les lignes simultanément.
Les quelques tests que j'ai fais, j'affichais les lignes une après l'autre et ce n'est pas le résultat escompté.
Si vous avez une idée je suis preneur, merci d'avance. et bonnes fêtes de fin d'années
le petit bout de code :
je cherche a envoyer sur quelques dizaines d'ordinateurs un message qui pourrait être variable en nombre de ligne.
Ce que j'ai trouvé comme moyen c'est d'utiliser un fichier INI avec pour le moment un nombre de ligne déterminé, car dans ma fonction je lis la ligne en question.
Ce que je souhaiterai.... c'est faire une fonction avec une boucle qui lit le contenu du fichier et qui affiche toutes les lignes simultanément.
Les quelques tests que j'ai fais, j'affichais les lignes une après l'autre et ce n'est pas le résultat escompté.
Si vous avez une idée je suis preneur, merci d'avance. et bonnes fêtes de fin d'années
le petit bout de code :
Code : Tout sélectionner
#cs ----------------------------------------------------------------------------
AutoIt Version : 3.3.14.2
Auteur:
Fonction du Script :
Modèle de Script AutoIt.
#ce ----------------------------------------------------------------------------
#include <MsgBoxConstants.au3>
#include <WinAPIFiles.au3>
#NoTrayIcon
Dim $Date = @MDAY & "/" & @MON & "/" & @YEAR
Dim $Heure = @HOUR & ":" & @MIN & ":" & @SEC
Global $FichierINI = @ScriptDir & "\config.ini"
Local $sRead = IniRead($FichierINI, "SECTION", "LIB", "Default Value")
Local $sRead0 = IniRead($FichierINI, "SECTION", "LIB0", "Default Value")
Local $sRead1 = IniRead($FichierINI, "SECTION", "LIB1", "Default Value")
Local $sRead2 = IniRead($FichierINI, "SECTION", "LIB2", "Default Value")
Local $sRead3 = IniRead($FichierINI, "SECTION", "LIB3", "Default Value")
Local $sRead4 = IniRead($FichierINI, "SECTION", "LIB4", "Default Value")
Local $sRead5 = IniRead($FichierINI, "SECTION", "LIB5", "Default Value")
Local $sRead6 = IniRead($FichierINI, "SECTION", "LIB6", "Default Value")
Local $sRead7 = IniRead($FichierINI, "SECTION", "LIB7", "Default Value")
Local $sRead8 = IniRead($FichierINI, "SECTION", "LIB8", "Default Value")
Local $sRead9 = IniRead($FichierINI, "SECTION", "LIB9", "Default Value")
Local $sRead10 = IniRead($FichierINI, "SECTION", "LIB10", "Default Value")
;MsgBox($MB_SYSTEMMODAL, "", "LA VALEUR DE 'SECTION' 'LIB' EST: " & $sRead)
Affichage()
Func Affichage()
; Lancement du splash screen.
SplashTextOn("", $sRead & @CRLF & _
$sRead0 & @LF & _
$sRead1 & @CRLF & _
$sRead2 & @CRLF & _
$sRead3 & @CRLF & _
$sRead4 & @CRLF & _
$sRead5 & @CRLF & _
$sRead6 & @CRLF & _
$sRead7 & @CRLF & _
$sRead8 & @CRLF & _
$sRead9 & @CRLF & _
$sRead10 & @CRLF & _
$Date & @CRLF & _
$Heure _
, 1050, 600, -1, -1, 0 + 1 + 16 + 32, "Times New Roman", 18, 800)
Sleep(10000)
SplashOff()
Exit
EndFunc ;==>Affichage()
mais effectivement c'est beaucoup plus simple à travailler