Duke49
Messages postés552Date d'inscriptionjeudi 12 octobre 2006StatutNon membreDernière intervention24 janvier 2023
-
29 déc. 2008 à 22:35
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 2021
-
30 déc. 2008 à 08:57
Je cherche a comprendre un bug du VB lors d'une lecture de deux fichiers simultanément.
Comment expliquer que quant je compare deux fichiers de 50 mo, il met 5 sec.
Alors qu'en comparant un fichier de 150ko et un fichier de 270ko, il met 10 sec ?
Le même code sauf que le problème est invisible !
Que fait GET !?
Il a peur des 120ko en trop ?
Faite un essai par vous même et répondez moi s'il vous plaît, je n'arrive pas à optimiser mon code.
Voici le bout de code:
Dim MEMORY_BLOCK As Long
Dim bufReadOrg(1023) As Byte, bufReadMod(1023) As Byte
MEMORY_BLOCK = ubound(bufReadOrg)
Open FichierA For Binary As #1 Len = MEMORY_BLOCK
Open FichierB For Binary As #2 Len = MEMORY_BLOCK
cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 201579 30 déc. 2008 à 02:57
Re
Essaye de lire et de comprendre les réponses qu'on a apporté pour cette même réponse dans ton post précédent.
Dans ton exemple ;
- lenFA n'est pas renseigné. Tu ne dois pas donc lire correctement les données.
- MEMORY_BLOCK te donne la valeur d'index haute de ton tableau
Cela ne CORRESPOND PAS au nombre de Bytes puisque le tableau commence à 0
Combien de fois faut-il te l'écrire ?
- Si tu dois lire les derniers octets, il faut adapter la longueur de ton tableau au nombre de Bytes restant à lire
Il faut donc utiliser des tableau à dimensionnenement dynamique
--> Lire l'aide de VB6 à ce sujet
- Dans la même boucle, tu lis 2 fichiers
S'ils sont de taille différente, tu vas au devant de problème car tu ne testes que la taille du premier fichier.
Si tu veux savoir comment faire tout ça, charge quelques Codes en tapant "lecture binary" dans la recherche parmi les codes en excluant .NET.
La lecture sous forme de Byte est-elle la mieux adaptée ?
On ne peut pas te le dire puisqu'on ne sait pas ce que tu veux faire.
Vala
Jack, MVP VB NB : Je ne répondrai pas aux messages privés
<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)