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

connaitre le dbc associé à un dbf avant ouverture   



L'auteur

FredA
France France
Membre Simple
# 0000000005
enregistré le 12/10/2004

Fiche personnelle


Note des membres
pas de note

Contributions > 04 - DBF : Tables

connaitre le dbc associé à un dbf avant ouverture
# 0000000220
ajouté le 11/07/2005 11:46:13 et modifié le 11/07/2005
consulté 8616 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
on lit tout d'abord la taille du header (position 8 et 9) puis on positionne le pointeur à la taille du header-263 pour choper le nom du dbc associé.
Code source :
m.fdbf=GETFILE('dbf')

IF EMPTY(m.fdbf)

    RETURN

ENDIF

m.hdbf=FOPEN(m.fdbf,0)

IF m.hdbf<=0

    RETURN

ENDIF

=FSEEK(m.hdbf, 8, 0)

m.cHeaderSize=FREAD(m.hdbf,2)

m.nHeadersize=ASC(LEFT(m.cHeaderSize,1))+256*ASC(RIGHT(m.cHeaderSize,1))

=FSEEK(m.hDbf, m.nHeaderSize-263)

m.cDbcName=FREAD(m.hdbf, 262)

m.cDbcName = STRTRAN(m.cDbcName, CHR(0))

=FCLOSE(m.hDbf)

? m.cDbcName

Commentaires
Aucun commentaire enregistré ...

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