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

lire un ficheir ini   



L'auteur

eric leissler
France France
Membre Simple
# 0000002784
enregistré le 06/03/2010
http://www.aumeric.fr
62 ans
leissler eric
85290 MORTAGNE SUR SEVRE
de la société AUMERIC LOGICIELS ( 0633412395 )
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é 4556 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

Description

Bonjour à toutes et à tous

 

Voici du code pur fox pour lire un fichier ini.

Bonne journée à tous

Cordialement
Aumeric

Dessin et animation : Pierre LEISSLER

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é ...

Publicité

Les pubs en cours :


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