Comment faire pour lire un fichier a partir des fonction APIRésolu

Question

Voil&#224;, je trouve la lecture des fichiers par visual basic un peu lente, et je voudrait utilis&#233; les fonctions APIs pour rendre le lecture d'un ficher plus rapide, le seul probl&#232;me c'est que ne n'arrive pas a utiliser Readfile, Openfile, ect...

econs · Accepted Answer

Note : En VB, les APIs ne sont pas
plus rapides que les fonctions pr&#233;install&#233;es dans VB. Ce sont des
fonctions inscrites dans des fichiers distants, et VB met beaucoup de
temps &#224; les charger.

Il faut arr&#234;ter de pr&#234;ter aux APIs des qualit&#233;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

cs_JMO · Answer

Bonjour,

Je ne sais pas si mon exemple, ci-dessous, de lecture (vbs) est + rapide.

Dim fso, Path, Fichier, strtmp, i, objTextStream
Path    = "d:	mp"
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&#233;cification" Then'   strListe strListe & vbcrlf & vbcrlf & "Sp&#233;cification de sauvegarde  >       " & strtmp(i+3)
'   spec = strtmp(i+3) 
'End If
Next
loop
objTextStream.Close
Set fso = Nothing

jean-marc

Flachy Joe · Answer

Et qu'en est il de la diff&#233;rence de rapidit&#233; entre l'ouverture 'For Binary' et 'For Input' ou 'For Random' ?

[;)] Flachy Joe [;)]

shlen2 · Answer

Mais exist-il d'autres moyens pour lire une fichier (sans utilis&#233; "Open 'fichier' for output ....)?