Discussion :

[bubu92]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Type toto1
	a as Long
	b as integer
	c as string * 1000
end type
 
Type toto2
	a as Long
	b as integer
end type

Bonjour,

j'ai un fichier avec 4000 enregistrements de type "toto1".
Je les lis avec ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
dim Rec1 as toto1
 
Open Test$ For Random Access Read Write Lock Read Write As #1 Len = Len(Rec1)
 
For a& = 1 To 4000
	Get #1, a&, Rec1
Next a&
 
Close #1

Avec cette autre methode, pour ne lire que le Long et l'Integer, on pourrait
s'attendre a lire plus rapidement, hors c'est a peine le cas !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
dim Rec1 as toto1
dim Rec2 as toto2
 
Open Test$ For Binary Access Read Write Lock Read Write As #1
 
For a& = 1 To 4000
        m& = ((a& - 1) * Len(Rec1)) + 1
	Get #1, m&, Rec2
Next a&
 
Close #1

Qui peut m'expliquer pourquoi ?
(Le fichier se trouve en partage sur un réseau Ethernet 10/100)

[CBFURAX]

Le volume de données parcouru est le même dans les deux cas.
Ce qui ralentit, c'est probablement la gestion des permissions (partage), lors de chacun des 4000 accès.

Essaie de lire ton fichier en un seul bloc, puis de travailler en mémoire en manipulant des strings (le fichier n'est pas bien gros) ?

EDIT :
Voilà un bout de code à tester :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
    Dim Rec1(1 To 4000) As toto1
    Dim iCanal As Integer
 
    iCanal = FreeFile
    Open Test For Binary Access Read Write Lock Read Write As iCanal
    Get #iCanal, 1, Rec1
    Close iCanal
 
    ' récupération des données :
    ' dim a&
    ' for a&=1 to 4000
    '   debug.print Rec1(a&).a
    '   debug.print Rec1(a&).b
    '   debug.print Rec1(a&).c
    ' next a&

[bubu92]

Merci pour la reponse

mais c'est une catastrophe! quelque soit la methode c'est super lent
j'ai meme essayé avec l'api Readfile et SetFilePointer mais ça change rien,
c'est désesperant...
Je vais devoir utiliser 2 fichiers, un pour les données legères ( que je dois
parcourir) et l'autre pour les données "lourdes" (le detail de l'enregistrement).
Encore merci pour le bout d'code