Modifier un TXT...

Messages postés
45
Date d'inscription
mardi 29 octobre 2002
Statut
Membre
Dernière intervention
16 septembre 2005
-
Messages postés
45
Date d'inscription
mardi 29 octobre 2002
Statut
Membre
Dernière intervention
16 septembre 2005
-
voilà la question en fera rire certains mais je débute ; quelqu'un pourrait t'il m'écrire les quelques lignes nécéssaires pour intégrer une lingne de texte dans un fichier txt à la ligne disons 320 par exemple ? enfin la ligne de mon choix ( action sur pression d'un bouton ) ; GROS MERCI d'avance à celui qui me répondra !!!!

4 réponses

Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
10
Dim NuméroDeLigne As Integer, i As Integer, LigneLue As String, Ligne_à_ajouter As String, FichierOriginal As String, FichierModifié As String
NuméroDeLigne = 320 ' par exemple
Ligne_à_ajouter = "Le texte de la ligne à ajouter"
FichierOriginal = Chemin & "NomDuFichier.txt"
FichierModifié = Chemin & "Truc.txt"
Open FichierOriginal For Input As #1
Open FichierModifié For Output as #2
For i = 1 To 319
Line Input #1, LigneLue
Print #2, LigneLue
Next i
Print #2, Ligne_à_ajouter
Do While Not EOF(1)
Line Input #1, LigneLue
Print #2, LigneLue
Loop
Close
Kill FichierOriginal
Name FichierModifié As FichierOriginal

ATTENTION : si le fichier original a 315 lignes : ERREUR en essayant de lire la 316ème
Messages postés
45
Date d'inscription
mardi 29 octobre 2002
Statut
Membre
Dernière intervention
16 septembre 2005

merci bocou!!!
Messages postés
45
Date d'inscription
mardi 29 octobre 2002
Statut
Membre
Dernière intervention
16 septembre 2005

merci bocou!!!
Messages postés
45
Date d'inscription
mardi 29 octobre 2002
Statut
Membre
Dernière intervention
16 septembre 2005

merci bocou!!!