extraire octets d'un fichier binaire de maniere optimisée

Question

salut 

voici mon probleme:

je souhaite extraire les octets d'un fichier binaire.

Le volume de ces fichiers est acceptable (jusqu'a 10 Mo)

le but etant de rechercher des chaines HEXA qui une fois trouvées seront remplacées par d'autres OCTETS.

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

pour le moment mon programme lit les Octets avec get dans un tableau dimmensionné a la taille du fichier (1 variable:  Octet(taille du fichier))

1er Inconvenient: c'est tres tres lent !!!!! (environ 10 secondes pour 1 Mo!!!) 

il me faudrait une methode beaucoup plus rapide !!!

+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

la methode de recherche:

pour le moment je fais une recherche octet par octet cad. je compare le premier octet de ma chaine a recherche avec le les octets contenus dans mon tableau ( octets(100000) grace a une boucle. si le 1er octet est identique je compare le 2eme octet et ainsi de suite . Si la chaine est trouvé c'est gagné.

Le probleme: j'ai 16 chaines d'octets ( chaque chaine a entre 8 et 32 octets) a rechercher.
la encore la recherche glogale dure environs 30 secondes dans un fichier de 1 Mo.

Ce que je recherche, c'est une methode de mise en memoire et de recherche plus flexible et plus rapide que ma methode qui sauvegarde et recherche octet par octet. ( existerait t'il peut etre une fonction de recherche de "chaine d'octet" comme pour les strings ???)

voila voila

merci

NHenry · Answer

Tu a essay&#233; en acc&#232;s al&#233;atoire?, tu acc&#232;des aux donn&#233;es par bloc.






Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)

Une question se pose sur le forum, pas en priv&#233;


NH

fatmaboule · Answer

pour le moment j'ouvre le fichier de la maniere suivante:

Dim dnr As Byte 'ok
dnr = FreeFile
Open chemin & fichier For Binary As #dnr
ReDim octet(longueur)
For y = 1 To longueur
    Get #dnr, y, octet(y)
Next

que va m'apporter l'acces aleatoire ???

n'est-il pas plus judicieux de charger l'ensemble du fichier en memoire ??

( ou alors j'ai pas compris ce que tu veux dire !  :-)

je ne comprends pas non plus ce que tu veux dire pas  "Il est plus facile de batiser kk1 que de la convertir."

c'est ma 1ere question sur le forum !!! qu'est ce que j'ai mal fait pour que ce soit un message privé ????

BruNews · Answer

On ne r&#233;p&#232;tera jamais assez: PAS DE TRAITEMENTS LOURDS EN VB, ce n'est pas fait pour cela.
On &#233;crit une dll en natif (C ou ASM) et on l'appelle depuis vb. Cod&#233;e correctement, une dll devrait traiter au moins 5 Mo/s.

ciao...
BruNews, MVP VC++

cs_69chris · Answer

Salut,



Je pense &#224; un truc similaire, c'est la coloration de fichier dans un &#233;diteur de texte.

J'ai vu une appli Delphi le faire pour traiter un fichier texte pour que des "mots cl&#233;s" sois color&#233; dans un contr&#244;le rtf.

La techinque consite &#224; utiliser des jetons (token), un tableau de
r&#233;f&#233;rence et faire une lecture s&#233;quencielle du fichier. C'est super
chaud &#224; coder mais &#231;a marchais super bien.



A ta place, je chercherais des infos sur "token", "tokenize", "tokenizer".



Chris

N'oubliez pas de cloturer votre post.

cs_CanisLupus · Answer

Salut, si c'est pour charger tout le fichier d'un coup en m&#233;moire, il existe la fonction input :

dim s as string
dim dnr as byte
dnr = FreeFile
Open chemin & fichier For inpur As #dnr
s= input(lof(dnr),#dnr)
close #dnr

Ensuite, tu analyses ta chaine 's' octet par octet. Question perf, je ne sais pas comment se comporte windows au niveau lecture disque mais je pense qu'&#224; ce niveau &#231;a doit &#234;tre plus rapide qu'octet par octet.
Bien s&#249;r, reste l'analyse de la chaine en m&#233;moire et il faudra passer par des mid.
Y a-t-il gain sur un fichier de 10 Mo ? Pas s&#249;r en VB. A tester.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

cs_CanisLupus · Answer

Oups, tout le monde aura compris :
Open chemin & fichier For input As #dnr

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

Extraire octets d'un fichier binaire de maniere optimisée

6 réponses

Discussions similaires