ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Forum AtoutFox : Re: Manipulation de fichier avec des fonctions de bas niveau   

Sujet

rss Flux RSS des derniers messages

Vous devez vous identifier pour pouvoir poser une question ou répondre.

sam. 19 décembre 2015, 08h45

GLS
France France

atoutfox.public.association

Re: Manipulation de fichier avec des fonctions de bas niveau

Bonjour,

Bonne questions!!
Mais je n'ai pas la réponse.

Les fonctions strtofile() et filetostr() sont plus simples à utiliser s'il s'agit de remplir avec du texte un fichier.
Pas besoin de conserver le header d'ouverture du fichier, ni de connaitre l'absence ou la présence du fichier, ni de le refermer avec en plus la possibilité d'encoder en UTF8..

Cordialement
Gilles

CLOSE ALL
#DEFINE CRLF CHR(13) + CHR(10)
**-- Initialisation
LOCAL cCheminFichier AS string, iNbCar AS integer, cTexte AS string
**-- Chemin d'accés au fichier MonFichier.txt
cCheminFichier = 'd:\Monfichier.txt'

**-- Ecriture sur MonFichier.txt
cTexte = TTOC(DATETIME()) + " Ecriture et/ou création sur le fichier réussis" + CRLF
iNbCar = LEN(m.cTexte)
IF STRTOFILE(m.cTexte, m.cCheminFichier, 1) <> m.iNbCar && 1 ajoute en fin de fichier
  WAIT WINDOW "-> Erreur d'écriture dans " + m.cCheminFichier
ENDIF

=MESSAGEBOX(FILETOSTR(m.cCheminFichier))


Permalink : http://www.atoutfox.org/nntp.asp?ID=0000016992
20 088 messages dans le forum • Liste complète des messages

Publicité

Les pubs en cours :


www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2024.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3