Autres Tests de diverses solution pour lister dans un dialog perso des fichiers en filtrant par expression et extension

[patricktoulon]

Bonjour à tous
si il y a des âmes charitables qui voudraient bien tester ma pseudo boite de dialogue fichier avec filtre ca m'arrangerait
en fait je l'ai créée sous trois formae différente

1° la filedilogspecial1
avec un dir en ligne de commande lancée par wscript.shell(.excec) et récupérée par le stdout.readall
ce qui implique une apparition brève mais tout de même de la fenêtre dos

2° la filedilogspecial2
avec un dir en ligne de commande lancée par wscript.shell (.run)et récupérée dans un fichier text temporaire
ce qui implique que la fenêtre dos n'apparait pas puisque je hide la fenêtre

3° la filedilogspecial3
dans celle ci j'utilise un hersats de ma fonction FSOGOSUB de 2021 avec FSO

tout les argument sont optionnels
le choix du fichier se fait au double click
possibilité d'annuler

vous avez 3 module pour tester chaque version
si vous pouviez donc tester la testA4 , TestB4 , TestC4 qui sont selon moi les plus importantes
et me dire si la différence de temps d'apparition de la fenêtre avec la liste de fichier filtrée avec les arguments envoyés par les sub de testsest importante ou pas
voir même cela vous gène t il plus que ça (que la fenêtre dos apparaisse brièvement (pour la fildialoSpecial1) )?

merci aux testeurs
après moult tests dans diverses situations la version 5 et celle qui a été retenu

 

[patricktoulon]

D'après ce qu'on voit sur ton message #134 la version 2 est plus rapide que la version 5. N'importe comment pour la version 4 il faut que le disque soit indexé ce que ne fait pas tout le monde

çà dépend des cas

 

[patricktoulon]

Bonjour @patricktoulon,

