Forum AtoutFox : Re: Comment lire un fichier texte distant   

ven. 15 juillet 2016, 16h38
eddymaue
atoutfox.public.association

Re: Comment lire un fichier texte distant

Bonjour

+1

FileToStr() est bien pour des fichiers de moins de 1mo, pour des
fichiers plus volumineux j'aime mieux utiliser FOpen(), Fseek() ou
Fget()

Fgets() est intéressant en ce sens qu'il lit séquentiellement le
fichier ligne par ligne

voilà un exemple

* votre fichier
* lcfichier = chemin+nom du fichier

Local lcFichier As Character
****************************
m.lcFichier="fichier"

For i = 1 To 99
Fclose(i)
Endfor

Set Step On
h = Fopen(m.lcFichier,0) && lecture seulement

If h<1
Assert .f. Message [** h est vide : fichier non ouvert **]
cancel
EndIf

Do While Not Feof(h)
? Fgets(h)
Enddo

a+ eddy




:


--
a+ Eddy
Merci de partager avec moi votre immense savoir que je me ferai plaisir
d'absorber... il va de soi que je vais vous en laisser un peu
Politesse et savoir vivre oblige ;0)
Permalink : http://www.atoutfox.org/nntp.asp?ID=0000017733