Modification des fichiers textes

Résolu
Messages postés
20
Date d'inscription
mercredi 31 août 2005
Statut
Membre
Dernière intervention
5 janvier 2007
-
Messages postés
3877
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
23 août 2018
-
Bonjour tous le monde,
je sais pas est ce que quelqu'un peut m'aider, je suis debutant, ce que je souhaite avoir c'est:
j'ai un fichier text (c:\fichier.txt), je veux à partir du VB6 , chercher le contenu d'un textbox dans ce fichier, s'il exist je veux avoir un MsgBox comme quoi ce fichier existe dèja, si non le programe doit ajouter le contenu de ce textBox dans le fichier texte.

Merci d'avance

7 réponses

Messages postés
3877
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
23 août 2018
19
Tu dois modifier
Open MonFichier For OUPUT as #1
par
Open MonFichier For APPEND as #1

La nouvelle donnée se retrouvera à la fin du fichier et le fichier original ne sera pas écrasé.

MPi
Messages postés
2237
Date d'inscription
lundi 29 mai 2006
Statut
Membre
Dernière intervention
29 mai 2008
11
Re: Comme te l'a dit MPi (que je salue au passage)  ouvre le fichier en mode APPEND.

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:
Messages postés
2237
Date d'inscription
lundi 29 mai 2006
Statut
Membre
Dernière intervention
29 mai 2008
11
Salut, fais une petite recherche sur les sources lire et écrire dans un fichier texte tu auras tous ce que tu veux et sur codyx un snippet pour tester l'existance d'un fichier.

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:
Messages postés
2237
Date d'inscription
lundi 29 mai 2006
Statut
Membre
Dernière intervention
29 mai 2008
11
Private Sub CommandButton1_Click()
ParcourirFichierText ("C:\Ansalyse.txt")
End Sub


Sub ParcourirFichierText(ByVal PathName As String)


Dim TaString As String
Dim TextCherche As Integer


If Dir(PathName) <> "" Then


Open PathName For Input As #1
While Not EOF(1)


Line Input #1, TaString


TextCherche = InStr(1, TaString, TextBox1.Text, vbTextCompare)


If TextCherche > 0 Then


MsgBox ("Le texte cherché existe dans le fichier")


End If


Wend


Close #1


If TextCherche = 0 Then


Open PathName For Output As #1


Write #1, TextBox1.Text


Close #1


End If


Else


MsgBox ("Le fichier n'existe pas")


End If


End Sub

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:
Messages postés
20
Date d'inscription
mercredi 31 août 2005
Statut
Membre
Dernière intervention
5 janvier 2007

Effectivement, j'ai trouvé quelques sources, mais le problème c'est que quand le programme ne trouve pas ce qui est dans le textBox, il ecrase ce qui existe dans le fichier texte, et remet la valeur du textBox dans ce fichier.
Moi ce que je cherche, c'est quand le programe ne trouve pas le contenu du textBox, il doit garder tjr ce qui est dans le fichier texte, et ajouter dans la derniere ligne +1,  la valeur du textBox
Messages postés
20
Date d'inscription
mercredi 31 août 2005
Statut
Membre
Dernière intervention
5 janvier 2007

meeeeeeerci bien, vraiment c'est super
je m'excuse si je vous ai derangé
Messages postés
3877
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
23 août 2018
19
Tu ne nous a pas dérangés.
Si c'était le cas, nous ne serions pas là  ¦¬)
Bonjour à toi aussi Drikce

MPi