WDForge.org - Forums

Re: Description des fichiers HF

Sujet: Re: Description des fichiers HF
par il_a_ri sur 7/12/2004 22:24:47

Merci Oceans, vous m'avez mis sur la bonne voie.

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

Encore merci à Oceans

il_a_ri