Fichier random

Signaler
Messages postés
7
Date d'inscription
vendredi 18 août 2006
Statut
Membre
Dernière intervention
25 juin 2012
-
Messages postés
7
Date d'inscription
vendredi 18 août 2006
Statut
Membre
Dernière intervention
25 juin 2012
-
Salut a tous,
Je suis actuellement sur un projet dont la base de donnée est basée sur des fichiers random. Je n'ai pas eu de souci pour y acceder mais je constate que le temps de parcours de mes fichier est extrement long ! J'aurai voulu savoir qu'elle etait la meilleur technique pour parcourir mes fichier afin d'optimisé mon programme ou savoir si c'est tout simplement vb.net qui est lent sur ce genre de traitement.
Merci

3 réponses

Messages postés
4822
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
13
Salut,

Montre nous le bout de code de lecture, pour que les membres puissent te répondre avec précision...

A+
Exploreur

 Linux a un noyau, Windows un pépin

 
Messages postés
7
Date d'inscription
vendredi 18 août 2006
Statut
Membre
Dernière intervention
25 juin 2012

J'ouvre mon fichier random avec cette fonction :

Public Sub OpenDataPolice(ByVal intNumCie As Integer)
Dim strCie As String
Dim intReclength As Integer

intReclength = 512 ' : FileClose(intNumFilePolice)
strCie Right$(Str$(intNumCie), 2) : strCie Replace(strCie, " ", "0", 1)
FileOpen(intNumFilePolice, sRootBase & "\pol" & strCie & ".d", OpenMode.Random, OpenAccess.ReadWrite, OpenShare.Shared, intReclength)
READPOL(1)
If LOF(intNumFilePolice) <intReclength Then lngNbPolice 1 Else lngNbPolice = Math.Round((LOF(intNumFilePolice) / intReclength), 0)
End Sub

et pour la lecture :
Public Sub READPOL(ByVal intNumFiche As Long)
FileGet(intNumFilePolice, FichePolice, intNumFiche)
End Sub
Messages postés
7
Date d'inscription
vendredi 18 août 2006
Statut
Membre
Dernière intervention
25 juin 2012

J'ai bugger desolé javascript:Insert_Emoticon('/imgs2/smile_big.gif');