jfk003
Messages postés45Date d'inscriptionmardi 29 octobre 2002StatutMembreDernière intervention16 septembre 2005
-
29 oct. 2002 à 16:21
jfk003
Messages postés45Date d'inscriptionmardi 29 octobre 2002StatutMembreDernière intervention16 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 !!!!
cs_rene38
Messages postés1858Date d'inscriptionsamedi 29 juin 2002StatutMembreDernière intervention17 octobre 201311 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