Comme ton code est le plus rapide, et même ultra rapide, je me suis posé cette question : n'y a-t-il pas un moyen de forcer la priorité d'Excel de [Normal à Haute] (le temps de l'exécution de la VBA), puis à la fin, de la repasser de [Haute à Normal] ? Par expérience, on m'avait conseillé cette modification via AutoCAD par un service informatique il y a de cela très longtemps. Je ne sais pas si cela se gère via VBA et s'il peut y avoir un impact significatif sur les temps d'exécution.
C'est juste une idée.

Laurent

Laurent j'ignore complétement de dont tu parles

 

[patricktoulon]

comme je disais ça dépend des cas le plus souvent ma version 5 est plus rapide que la 2
exemple

la même recherche avec la 5

comme on dit y a pas photo

 

[laurent950]

Laurent j'ignore complétement de dont tu parles

Voila patrick
j'ai trouvé cette explication

Windows xxx vous permet de choisir la priorité à donner aux ressources attribuées aux logiciels que vous utilisez.
Par défaut, les logiciels sont lancés dans une priorité normale.
Pour booster un peu un logiciel, vous pouvez augmenter temporairement sa priorité au dépend des autres logiciels.
Sous Windows xxx, cliquez avec le bouton droit de la souris sur la barre des tâches et cliquez sur Gestionnaire des tâches.
Dans la fenêtre qui apparaît, cliquez avec le bouton droit de la souris sur le logiciel dont vous souhaitez augmenter la priorité.
Cliquez sur Accéder aux détails.
Cliquez alors avec le bouton droit de la souris sur le processus sélectionné.
Cliquez sur Définir la priorité puis sur Haute. Evitez le mode Temps réel qui peut rendre votre système instable.
Fermez enfin la fenêtre du Gestionnaire des tâches.
Notez qu'une fois que vous fermerez votre logiciel, sa priorité sera de nouveau normale les fois suivantes.

j'avais eu une manipulation via un service informatique, mais il y a de cela très longtemps pour optimisé Autocad

je sais pas si cela ce gère avec VBA avec Excel ? et si il y a un gain réel ?

 

[jurassic pork]

je sais pas si cela ce gère avec VBA avec Excel ? et si il y a un gain réel ?

Avec les processeurs multicores il n'y a plus guère besoin de faire cela à moins qu'il y ait beaucoup de processus gourmands en cpu qui tournent en même temps et si on n'a pas beaucoup de cores.

 

[patricktoulon]

re
là je comprends mieux en effet mais ca n'a aucune incidence reelle sur excel vu que l'on utilise du vba et des fonction comme dir ou externe comme FSO adobd etc....
sincèrement je vois pas vraiment comment et avec quoi on pourrait optimiser plus que ca la 1 , 2 3 et 5
allez la même avec la 3
comme tu vois @jurassic pork même la 3 est plus rapide que la 2

il faut bien comprendre que mon intérêt dans ce topic c'est pas de lister le plus vite possible c'est d'avoir une liste filtrée assez rapidement a portée de click dans un fichier excel
et avec toutes les vidéos et capture qui prouvent A+B que mes version 5 et FSO seront largemnt supérieures dans le cadre d'une recherche typée

j'ai cru comme vous au départ que la 1 et 2 (la 4 mise à part) serait plus rapide mais non
l'optimisation que j'ai faite dans ces deux modèles est tout simplement bluffante

il est evident que si l'on veut un listing complet on prendra la 2 bien évidemment

 

[jurassic pork]

N'importe comment il n' y a pas énormément de différences de temps de traitement entre les différentes solutions (pas de rapport 10) et cela ne va pas servir tous les jours.

 

[patricktoulon]

a moi je m'en sert tout les jours voir toute la journée même
et si je vous dit que depuis le post156 ou je disais que je ne voyais pas comment optimiser plus que ça
et ben peut être que si en fait

la logique est simple
je cherche ce fichier
k:\vba excel\manipuler le ruban avec customUI\test_excel\chapotototructurlututupointu.xlsx


imaginons avec la 1,2,3,5 que je cherche "cha*to*tru*tur*po"
ça en fait des morceaux hein
et bien si par exemple je cherche ce fichier précisément et si j'arrêtais le moulin tout simplement dès qu'il le trouve hein ?
avec la 1 et 2 je gagnerais pas beaucoup car le plus gros du temp c'est l'execution de la commande mais quand même

mais la 3 et 5 la c'est pas pareil
je suis quasiment certain qu'avec la 5 je passe de "ms" à "µs"

 

[patricktoulon]

bon alors c'est pas le temps que j'attendais mais bon là on est aux fesses de la 4
je recherche un seul fichier
k:\vba excel\manipuler le ruban avec customUI\test_excel\chapotototructurlututupointu.xlsx
avec la 5

ça décoiffe un peu je dirais non ?
0.035 contre 0.066 on est très proche de la moitié en mode recherche 1 fichier

 

[patricktoulon]

Bonjour à tous

j'ai opéré une grosse modif de principe pour la 4
pour les recherches multi expression la requette et faite avec la première
et au lieu de liter selon les expression je reprend la liste et la decante dans une variable tableau



@laurent950
je reviens vers toi pour faire un peu le bilan sur ce code avec les api
alors on est dans des temps toujours vraiment pas mal
mais c'est quand même une déception après avoir ajouté tout ce qui manquait

donc pour commencer
1° je l'ai transformée en fonction retournant une liste
2° 'Ajout de l'extension dans la recherche(optionnelle "*.*" par defaut)
3° 'L'argument SearchString est optionnel aussi
4° 'Correction double separateur sur l'ajout conditionnel du dernier séparateur de path
5° 'Correction sur la recherche globale(tout fichiers) les dossier ne sont plus listés
6° 'Correction avec ajout de test GetAttr pour ne pas lister les dossiers


donc avant ton code dans un debug.print nous renvoyait 0.003xxxx
sauf qu'il listait tout dossiers et fichiers
donc au final avec toutes ces corrections conceptuelles ,avec le getattr pour n'avoir que les fichiers on remonte à 0.060/0.080 soit au niveau de la 5

je l'ai quand même greffé à un dialog (la 6) ça reste encore un résultat plus que satisfaisant

là vous les avez toutes je leurs ai donnés à chacune une couleur différente

Voila elles sont tout fonctionnelles

 

[jurassic pork]

Voila elles sont tout fonctionnelles

Hello,
premier essai que je fais avec la version 6 crash d'Excel :
Excel 2021 64 bits, windows 11 répertoire de recherche D:\Dev rien dans expression, rien dans Extension.
Ami calmant, J.P

 

[patricktoulon]

re Bonjour @jurassic pork
essaie avec expression "*" et extension "*.*" écrit en dur dans les cells
sinon on voit bien avec tout les soucis d'adaptation que seule la version 5 est stable dans quasiment toute les situations

cela dit je crache sur rien ca nous permet d'envisager toute les possibilités diverses méthodes
pour la 6 c'est une eprouvette mettre des gestion d'erreur particulières ou filename ne fait pas la différence en un dossier et un fichier est un peu particulier

c’était juste pour faire plaisir a Laurent qui a quand même travaillé sur la base de ce code avec api
je trouvais normal d'aller jusqu'au bout avec ce modèle

on aura beau tourner dans tout les sens on en revient toujours à la 5
qui ne demande rien et fait son petit chemin toute seule

 

[jurassic pork]

J'ai fait des modifs dans les déclarations des API (en utilisant des LongPtr) et dans la variable hFind :. Il y avait aussi des API qui étaient mal déclarées (retour long au lieu de boolean)

#If VBA7 Then
    Private Declare PtrSafe Function QueryPerformanceCounter Lib "Kernel32" (lpPerformanceCount As Currency) As Long
    Private Declare PtrSafe Function QueryPerformanceFrequency Lib "Kernel32" (lpFrequency As Currency) As Long
    Private Declare PtrSafe Function FindFirstFile Lib "Kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As LongPtr
    Private Declare PtrSafe Function FindNextFile Lib "Kernel32" Alias "FindNextFileA" (ByVal hFindFile As LongPtr, lpFindFileData As WIN32_FIND_DATA) As Boolean
    Private Declare PtrSafe Function FindClose Lib "Kernel32" (ByVal hFindFile As LongPtr) As Boolean

Function APIFilterFileListByName(Path As String, Optional SearchString = "*", Optional extension = "*.*", Optional Recursif As Boolean = False, Optional TbL As Variant)
    Dim FindData As WIN32_FIND_DATA
    Dim hFind As LongPtr
    Dim FileName As String
    Dim FullPath As String
    Dim Debut As Long
    Dim X&

et maintenant la version 6 à l'air de fonctionner chez moi. A voir si ce code fonctionne aussi avec un Excel 32 bits sinon faire de la compil conditionnelle #IF WIN64

 

[patricktoulon]

il faut penser à tout le monde
tes déclarations passent en vba 7 32 bits
et

 Dim FindData As WIN32_FIND_DATA
    #If VBA7 Then
        Dim hFind As LongPtr
    #Else
        Dim hFind As Long
    #End If
    Dim FileName As String
    Dim FullPath As String
    Dim Debut As Long

pour moi c'est ok
le, fichier a été modifié en pos t #1 et #160

 

[patricktoulon]

re
Bonsoir @jurassic pork , @Staple1600 , @laurent950 et tout les autres
je partage avec vous une redécouverte

depuis le début j'avais remarqué un truc qui me perturbait
en effet toute les fonctions avec le dir de vba avait une latence plus ou moins longue au premier lancement juste après avoir ouvert le fichier
j'ai d'abords cru que c’était un effet de cache( tout nous amenait a le penser)
en fait c'est beaucoup plus simple que ça
c'est en regardant mes vielles méthodes et fonctions récursives que j'ai fini par comprendre
en fait dir(de vba) a 4 méthodes

1. Dir(dossier, vbdirectory)' lecture globale(vbsystem vbhidden,vbarchive,vbnormal,etc..)cumulables
2. Dir(dossier &"\*.*) lecture de fichiers
3. Dir() pour les suivants dans un do loop par exemple
4. Dir$ pour clôturer un dir et ou ouvrir une session du dir vierge (donc vide donc mémoire minime)

je me suis intéressé au 4eme qui me permet de clôturer des sessions de Dir précédentes
et juste pour vérifier avant ma ligne dir(dossier ,vbdirectory) j'ai mis un Dir$

BINGO !! mon intuition était la bonne fini la latence au premier lancement (à froid)

donc là ou je pêche encore c'est de savoir si en fait ça enclenche une session dir vierge afinc d'ouvrir la session du Dir sans charge mémoire du coup un dir vbdirectory ou fichier est démarré plus vite
ou
alors ferme éventuellement un dir toujours près au démarrage de excel ce qui laisse la place a une session du Dir toute neuve et démarre donc plus vite