• Aide à la navigation du site
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • RSS CodeS-SourceS
  • Foxpro CodeS-SourceS
begin process at 2008 05 12 09:16:01
1 170 164 membres
68 nouveaux aujourd'hui
13 956 membres club
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum.
Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

RETROUVER UN FICHIER INDEX (CDX) À ZÉRO


Information sur la source

Catégorie :Données Classé sous : fichier, index, chercher Niveau : Débutant Date de création : 20/10/2004 Vu : 2 246
Auteur : aumeric Site perso
Ecrire un message privé
Note :
Aucune note
Commentaire sur cette source (1)
Ajouter un commentaire et/ou une note

Description

la fonction verifcdxzero recoit comme paramètre, le répertoire à contrôler.
elle renvoit vrai si un fichier est à zéro et faux dans le cas contraire.

Si tous les index  ne sont pasà zéro, un simple réindex suffit. sinon, il faut  supprimer le fichier cdx qui est à zéro, coller une svg de ce fichier  et faire un réindex.

Source

  • function verifcdxzero(repsource)
  • retour=.f.
  • if directory(repsource) .and. directory(repsource+"\cdx")
  • adir(al_fic,repsource+'\*.cdx')
  • for i= 1 to alen(al_fic)/5
  • retour= iif(al_fic[i,2]=0,.t.,retour)
  • next i
  • endif
  • return retour
function verifcdxzero(repsource)
retour=.f.
if directory(repsource) .and. directory(repsource+"\cdx")
	adir(al_fic,repsource+'\*.cdx')
	for i= 1 to alen(al_fic)/5
		retour= iif(al_fic[i,2]=0,.t.,retour)
	next i
endif
return retour
  • signaler à un administrateur
    Commentaire de nsavage le 12/03/2007 15:30:18

    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.

Ajouter un commentaire

Discussions en rapport avec ce code source

re-selection d'enregistrement par brunaux

Export d'une requête en xls par crampe666

j'ai besoin de votre aide dans une chose importante dans foxpro par jbenzakour

copier ver excel par brunaux

importation txt --> fox pro par gregorian

prob avec un append from par gregorian

Form par Domatreal

Fichier Excel par Domatreal

Base de données VB !!! par spoutnic_37

Application mullti-fichier par jvdh

Appels d'offres

Developpement modifica...
Budget : 1 000€
ads manager - position...
Budget : 90€
ajout simpleviewer pro...
Budget : 175€

Pub



CalendriCode

Mai 2008
LMMJVSD
   1234
567891011
12131415161718
19202122232425
262728293031 

VS Express FR Gratuit !

VS Express en français et 100% gratuit !

Téléchargements

Logiciels à télécharger sur le même thème :

Boutique

Boutique de goodies CodeS-SourceS
Nos partenaires et amis ;-)
Moteur de recherche Mozbot Dotnet-News.com AtoutFox.org forum informatique Colocation dans toute la France DOTNET-PROJECT.COM


Dev réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND, Bidou, Nurgle
Base de données maintenue par Christian, Design réalisé par Guillaume, Mascotte réalisée par N.SOREL (Nix) & KDO-Comception
FoxproFR.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Hébergement de Serveur dédié - Téléphonie VOIP - Comparer les prix - Envoyer des ecards gratuit - Icones
Temps d'éxécution de la page : 0,3750-4sec
Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.