Modifier un TXT...

jfk003 Messages postés 45 Date d'inscription mardi 29 octobre 2002 Statut Membre Dernière intervention 16 septembre 2005 - 29 oct. 2002 à 16:21
jfk003 Messages postés 45 Date d'inscription mardi 29 octobre 2002 Statut Membre Dernière intervention 16 septembre 2005 - 29 oct. 2002 à 22:50
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 !!!!
A voir également:

4 réponses

cs_rene38 Messages postés 1858 Date d'inscription samedi 29 juin 2002 Statut Membre Dernière intervention 17 octobre 2013 11
29 oct. 2002 à 17:36
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
0
jfk003 Messages postés 45 Date d'inscription mardi 29 octobre 2002 Statut Membre Dernière intervention 16 septembre 2005
29 oct. 2002 à 22:50
merci bocou!!!
0
jfk003 Messages postés 45 Date d'inscription mardi 29 octobre 2002 Statut Membre Dernière intervention 16 septembre 2005
29 oct. 2002 à 22:50
merci bocou!!!
0
jfk003 Messages postés 45 Date d'inscription mardi 29 octobre 2002 Statut Membre Dernière intervention 16 septembre 2005
29 oct. 2002 à 22:50
merci bocou!!!
0
Rejoignez-nous