[R] FileWriteLine File Write.

[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 !

[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

[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

[jbnh]

Re

Oui ! _FileWriteToLine le fait justement ! Lis la doc

[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é

► Afficher le texte

Code : Tout sélectionner

#include-once
Func _iscode()
    
EndFunc
 

Merci d'etre indulgent on débute ( Et nous n'avons que 13ans )

[tolf]

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().

[Drave]

Personne peut me dire ce qui ne va pas avec _Filewritetoline ??

[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.

[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

[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) :

Code : Tout sélectionner

[12]
Nom = 
Prenom = 
Classe =

[46]
Nom = 
Prenom = 
Classe =

Les fonctions de gestion d'un fichier .ini vous aiderons à créer la structure très simplement. Allez jeter un oeil dans la documentation.

[guitarist]

Désolé mais je ne trouve pas la documentation sur le .ini merci de me mettre le lien

[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.

[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
 

[Tlem]

C'est déjà plus sympa.

PS: Le [R] est à placer dans le premier message du sujet.
Je l'ai fait pour vous.