PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV 2024 → Parcourir un fichier de manière récursive
Parcourir un fichier de manière récursive
Débuté par daniel, 07 nov. 2005 23:25 - 3 réponses
Posté le 07 novembre 2005 - 23:25
Bonjour, voici mon soucis.

J'ai une table Hyperfile avec la structure de type
ID, DAD, LIB
1 - 0 - Père1
2 - 1 - enfant de Père1
3 - 1 - enfant de Père1
4 - 0 - Père2
5 - 4 - enfant de Père2

Je voudrais parcourir cette table via une procédure que j'appelle

Lecturetbl(0)

Procedure Lecturetbl(dad ...)
Parcour de la table avec un hfilre sur le dad
dans le parcours appel ce cette même procédure
Lecturetbl(id)

de cette manière je peux parcourir x fois la table en fonction des dads.
Mais dans l'appel de ma procédure,il se prend les pinceaux avec le hfiltre.

Si quelqu'un à une idée, je suis preneur.

Merci pour l'aide.

Daniel
Posté le 07 novembre 2005 - 10:36
l'utilisation de hsauveposition en début de ta fonction
et de hretourposition(...,hrpfiltre) en fin de ta fonction
devrait t'aider !

bon courage ;)
eric l

"daniel" <daniel@demesmaeker.net> a écrit dans le message de news:
436e8ae0$1@news.pcsoft.fr...

Bonjour, voici mon soucis.

J'ai une table Hyperfile avec la structure de type
ID, DAD, LIB
1 - 0 - Père1
2 - 1 - enfant de Père1
3 - 1 - enfant de Père1
4 - 0 - Père2
5 - 4 - enfant de Père2

Je voudrais parcourir cette table via une procédure que j'appelle

Lecturetbl(0)

Procedure Lecturetbl(dad ...)
Parcour de la table avec un hfilre sur le dad
dans le parcours appel ce cette même procédure
Lecturetbl(id)

de cette manière je peux parcourir x fois la table en fonction des dads.
Mais dans l'appel de ma procédure,il se prend les pinceaux avec le
hfiltre.

Si quelqu'un à une idée, je suis preneur.

Merci pour l'aide.

Daniel


Posté le 07 novembre 2005 - 12:04
Merci Eric pour ta réponse,
je vais analyser et essayer.

Bonne journée.
Posté le 08 novembre 2005 - 14:04
Salut,

Pourquoi ne pas faire de hlitrecherchepremier plutôt que des filtres?

Procedure Lecturetbl(dad)
hlitrecherchepremier(nomfichier,dad,dad)
tantque htrouve(nomfichier)
Lecturetbl(nomfichier.ID)
hlitsuivant(nomfichier)
fin

Mathieu