Page 1 sur 1
[R] FileWriteLine File Write.
Posté : ven. 22 mai 2009 12:06
par guitarist
Bonjour a tous !!
Alors voila j'ai 2 question a posé :
1er) Quelle est est al difference entre filewrite et filewriteline ?
2eme) Comment peut t on faire pour ne pas ecrire a la fin d'un fichier !
Re: [..] FileWriteLine File Write.
Posté : ven. 22 mai 2009 18:28
par jbnh
Salut.
Pour ta question 1. Filewrite va écrire un bloc de texte, tandis que filewriteline faire de ton texte une ligne et rajouter un saut de ligne automatiquement.
Pour ta question 2, tourne toi vers _FileWriteToLine, disponible dans l'UDF file.au3.
Bonne chance
Re: [..] FileWriteLine File Write.
Posté : ven. 22 mai 2009 19:06
par guitarist
Et encore y a t-il un moyen pour ecrir du tese à la place d'une ligne (en gros en effacent puis en ecrivant)
Encore Merci
Re: [..] FileWriteLine File Write.
Posté : ven. 22 mai 2009 20:43
par jbnh
Re
Oui ! _FileWriteToLine le fait justement ! Lis la doc
Re[..] FileWriteLine File Write.
Posté : lun. 25 mai 2009 12:09
par Drave
Bonjour
Je suis sur le même projet que guitarist et ensemble nous avons cree un programme
le voici
► Afficher le texte
Code : Tout sélectionner
#include <GUIconstantsEx.au3>
#NoTrayIcon
#include <cdi21.au3>
#include <File.au3>
Dim $img1 = "\bonhomme_fleche_gauche.jpg"
FileInstall("bonhomme_fleche_gauche.jpg","\bonhomme_fleche_gauche.jpg", 1)
$file2 = FileOpen ("cdi21.au3",1)
$file = FileOpen ("cdi.txt",1)
$guil = """"
GUICreate ("Inscription au CDI",400,400)
$var1 = GUICtrlCreateInput ("Code : ",10,50,150,20)
$var2 = GUICtrlCreateInput ("Nom : ",200,50,150,20)
$var3 = GUICtrlCreateInput ("Prénom : ",200,130,150,20)
$var4 = GUICtrlCreateCombo ("Classe (inutile pour codifier)",10,130,150,20)
GUICtrlSetData ($var4,"601|602|603|604|605|606|607|501|502|503|504|505|506|507|401|402|403|404|405|406|407|301|302|303|305|306|307|308|608|508|409|309")
$b1 = GUICtrlCreateButton (">>>Entrée<<<",10,260)
$b2 = GUICtrlCreateButton (">>>Pour Enregistrer<<<",200,260)
$b3 = GUICtrlCreateButton (">>>Ouvrir le fichier texte<<<",10,300)
$img = GUICtrlCreatePic($img1, 200,290,150,100)
GUISetState (@SW_SHOW)
while 1
$error = 0
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
FileWrite ($file , "EndFunc" & @CRLF)
FileClose ($file)
Exit
Case $msg = $b1
FileOpen ($file,1)
$var = GUICtrlRead ($var1)
$var41 = GUICtrlRead ($var4)
Case $msg = $b2
FileOpen ($file,1)
$var21 = GUICtrlRead ($var2)
$var31 = GUICtrlRead ($var3)
$var11 = GUICtrlRead ($var1)
$var41 = GUICtrlRead ($var4)
_FileWriteToLine ($file2,3 , @CRLF & " If $var = " & $var11 & " " & "Then" & @CRLF)
_FileWriteToLine ($file2,3,@CRLF & @CRLF" FileWrite ($file,""-"" & " & $guil & $var21 & " " & $var31 & " " & $var41 & $guil & " & @CRLF" & ")" & @CRLF & " Endif" & @CRLF)
FileWrite ($file, "-" & $var21 & " " & $var31 & " " & $var41 & @CRLF)
Case $msg = $b3
FileClose ($file)
FileOpen ("cdi.txt",1)
ShellExecute ("cdi.txt")
EndSelect
WEnd
et voici l'include où est la base de donné
Merci d'etre indulgent on débute
( Et nous n'avons que 13ans
)
Re: [..] FileWriteLine File Write.
Posté : mar. 26 mai 2009 08:52
par tolf
guitarist a écrit :Comment peut t on faire pour ne pas ecrire a la fin d'un fichier !
Dans la dernière
version bêta, il est possible d'écrire à un caractère précis d'un fichier avec la fonction
FileSetPos().
Re: [..] FileWriteLine File Write.
Posté : ven. 29 mai 2009 18:09
par Drave
Personne peut me dire ce qui ne va pas avec _Filewritetoline ??
Re: [..] FileWriteLine File Write.
Posté : ven. 29 mai 2009 19:19
par Tlem
Tout va très bien avec cette fonction.
Dans l'aide de la commande, il vous suffit de lire le tableau 'Parameters' jusqu'au bout.
Re: [..] FileWriteLine File Write.
Posté : dim. 31 mai 2009 18:31
par guitarist
Désolé mais je ne crois pas avoir compris : à part _FileWriteToLine où mon ami s'acharne (je sais il est bizzard mais bon laissons-le tranquille) pouvez-vous me dire une solution à ce problème : Comment faire pour quel le logiciel ait une base de données et qu'il puisse écrire par apport à la base de donnée ex : 12345 = Bonjour <== base de donné| et le logiciel écrit dans un fichier "Bonjour" quant est entré 12345 <==== Logiciel
J'espère avoir été clair (c'est pas mon fort mai bon on va essayer )
Merci de me répondre
Re: [..] FileWriteLine File Write.
Posté : dim. 31 mai 2009 18:48
par Tlem
Bon, d'après ce que j'ai lu du code précédent, vous faites un script pour enregistrer des élèves lors de leur arrivée au CDI ...
Vu que le nombre d'élèves va être limité, je vous conseil plutôt l'utilisation d'un fichier .ini, car un fichier normal ne pourra vous donner une structure suffisamment simple pour une telle gestion.
Créez un fichier de ce genre (12 et 46 étant le code de l'élève) :
Les fonctions de gestion d'un fichier .ini vous aiderons à créer la structure très simplement. Allez jeter un oeil dans la documentation.
Re: [..] FileWriteLine File Write.
Posté : dim. 31 mai 2009 19:04
par guitarist
Désolé mais je ne trouve pas la documentation sur le .ini merci de me mettre le lien
Re: [..] FileWriteLine File Write.
Posté : dim. 31 mai 2009 23:34
par Tlem
Votre jeune age ne vous dispense pas de connaitre les bases d'une recherche.
Mais bon :
1 - Cliquez
Démarré.
2 - Cliquez
Tous les Programmes.
3 - Cliquez
AutoIt v3.
4 - Cliquez
AutoIt Help File.
5 - Dans l'aide de AutoIt cliquez l'onglet Index
6 - Tapez ini et regardez dans la liste les commandes disponibles.
Ou alors :
1 - Installez ceci :
http://www.autoitscript.fr/forum/viewto ... =37&t=2571
2 - Editez votre script avec Scite.
3 - appuyez sur la touche F1
4 - Dans l'aide de AutoIt cliquez l'onglet Index
5 - Tapez ini et regardez dans la liste les commandes disponibles.
Re: [R] FileWriteLine File Write.
Posté : mar. 02 juin 2009 11:31
par guitarist
Merci pour tous ces bons conseil maintenant notre logiciel est terminé et nous pouvons l'utiliser.
Merci.Et pour ceux qui voudrait voir le code le voici :
► Afficher le texte
Code : Tout sélectionner
#include <GUIconstantsEx.au3>
#NoTrayIcon
Dim $img1 = "\bonhomme_fleche_gauche.jpg"
FileInstall("bonhomme_fleche_gauche.jpg","\bonhomme_fleche_gauche.jpg", 1)
$file = "cdi.txt"
$file2 = "myfile.ini"
$guil = """"
GUICreate ("Inscription au CDI",400,400)
$var1 = GUICtrlCreateInput ("Code : ",10,50,150,20)
$var2 = GUICtrlCreateInput ("Nom : ",200,50,150,20)
$var3 = GUICtrlCreateInput ("Prénom : ",200,130,150,20)
$var4 = GUICtrlCreateCombo ("Classe",10,130,150,20)
GUICtrlSetData ($var4,"601|602|603|604|605|606|607|501|502|503|504|505|506|507|401|402|403|404|405|406|407|301|302|303|305|306|307|308|608|508|409|309")
$b1 = GUICtrlCreateButton (">>>Enregistrer<<<",10,260)
$b2 = GUICtrlCreateButton (">>>Enregistrer la base de Données<<<",200,260)
$b3 = GUICtrlCreateButton (">>>Ouvrir le fichier texte<<<",10,300)
$img = GUICtrlCreatePic($img1, 200,290,150,100)
$code = InputBox ("Saisir le code requis","Entrez le code",default ,"*")
while 1
ToolTip ("Bienvenu sur le logiciel du CDI")
$msg = GUIGetMsg()
If $code = 5789 Then
GUISetState (@SW_SHOW)
Else
Exit
EndIf
Select
Case $msg = $GUI_EVENT_CLOSE
FileClose ($file)
Exit
Case $msg = $b1
FileOpen ($file,1)
$var = GUICtrlRead ($var1)
$n = IniRead ($file2,$var11,"Nom",default)
$p = IniRead ($file2,$var11,"Prénom",default)
$c = IniRead ($file2,$var11,"Classe",default)
FileWrite("cdi.txt","-" & $n & " " & $p & " " & $c & @CRLF)
Case $msg = $b2
FileOpen ($file,1)
$var21 = GUICtrlRead ($var2)
$var31 = GUICtrlRead ($var3)
$var11 = GUICtrlRead ($var1)
$var41 = GUICtrlRead ($var4)
IniWrite($file2, $var11, "Nom", $var21 )
IniWrite($file2, $var11, "Prénom", $var31 )
IniWrite($file2, $var11, "Classe", $var41 )
Case $msg = $b3
FileClose ($file)
FileOpen ($file,1)
ShellExecute ($file)
EndSelect
WEnd
Re: [R] FileWriteLine File Write.
Posté : mar. 02 juin 2009 14:58
par Tlem
C'est déjà plus sympa.
PS: Le [R] est à placer dans le premier message du sujet.
Je l'ai fait pour vous.