Comment lire les 188 derniers octets (caractères) d'un fichier texte ?Résolu

Question

Bonjour &#224; tous,

Je suis en train de faire un programme de gestion des alarmes sur un parc d'&#233;quipement et je dois aller lire dans un fichier texte volumineux (254ko). Ce fichier est compos&#233; d'un succession de cha&#238;ne de caract&#232;res de 188 octets (ou caract&#232;res) accol&#233;s (sans s&#233;paration). Je veux pouvoir lire la derni&#232;re chaine de 188 octet &#224; la fin du fichier et rechercher des chaines de caract&#232;res defaut ou alarme dans celle ci .

Comment faire pour lire la derni&#232;re cha&#238;ne de 188 octets du fichier ?

Merci d'avance!

cs_Jack · Accepted Answer

Salut
Cette technique fonctionnera (en vb.Net) mais tu seras oblig&#233; de lire toutes les donn&#233;es en m&#233;moire. Si ton fichier est gros, ce n'est peut-&#234;tre pas la bonne solution.
En VB6 :
Open monFichier For Binary As #1
   Longueur = LOF(1)
   D&#233;but = Longueur - 188
   Chaine = Space$(188)
   Get #1, D&#233;but, Chaine
Close #1
Le fait de pr&#233;parer une chaine de longueur d&#233;termin&#233;e forcera le Get &#224; lire cette longueur l&#224;.

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

linasteph · Answer

si ce sont les 188 derniers caract&#232;res du fichier que tu veux lire voici ce que je te pr&#233;conise:



dim FSO as New FileSystemObject

Dim tsFile as TextStream



set TsFile as FSO.textfile(MonfichierTexte,1)

sFile = tsFile.ReadAll

tsFile.Close



sString = right(sFile,188)

sString contient donc les 188 derniers caract&#232;res

linasteph · Answer

Info compl&#233;mentaire : FileSystemObject et TextStream sont disponibles si tu ajoute la r&#233;f&#233;rence "Microsoft scripting Runtime"

ARENIUS · Answer

Ok merci je vais essayer(pas aujourd'hui je n'ai pas le temps), mais est tu sur que les m&#233;thodes filesystemobject et textstream sont disponibles sur VB 6.0 ? Je crois me souvenir que ce n'est pas le cas....

ARENIUS · Answer

Arf j'ai quand m&#234;me eu le temps d'essayer et le compilateur me fait une erreur (m&#233;thode or data number not found) en s'arr&#234;tant sur FSO.textfile   ...........

linasteph · Answer

Ah oui parce que je me suis tromp&#233; c'est open Fso.textfile mais Fso.Opentextfile

ARENIUS · Answer

Merci pour votre aide :D

Comment lire les 188 derniers octets (caractères) d'un fichier texte ?

7 réponses

Discussions similaires