RETROUVER UN FICHIER INDEX (CDX) À ZÉRO

Signaler
Messages postés
2
Date d'inscription
mercredi 13 décembre 2006
Statut
Membre
Dernière intervention
12 mars 2007
-
Messages postés
2
Date d'inscription
mercredi 13 décembre 2006
Statut
Membre
Dernière intervention
12 mars 2007
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/26990-retrouver-un-fichier-index-cdx-a-zero

Messages postés
2
Date d'inscription
mercredi 13 décembre 2006
Statut
Membre
Dernière intervention
12 mars 2007

Voici une suggestion pour, selon moi améliorer ce code:

Code original
for i= 1 to alen(al_fic)/5
retour= iif(al_fic[i,2]=0,.t.,retour)
next i

Code modifié
for i= 1 to alen(al_fic,1) && Avec ",1" alen() retourne le nombre de lignes du tableau
retour= iif(al_fic[i,2]=0,.t.,retour)
next i

Cette modification a pour but de garder l'enlignement sur la bonne colonne même si le nombre de ces dernières venaient à changer dans une version ultérieure de VFP.