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
:
> Bonsoir ,
> +1
> FILETOSTR() permet de charger le contenu du fichier texte dans une variable
> VFP.
> Cordialement
> GLS
--
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