Re: maj structure fichiers temp. : stratégie...

Posté par R&B le 13/3/2003 9:29:56

la voie en cours
(pardonc je sis dans une classe, il se peut alors que des membres soit glissé dans le code..

en fait en cas d'erreur dans la structure, je pense ouvrir le fichier, faire un dump (export en txt), hcréer le fichier et récupérer les données (himportetexte)


QUAND EXCEPTION DANS
HCréationSiInexistant(cNomFic)
FAIRE
cFicPhys est une chaîne = :m_cRep+"\"+cNomFic+".fic"
ctxt est une chaîne = :m_cRep+"\"+cNomFic+".txt"
nfic est un entier
SI fRep(cFicPhys,frFichier)<>"" ALORS
Info("le fichier existe déja",HListeRubrique(cNomFic))
// DUMP le fichier dans un txt
Sablier
nfic=fOuvre(ctxt,foCréation+foLectureEcriture)
SI nfic<>-1 ALORS
POUR TOUT cNomFic
fEcritLigne(nfic,HRécupèreEnregistrement(cNomFic))
FIN
fFerme(nfic)
FIN
// crée avec nouvelle structure
HCréation(cNomFic)
// re-importe les données
HImporteTexte(cNomFic,ctxt,TAB+Caract(127)+""""+Caract(127)+RC,hImpSansDélimiteur)
HOuvre(cNomFic)
Sablier(Faux)
FIN
FIN


saut que je ne puis parcourir le fichier, il n'as pas la structure voulue...

J'ai trouvé une solution, mais cela soulève un autre cas qui sera une grosse surprise... les fichiers HF vont souffir