Lire les 188 derniers octets d'un fichier texte en VB6.0

Lire les 188 derniers octets d'un fichier texte en VB6.0 - VB/VBA/VBS - Programmation

Marsh Posté le 04-11-2005 à 13:15:00    

Bonjour à tous,
 
Je suis en train de faire un programme de gestion des alarmes sur un parc d'équipement et je dois aller lire dans un fichier texte volumineux (254ko). Ce fichier est composé d'un succession de chaîne de caractères de 188 octets (ou caractères) accolés (sans séparation). Je veux pouvoir lire la dernière chaine de 188 octet à la fin du fichier et rechercher des chaines de caractères defaut ou alarme dans celle ci .
 
Comment faire pour lire la dernière chaîne de 188 octets du fichier ? Je sais comment procèder en lisant le fichier ligne par ligne et lire la dernière ligne mais par contre je ne vois pas trop comment lire la dernière chaîne...
 
Merci d'avance!

Reply

Marsh Posté le 04-11-2005 à 13:15:00   

Reply

Marsh Posté le 04-11-2005 à 14:39:03    

sepiroth a écrit :

Bonjour à tous,
 
Je suis en train de faire un programme de gestion des alarmes sur un parc d'équipement et je dois aller lire dans un fichier texte volumineux (254ko). Ce fichier est composé d'un succession de chaîne de caractères de 188 octets (ou caractères) accolés (sans séparation). Je veux pouvoir lire la dernière chaine de 188 octet à la fin du fichier et rechercher des chaines de caractères defaut ou alarme dans celle ci .
 
Comment faire pour lire la dernière chaîne de 188 octets du fichier ? Je sais comment procèder en lisant le fichier ligne par ligne et lire la dernière ligne mais par contre je ne vois pas trop comment lire la dernière chaîne...
 
Merci d'avance!


 
Utiliser la fonction  

Code :
  1. longueurfichier = filelen(chemin du fichier)-188


puis ouvrir le fichier avec  

Code :
  1. open chemin du fichier for binary access read as #1 len=188
  2. seek #1, longueurfichier


 
puis lire le fichier
 

Code :
  1. input #1, ...


 


---------------
Ce qui est affirmé sans preuve peut être nié sans preuve.
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed