LIRE ET ENREGISTRER UN FICHIER TEXTE
Zikoom
Messages postés
6
Date d'inscription
mercredi 25 octobre 2000
Statut
Membre
Dernière intervention
17 juillet 2002
-
17 juil. 2002 à 14:35
samio07 Messages postés 3 Date d'inscription dimanche 24 février 2008 Statut Membre Dernière intervention 27 janvier 2009 - 27 janv. 2009 à 12:53
samio07 Messages postés 3 Date d'inscription dimanche 24 février 2008 Statut Membre Dernière intervention 27 janvier 2009 - 27 janv. 2009 à 12:53
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/4050-lire-et-enregistrer-un-fichier-texte
https://codes-sources.commentcamarche.net/source/4050-lire-et-enregistrer-un-fichier-texte
27 janv. 2009 à 12:53
25 juil. 2003 à 19:44
18 juil. 2002 à 20:34
Il suffit d'écrire un gestionnaire pour l'erreur n°32755 pour que l'erreur soit gérée. C'est donc normal que tu ne la voie pas :)
18 juil. 2002 à 20:28
Oui, ça ne génère pas d'erreur dans mon code car j'ai mis un gestionnaire pour l'erreur (étiquette "erreur:") Dans ton code non plus car tu n'as pas mis le cancelerror, et que tu fais un test pour voir si la chaine est vide. Vu que cancelerror est la pour ça, autant l'utiliser. Enfin c'est toi qui vois.
Si tu mets cancelerror et que tu appuies sur annuler pendant ShowSave, ça te fera une erreur si tu n'as pas de gestionnaire.
Mais tu peux supprimer le gestionnaire pour ShowOpen, c'est vrai qu'il ne sert à rien.
En bref :
Enlève les 2 "On Error GoTo erreur"
Enlève les 2 "erreur:
If (Err.Number = 32755) Then Exit Sub"
Affiche la fenêtre ShowSave, et clique sur annuler ;-)
Et note aussi que mon code est moins gourmand en ressources que le tien.
17 juil. 2002 à 22:53
Merci !
17 juil. 2002 à 21:40
Tu devrais déclarer tes variables
Tu devrais mettre dialog.CancelError = true au lieu de regarder si la chaine de retour est vide. Ça génère l'erreur n° 32755 quand on clique sur annuler
Au lieu de rajouter du texte dans Text1 à chaque itération, tu devrais le rajouter dans une variable, puis à la fin mettre le contenu de la variable dans tex1.text, comme ça tu as un gain de temps, car à chaque ligne, en arrière plan, des fonctions sont appellées pour afficher de nouveau le texte.
Noublie pas, il n'y a pas que ton code qui est exécuté, le runtime de VB travaille beaucoup, donc ménage-le !
Autre chose : ça sert à quoi d'enregistrer dans 2 fichiers ? À rien ;-)
Tu devrais mettre Output au lieu de Append
Ce qui nous donne :
Option Explicit
Private Sub Form_Load()
With Dialog
.Filter = "Fichiers texte (*.txt)|*.txt|Tous les fichiers|*.*"
.CancelError = True
.Flags = 6158
End With
End Sub
Private Sub Ouvrir_Click()
On Error GoTo erreur
Dim Ligne As String, Texte As String, Test As String, nbr As Integer
Dialog.ShowOpen
Open Dialog.FileName For Input As #1
Do While Not EOF(1)
Input #1, Ligne
Texte = Texte & Ligne & vbCrLf
Loop
Close #1
If (Len(Texte) < 4) Then
Text1.Text = Texte
Exit Sub
End If
Test = Right(Texte, 4)
If (Right(Test, 2) vbCrLf) Then nbr 2
If (nbr 2) And (Left(Test, 2) vbCrLf) Then nbr = 4
If (nbr <> 0) Then Texte = Left(Texte, Len(Texte) - nbr)
Text1.Text = Texte
erreur:
If (Err.Number = 32755) Then Exit Sub
End Sub
Private Sub Enregistrer_Click()
On Error GoTo erreur
Dialog.ShowSave
Open Dialog.FileName For Output As #1
Print #1, Text1.Text
Close #1
erreur:
If (Err.Number = 32755) Then Exit Sub
End Sub
Les flags c'est pour éviter le superflu et prévoir certaines choses (par exemple si on enregistre sur un fichier déjà existant.) On enlève aussi la case lecture seule(qui ne sert à rien)
Dans mon code on manipule le moins possible la variable Texte lors de l'ouverture, car elle peut être volumineuse selon le fichier.
En même temps j'ai résolu ton problème de retour à la ligne.
Au cas ou on ouvre un fichier ne se terminant pas pas un retour à la ligne, c'est géré.
17 juil. 2002 à 16:02
"aa" deviendrait
"aa
" ---> J'met des guillemet pour que cela paraisse clair :o)
Donc si quelqu'un avait la solution !
Merci :o)
17 juil. 2002 à 14:49
"ton texte" & vbcrlf
voila
17 juil. 2002 à 14:35