Voila je voulais savoir si il y avait un code pour que quand le mec coche la case ca ecrit une ligne dans un fichier (ca ji arrive) et qund il la decoche que la ligne soi t effacé(sa je sais pas faire)
Voila le code que j'ai
Private Sub Check1_Click()
If Check1.Value = 1 Then
Open "C:\slt.cfg" For Append As #1
Print #1, "slt toi "
Close #1
End If
End Sub
Docn j'aimerais savoir quel est le code a rajouté pour que quand le mec decoche la ligne rajouté dans le fichier soit effacé!!
OK. Finalement, c'est plus simple que je ne pensais. Excuse-moi de ne pas avoir compris tout de suite.
Avec un fichier texte, il est facile d'ajouter des lignes avec Append (comme tu le fais) mais pour en enlever, je ne connais rien d'autre que de réécrire le fichier. Donc voilà, quand tu décoches la checkbox, le code suivant ouvre le fichier, et le réécrit sans la ligne qui correspond au choix.
Essaie le mais sauvegarde quand même ton fichier d'origine, je ne voudrais pas que tu perdes tes données à cause de mon code, même s'il y a peu de (mal)chance.
Autre observation, ce code supprimera TOUTES les lignes du fichier qui correspondent exactement à ce qu'il y a dans la variable s. (par ex, s'il y a +sieurs lignes qui sont à "slt toi " elles seront supprimées, par contre une ligne à "slt toi machin" restera).
Private Sub Check1_Click()
Dim buffer As String
Dim s As String
s = "slt toi "
If Check1.Value = 1 Then
'ajout d'enreg
Open "C:\slt.cfg" For Append As #1
Print #1, s
Close #1
Else
'ouverture du fichier d'origine
Open "C:\slt.cfg" For Input As #1
'création du fichier tempo
Open "C:\truc.cfg" For Output As #2
'lecture séquentielle du fichier d'origine
Do While Not EOF(1)
Line Input #1, buffer
'si ligne <> de la ligne à supprimer -> enreg
If buffer <> s Then
Print #2, buffer
End If
Loop
Close #2
Close #1
' destruction du fichier d'origine
Kill "C:\slt.cfg"
' renomme le fichier tempo comme le fichier d'origine
Name "c:\truc.cfg" As "C:\slt.cfg"
End If
End Sub
Cordialement, CanisLupus
Tous les glands ne deviennent pas des chênes mais tous les chênes ont été des glands
ui il ya bcp de lignes a peu pres 100 mais sa change pour chaque utilisateur et comment faire pour retrouver la lignes a effacer et une autre question est ce que le '#1' correspond a la ligne 1???
Nan, le #1 correspond au numéro de fichier ouvert.
Pour ton problème, il y a +sieurs solutions, tout dépend de la structure de ton fichier texte. Un tit exemple représentatif STP ?
Si tes enregs sont sur la même structure, tu peux voir du côté de : open ...... for random as #1 len = ???
etc ....
le mieux est que tu nous donnes un exemple de ton fichier texte. Au moins un enreg si tous les enregs sont sur le même modèle avec les expliks du genre : 4 1ers cars ident, 25 cars nom utilisateur, etc ...............
Cordialement, CanisLupus
Tous les glands ne deviennent pas des chênes mais tous les chênes ont été des glands
Vous n’avez pas trouvé la réponse que vous recherchez ?
merci ca marche t'es genial a+ a ui tant qu e jy suis sa te derangerai de plancher sur un otre de mes problemes ou uen personne ma repondu mais jpige pas trop stp ? tien stu veut bien