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

Lire & Ecrire un fichier INI   


L'auteur

François 37
France France
Membre Simple
# 0000000103
enregistré le 03/11/2004
LEPAGE François
Fiche personnelle

Note des membres
pas de note

Contributions > 01 - PRG : Programmation

Lire & Ecrire un fichier INI
# 0000000285
ajouté le 30/01/2006 08:32:52 et modifié le 30/01/2006
consulté 8791 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
FPW 2.6
Description
Ces 2 petites fonctions permettent de lire et surtout d'écrire dans un fichier INI
Code source :
***** Décalarations API Windows
DECLARE GetWindowsDirectory IN kernel32.dll String, Integer
DECLARE GetPrivateProfileString IN kernel32.dll String, String, String, String, Integer, String
DECLARE WritePrivateProfileString IN kernel32.dll String, String, String, String

*****************************************************************
Procedure INI_Lire
*****************************************************************
parameters tcSection, tcRubrique, tcFichier
local lcContenu, liLongueur

lcContenu = space(250)
liLongueur = GetPrivateProfileString(tcSection, tcRubrique, "", @lcContenu, 250, tcFichier)

Return(alltrim(left(m.lcContenu, m.liLongueur)))

*****************************************************************
Procedure INI_Ecrire
*****************************************************************
parameters tcSection, tcRubrique, tcValeur, tcFichier
local liLongueur

liLongueur = WritePrivateProfileString(tcSection, tcRubrique, tcValeur, tcFichier)

Return(m.liLongueur)
Commentaires
Aucun commentaire enregistré ...
Publicité

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