[Ex] Lire un fichier
Posté : mer. 29 août 2007 12:49
On selectionne le fichier, quelque soit son extension.
Pour cela on utilise FileOpenDialog.
Ici j'ai utilisé consolewrite pour une sortie via autoit4scite .
si on retourne la valeur $var = on obtiendra comme sortie le lien du fichier.
si on retourne la fonction lire($var) = on obtiendra son contenu.
pour ceux qui ne voudrait pas utiliser consolewrite , remplacer celle-ci par une message box (msgbox)
Et pour finir, la petite fonction, on aura utilisé, Fileread & Filegetzise et un return.
ce petit code peut servir de base.
Pour cela on utilise FileOpenDialog.
Code : Tout sélectionner
$Var = FileOpenDialog ("","c:","All (*.*)",1)
si on retourne la valeur $var = on obtiendra comme sortie le lien du fichier.
si on retourne la fonction lire($var) = on obtiendra son contenu.
Code : Tout sélectionner
ConsoleWrite ( "#Source =" & $Var & @CRLF & "!Contenu du fichier" & @CRLF & lire( $Var ) )
Code : Tout sélectionner
msgbox ( 0 , "" , "#Source =" & $Var & @CRLF & "!Contenu du fichier" & @CRLF & lire( $Var ) )
Code : Tout sélectionner
func Lire ( $Fichier )
Return FileRead ( $Fichier , FileGetSize ( $Fichier ) )
EndFunc
ce petit code peut servir de base.