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

lire un ficheir ini

	Description
Retour à la liste L'auteur eric leissler France Membre Simple # 0000002784 enregistré le 06/03/2010 http://www.aumeric.fr 68 ans LEISSLER Eric 85290 MORTAGNE SUR SEVRE de la société AUMERIC LOGICIELS Fiche personnelle Note des membres pas de note	Contributions > 01 - PRG : Programmation lire un ficheir ini # 0000000279 ajouté le 28/01/2006 13:00:44 et modifié le 29/03/2006 consulté 8712 fois Niveau débutant Version(s) Foxpro : VFP 9.0 VFP 8.0 VFP 7.0 VFP 6.0 VFP 5.0 VFP 3.0
	Bonjour à toutes et à tous Voici du code pur fox pour lire un fichier ini. Bonne journée à tous Cordialement Aumeric
	Code source :
	Local monfichierini,nTaille,cChaine,destination,nbligne if vartype(m.monfichierini)#"C" m.monfichierini=getfile("ini") endif m.monfichierini = FOPEN(m.monfichierini) m.nTaille = FSEEK(m.monfichierini, 0, 2) IF m.nTaille <= 0 WAIT WINDOW "Ce fichier est vide!" NOWAIT ELSE = FSEEK(m.monfichierini, 0, 0) m.cChaine = FREAD(m.monfichierini, m.nTaille) ENDIF = FCLOSE(m.monfichierini) m.nbligne=memline(m.cchaine) i=1 do while i<=m.nbligne m.element= mline(m.cchaine,i) ? m.element i=i+1 enddo
	Commentaires
	Aucun commentaire enregistré ...

Contributions > 01 - PRG : Programmation