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
Précédent 1...23 24 25 26 27 28 29 30 31 32 ...129 Suivant
VFPWinsock - erreur Koen - 04/01/2016 22h35
Remplir une table foxpro à partir d'un fichier excel hanadakia - 04/01/2016 16h54
Bonne Année à tous Jean à Grenoble - 31/12/2015 18h13
Visual FoxPro HMAC with SHA256 OlivierH - 31/12/2015 10h42
DEFINE POPUP : petit détail grosse galère Jean à Grenoble - 30/12/2015 22h25
StrConv et byte en c# OlivierH - 30/12/2015 19h34
CHAMP NE S'IMPRIME PAS BENMAHAMED - 27/12/2015 20h00
hour MSabri111 - 26/12/2015 22h42
qu'est-ce que c'est ? Jean à Grenoble - 26/12/2015 11h40
buffer overrun eddymaue - 25/12/2015 16h26
interactiveChange d'un objet combobox MILCENT Bernhart - 25/12/2015 12h42
Juste avant de partir pour la famille eddymaue - 25/12/2015 11h33
Variable system SESSIONNAME et Win 10 pro GLS - 17/12/2015 07h33
vartype ou type OlivierH - 16/12/2015 19h08
Manipulation de fichier avec des fonctions de bas niveau alahem1 - 15/12/2015 22h15
XFRX PDF panterga - 14/12/2015 23h30
Changer la clause Where dans une vue Locale par programmation. MILCENT Bernhart - 14/12/2015 21h09
VFP & INGRES noureddine-Mila - 14/12/2015 18h36
ODBC EXCEL SOUS FOX prince - 09/12/2015 12h39
L'eau de la rivière Win10 qui s'écoule sour le pont Rouge est brumeuse sous le pont Rouge eddymaue - 08/12/2015 22h53
Précédent 1...23 24 25 26 27 28 29 30 31 32 ...129 Suivant

Flux RSS des derniers messages

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

ven. 18 décembre 2015, 21h27

GLS
France
atoutfox.public.association

Re: Manipulation de fichier avec des fonctions de bas niveau

A essayer

CLOSE ALL

**-- Initialisation


LOCAL nFichier AS integer, cCheminFichier AS string
LOCAL ARRAY aTableau[1]


**-- Chemin d'accés au fichier MonFichier.txt


cCheminFichier = 'd:\Monfichier.txt'

**-- Creation du Handle et/ou Ouverture du fichier MonFichier.txt


IF FILE(m.CheminFichier)
    nfichier = FOPEN(m.CheminFichier, 12)
ELSE
  nfichier = FCREATE(m.CheminFichier, 0)
ENDIF

**-- Ecriture sur MonFichier.txt


IF m.nfichier >-1
  = FSEEK(m.nfichier, 0, 2)
  = FPUTS(m.nfichier, TTOC(DATETIME()) + " Ecriture et/ou création sur le fichier réussis")
ELSE
  WAIT WINDOW "nfichier = " + ALLTRIM(STR(m.nfichier)) + " -> Pas d'écriture"
ENDIF

**-- Fermeture de MonFichier.txt


IF FCLOSE(m.nfichier)
  WAIT WINDOW "Fichier Fermé"
ELSE
  WAIT WINDOW "Fichier non Fermé"
ENDIF

Cordialement
Gilles

Permalink : http://www.atoutfox.org/nntp.asp?ID=0000016990

20 088 messages dans le forum • Liste complète des messages

Les pubs en cours :