RETROUVER UN FICHIER INDEX (CDX) À ZÉRO

nsavage Messages postés 2 Date d'inscription mercredi 13 décembre 2006 Statut Membre Dernière intervention 12 mars 2007 - 12 mars 2007 à 15:30
nsavage Messages postés 2 Date d'inscription mercredi 13 décembre 2006 Statut Membre Dernière intervention 12 mars 2007 - 12 mars 2007 à 15:30
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

nsavage Messages postés 2 Date d'inscription mercredi 13 décembre 2006 Statut Membre Dernière intervention 12 mars 2007
12 mars 2007 à 15:30
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.
Rejoignez-nous