Lire les X derniers caractères d'un fichier texte

Bishopmetz Messages postés 16 Date d'inscription vendredi 4 avril 2003 Statut Membre Dernière intervention 30 mai 2005 - 9 sept. 2003 à 20:13
Bishopmetz Messages postés 16 Date d'inscription vendredi 4 avril 2003 Statut Membre Dernière intervention 30 mai 2005 - 9 sept. 2003 à 20:26
tout est dans le titre
comment lire les X derniers caractères d'un fichier texte, et les stocker dans une variable afin de les comparer à une chaine ?
j'ai utilisé ça
Open file2.txt For Input As freefile
Line Input #2, varfile2
Close

le problème est que je ne récupère pas la dernière ligne mais toute les lignes séparée par un rectangle

2 réponses

Bishopmetz Messages postés 16 Date d'inscription vendredi 4 avril 2003 Statut Membre Dernière intervention 30 mai 2005
9 sept. 2003 à 20:15
me suis planté en recopiant mon code, c'est

> Open file2.txt For Input As #2
> Line Input #2, varfile2
> Close
0
Bishopmetz Messages postés 16 Date d'inscription vendredi 4 avril 2003 Statut Membre Dernière intervention 30 mai 2005
9 sept. 2003 à 20:26
en fait j'ai trouvé tout seul
Open file2 For Input As nbfile2
Do Until EOF(2) = True
Line Input #2, varfile2
Loop
Close #2
varfile2 = RTrim(varfile2)
varfile2 = Right(varfile2, x)

désolé d'avoir dérangé
0
Rejoignez-nous