Récupérer la dernière ligne d'un fichier texte

Signaler
Messages postés
19
Date d'inscription
jeudi 17 avril 2003
Statut
Membre
Dernière intervention
28 janvier 2004
-
Messages postés
19
Date d'inscription
jeudi 17 avril 2003
Statut
Membre
Dernière intervention
28 janvier 2004
-
Hello,

Comment fait on pour récupérer la dernière ligne d'un fichier texte. il est constitué comme cela :

debut 15.05.2003 11:28
fin 15.05.2003 11:30
debut 15.05.2003 11:35
fin 15.05.2003 11:40
debut 15.05.2003 11:15
fin 15.05.2003 11:50

Le but est de créer un Form qui se rafraîchit tous les 2 min en affichant cet dernière ligne.

C'est urgent

Merci encore pour les infos

3 réponses

Messages postés
34
Date d'inscription
mardi 25 février 2003
Statut
Membre
Dernière intervention
21 août 2003

Utilises la classe streamreader pour lire ton fichier

Savoir que l'on ne sait rien, c'est toujours mieu que de ne rien savoir du tout.
Messages postés
180
Date d'inscription
lundi 17 mars 2003
Statut
Membre
Dernière intervention
7 juin 2003
1
add 1 timer et timer1.interval = 2000 => dans les properties

nom ficher = c:\a.txt

Private Sub Timer1_Timer()

Dim Temp As String
Dim arr

Temp = ""

Open "c:\a.txt" For Input As #1

Temp = Input(LOF(1), #1)

Close #1

arr = Split(Temp, Chr$(13))

MsgBox arr(UBound(arr) - 1) & arr(UBound(arr))

End Sub
Messages postés
19
Date d'inscription
jeudi 17 avril 2003
Statut
Membre
Dernière intervention
28 janvier 2004

Super merci ....