Comment faire pour lire un fichier a partir des fonction API

Résolu
shlen2
Messages postés
8
Date d'inscription
samedi 28 mai 2005
Statut
Membre
Dernière intervention
8 avril 2006
- 1 avril 2006 à 13:53
shlen2
Messages postés
8
Date d'inscription
samedi 28 mai 2005
Statut
Membre
Dernière intervention
8 avril 2006
- 8 avril 2006 à 14:47
Voilà, je trouve la lecture des fichiers par visual basic un peu lente, et je voudrait utilisé les fonctions APIs pour rendre le lecture d'un ficher plus rapide, le seul problème c'est que ne n'arrive pas a utiliser Readfile, Openfile, ect...

4 réponses

econs
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Modérateur
Dernière intervention
23 décembre 2008
23
1 avril 2006 à 23:21
Note : En VB, les APIs ne sont pas
plus rapides que les fonctions préinstallées dans VB. Ce sont des
fonctions inscrites dans des fichiers distants, et VB met beaucoup de
temps à les charger.

Il faut arrêter de prêter aux APIs des qualités qu'elles n'ont pas.



Un bon p'tit "Open fichier For Input As #1" ou bien le code de JMO seront plus rapides que des APIs.




Manu
3
cs_JMO
Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
26
1 avril 2006 à 14:12
Bonjour,

Je ne sais pas si mon exemple, ci-dessous, de lecture (vbs) est + rapide.

Dim fso, Path, Fichier, strtmp, i, objTextStream
Path = "d:\tmp"
Fichier = "TNG-finsession.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
Set objTextStream = fso.OpenTextFile(Path & Fichier, 1)
Do while not objTextStream.AtEndOfStream
strtmp = split(objtextstream.readline," ")
For i = 0 to Ubound(strTmp)
'If Lcase(strTmp(i)) = "spécification" Then' strListe strListe & vbcrlf & vbcrlf & "Spécification de sauvegarde > " & strtmp(i+3)
' spec = strtmp(i+3)
'End If
Next
loop
objTextStream.Close
Set fso = Nothing

jean-marc
0
Flachy Joe
Messages postés
2095
Date d'inscription
jeudi 16 septembre 2004
Statut
Membre
Dernière intervention
11 mars 2022
1
3 avril 2006 à 08:46
Et qu'en est il de la différence de rapidité entre l'ouverture 'For Binary' et 'For Input' ou 'For Random' ?

[;)] Flachy Joe [;)]
0
shlen2
Messages postés
8
Date d'inscription
samedi 28 mai 2005
Statut
Membre
Dernière intervention
8 avril 2006

8 avril 2006 à 14:47
Mais exist-il d'autres moyens pour lire une fichier (sans utilisé "Open 'fichier' for output ....)?
0