Ajouter du texte à un fichier .txt

Résolu
Mookhila Messages postés 5 Date d'inscription mercredi 22 octobre 2008 Statut Membre Dernière intervention 6 janvier 2010 - 6 janv. 2010 à 01:33
youpidoo Messages postés 12 Date d'inscription samedi 22 octobre 2005 Statut Membre Dernière intervention 6 janvier 2010 - 6 janv. 2010 à 15:27
Bonjour les amis en effet, je suis nouveau en programmation. Mais j'aimerai savoir comment écrire à la suite d'un fichier .txt

5 réponses

Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
6 janv. 2010 à 07:29
Open "C:\Fichier.txt" For Append As #1
    Print #1, "Nouvelle ligne ajouté le " & Now
Close #1


Renfield - Admin CodeS-SourceS - MVP Visual Basic
3
Mookhila Messages postés 5 Date d'inscription mercredi 22 octobre 2008 Statut Membre Dernière intervention 6 janvier 2010
6 janv. 2010 à 10:54
Merci bocou car cela repond très bien à ma question. Et ça marche.
Mais si ce n'est pas trop vous demander j'aimerai savoir comment je pourrai faire une recherche de caractères ligne par ligne dans ce fichier .txt avec vb6
0
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
6 janv. 2010 à 10:56
ouvrir en lecture :
Open "C:\Fichier.txt" For Input As #1

et voir commandes

Do While ...
...
Loop

Line Input
EOF
et Instr


Renfield - Admin CodeS-SourceS - MVP Visual Basic
0
youpidoo Messages postés 12 Date d'inscription samedi 22 octobre 2005 Statut Membre Dernière intervention 6 janvier 2010
6 janv. 2010 à 15:25
et à l'aide aussi de l'instruction Instr() ; par ex:
If Instr(EnregistremtChaine,SousChaineRecherchée) > 0 _
Then ... (la sous-chaine est trouvée dans l'enreg.)
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
youpidoo Messages postés 12 Date d'inscription samedi 22 octobre 2005 Statut Membre Dernière intervention 6 janvier 2010
6 janv. 2010 à 15:27
(pour préciser ce que Renfield a mis à la fin de son msg)
0
Rejoignez-nous