|
| Description fichiers HF vers fichiers texte |
| Débuté par sleblanc, 08 déc. 2004 00:01 - Aucune réponse |
| |
| | | |
|
| |
| Posté le 08 décembre 2004 - 00:01 |
À tout hasard je laisse ici la petite fonction que je me suis codé pour obtenir l'info des mes fichiers HF dans des fichiers textes
leCmptFic est un entier = 1
leCmptRub est un entier = 1
lcListeFic est une chaîne = HListeFichier(hLstTriée)
lcListeRub est une chaîne
lcNomRub est une chaîne
lcNomFic est une chaîne = ExtraitChaîne(lcListeFic, 1, RC)
leNumRubTXT est un entier
lcMsgEnvoyer est une chaîne = lcNomFic + " "
tmp est un chaîne
TANTQUE lcNomFic <> EOT
lcNomFic = ExtraitChaîne(lcListeFic, leCmptFic, RC)
leNumRubTXT = fOuvre("C:\DescHF\" + lcNomFic + ".txt", foCréation)
SI lcNomFic <> EOT ALORS
lcListeRub = HListeRubrique(lcNomFic, hLstNormal+hLstCléComposée)////hLstDétailPlus+HLstTout)
lcNomRub = ExtraitChaîne(lcListeRub, leCmptRub, RC)
TANTQUE lcNomRub <> EOT
lcNomRub = ExtraitChaîne(lcListeRub, leCmptRub, RC)
SI lcNomRub <> EOT ALORS
tmp = {lcNomFic + "." + lcNomRub}
fEcritLigne(leNumRubTXT, lcNomRub + TAB + {lcNomFic + "." + lcNomRub}..FormuleClé)
FIN
leCmptRub += 1
FIN
FIN
fFerme(leNumRubTXT)
leCmptRub = 1
leCmptFic += 1
FIN
Libre à vous tous de la critiquer et de la corrigé mais s'il-vous-plait publié les modifications. |
| |
| |
| | | |
|
| | | | |
| | |
|