Bonjour,
Pour prévenir les risques liés aux problèmes d'index des fichier HFSQL, j'utilise le code suivant au démarrage de mon appli :
A priori, pas de soucis, ça fonctionne bien.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17 Liste est une chaîne = HListeFichier() Fichier est une chaîne = "" Nbr_Fichier est un entier = ChaîneOccurrence(Liste,RC) Taux2 est un réel = 100/Nbr_Fichier LIB_Info = "Chargement du logiciel, merci de patienter....." POUR i = 1 _A_ Nbr_Fichier Fichier = ExtraitChaîne(Liste,i,RC) SI Fichier <> "" ET HVérifieIndex(Fichier) = 1 ALORS //info(fichier,"bad") HRéindexe(Fichier,hNdxMuet+hNdxMinimal) SINON //info(fichier,"ok") FIN LIB_Libellé2 = RoundUp(Taux2*i) + "%" JAUGE_Jauge = Taux2 * i FIN
Le seul bémol c'est le temps de traitement.
Mon appli utilise 66 fichiers de données plus ou moins volumineux.
Et même si cela reste modeste, c'est la principale cause de ralentissement pointée par Windev.
Les avis d'experts me seraient bien utiles pour aborder le sujet sous un autre angle peut être, ou adopter une autre stratégie de traitement ?
Que me conseillez vous svp ?
Merci d'avance de vos réponses
Partager