Ecriture inversée dans fichier.txt

Sub inversetxt()
Dim tableautxt()
Dim nom As String
Dim i As Integer

i = 1
Open ('c:\\journal.txt') For Input As #1
Do While Not EOF(1)
Line Input #1, nom
ReDim Preserve tableautxt(i)
tableautxt(i) = nom: i = i + 1
Loop
Close

Open ('c:\\journal.txt') For Output As 1
For i = UBound(tableautxt) To 1 Step -1
Print #1, tableautxt(i)
Next i
Close

End Sub

Cliquez pour agrandir...