maChaineFinale = "" For i = 0 To UBound(Tableau) - 1 maChaineFinale = maChaineFinale & "text1=""" & Tableau(i) & """, " Next i maChaineFinale = maChaineFinale & "text1=""" & Tableau(UBound(Tableau)) & """" Print #Fichier2, maChaineFinale
Sub essai() Const Sep As String = "&" Dim T() As String, X As String, I As Integer, f As Integer Fichier1 = "C:/file_Ancien.txt" Fichier2 = "C:/file_Nouveau.txt" ' Ouverture fichier 1 en lecture f1 = FreeFile Open Fichier1 For Input As #f1 ' Ouverture fichier 2 en écriture f2=FreeFile Open Fichier2 For Output As #f2 ' Boucle de lecture fichier 1 + traitement + écriture dans fichier 2 ''''''''''''''''''Lecture fichier 1''''''''''' While Not EOF(f1) Line Input #F1, Ligne Tableau = Split(Ligne, ";") ????qu'est ce que t'appel traitement???? ''''''''''''''''''Ecriture fichier 2''''''''''' maChaineFinale = "" For i = 0 To UBound(Tableau) - 1 maChaineFinale = maChaineFinale & "text1=""" & Tableau(i) & """, " Next i maChaineFinale = maChaineFinale & "text1=""" & Tableau(UBound(Tableau)) & """" Print #Fichier2, maChaineFinale close #f2 Wend close #f1
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question