Modification des fichiers textes Résolu

Question

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

cs_MPi · Accepted Answer

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

drikce06 · Answer

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:

drikce06 · Answer

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:

hsiko309 · Answer

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

drikce06 · Answer

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:

hsiko309 · Answer

meeeeeeerci bien, vraiment c'est super 
je m'excuse si je vous ai derangé

cs_MPi · Answer

Tu ne nous a pas dérangés.
Si c'était le cas, nous ne serions pas là  ¦¬)
Bonjour à toi aussi Drikce

MPi

Modification des fichiers textes

7 réponses

Votre réponse

Discussions similaires