Comment se placer dans un fichier

cs_caroo Messages postés 1 Date d'inscription mardi 24 juin 2003 Statut Membre Dernière intervention 24 juin 2003 - 24 juin 2003 à 16:28
figo566 Messages postés 59 Date d'inscription mercredi 19 janvier 2005 Statut Membre Dernière intervention 1 mai 2011 - 1 avril 2006 à 10:17
Bonjour,
voici ce que j'aimerais faire:
-> ouvrir un fichier
-> me placer apres une chaine de caracteres precise
-> ecrire a cet endroit

malheureusement j'ai un peu du mal pour aller au bon endroit...

Merci du coup de main,
Caro

2 réponses

cs_rene38 Messages postés 1858 Date d'inscription samedi 29 juin 2002 Statut Membre Dernière intervention 17 octobre 2013 11
25 juin 2003 à 00:15
Dim Texte As String, Cherché As String, Inséré As String, Point_dInsertion As Long
Cherché = "La chaîne que je cherche"
Inséré = "J'ajoute ici"
Open "g:\Chemin\Fichier.txt" For Binary As #1
Texte = Input(LOF(1), 1)
Point_dInsertion = InStr(Texte, Cherché) + Len(Cherché)
Texte = Left(Texte, Point_dInsertion - 1) & Inséré & Mid(Texte, Point_dInsertion)
Put 1, , Texte
Close
0
figo566 Messages postés 59 Date d'inscription mercredi 19 janvier 2005 Statut Membre Dernière intervention 1 mai 2011
1 avril 2006 à 10:17
désolé mais ce code recopie une nouvelle fois le texte avec le changement. Il le met à la suite
0
Rejoignez-nous