FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» KGF_dll - nouvelles versions
par Yannick Aujourd'hui à 23:30

» Synedit Parameters
par Yannick Aujourd'hui à 23:26

» Un bug avec USER_EVENT ?
par Yannick Aujourd'hui à 23:16

» Concours de Morpions
par Froggy One Aujourd'hui à 19:30

» Bienvenue à Irikte
par papydall Aujourd'hui à 16:59

» Comment changer le graphisme d’un menu
par Yannick Aujourd'hui à 14:53

» LIBRARY COMMAND FUNCTION
par Jean Claude Aujourd'hui à 13:38

» OBJECT_PARENT NE FONCTIONNE PLUS ?! (RESOLU)
par Jack Aujourd'hui à 12:40

» Menu personalisé avec icones et menu contextuel
par Yannick Aujourd'hui à 12:10

» Doublon - Désolé !
par Laurent (Minibug) Aujourd'hui à 11:55

» Mac OS X sierra
par Irikte Aujourd'hui à 10:01

» Recherche de traductions de mots (@Klaus).
par Pedro Alvarez Hier à 20:34

» Problème avec SendStringAsText.
par Pedro Alvarez Hier à 20:32

» Version instantanée V 0.9.28i10 du 24/06/2017
par Yannick Hier à 18:19

» Mais qui a le focus ?
par Jack Hier à 16:35

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Juin 2017
LunMarMerJeuVenSamDim
   1234
567891011
12131415161718
19202122232425
2627282930  
CalendrierCalendrier

Partagez | 
 

 Rechercher une séquence dans une série de fichiers

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
JL35



Nombre de messages : 5882
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Rechercher une séquence dans une série de fichiers   Lun 20 Avr 2015 - 22:18

Le problème est de rechercher une séquence de caractères dans tout ou partie des fichiers d'un répertoire, y compris éventuellement ses sous-répertoires.
Klaus a déjà proposé une sub du même genre: http://panoramic.free-boards.net/t3006-recherche-d-une-chaine-de-caracteres-dans-une-arborescence?highlight=rechercher+une+cha%EEne mais qui, sauf erreur de ma part, ne s'applique qu'à des fichiers de type texte.
Mon problème était de rechercher une séquence donnée Ascii (et pourquoi pas, binaire) dans tous les fichiers ou les fichiers d'un type donné, d'un répertoire et éventuellement de ses sous-répertoires.
La liste des fichiers contenant la séquence est rendue dans le presse-papier.

La sub de recherche fait appel justement à KGF.dll, pour sa fonction 'ReadBinaryFileToString", bien pratique pour faire des recherches dans un fichier de type quelconque.

Code:
DIM r$,s$
r$ = "C:\PROGRA~2\MOZILL~1": ' répertoire de recherche
s$ = "C:\Telechar": ' séquence cherchée

HEIGHT 0,SCREEN_Y
MEMO 9: FULL_SPACE 9

Recseq(r$,"*.*",1,s$): ' recherche dans le répertoire et ses sous-répertoires

CLIPBOARD_PASTE 9
item_add 9, "Terminé !"
END
' ==============================================================================
SUB Recseq(r$,typ$,sr%,seq$)
' Rechercher les fichiers de type typ$ d'un répertoire r$ donné et contenant une
' séquence seq$ donnée.
' Par exemple typ$ = "*.txt"  ou typ$ = "*.*" (tous les fichiers)
' Si sr% = 1: y compris les sous-répertoires (= 0 sinon)
' Liste des fichiers trouvés rendue dans le clipboard (1 ligne par fichier)
DIM_LOCAL pra$,scr$,arg$,q$,a$,rp$,buf$,rs%,me%,resul$,f$,i%,k%
q$ = CHR$(34)
IF RIGHT$(r$,1)<>CHR$(92) THEN r$ = r$ + CHR$(92)
rp$ = r$ + typ$
arg$ = "/B": IF sr% = 1 THEN arg$ = arg$ + " /S": ' + les sous-répertoires
arg$ = arg$ + " /A:-D"
scr$ = "Z:\Vbscript.vbs"
pra$ = "CreateObject(" + q$ + "Wscript.Shell" + q$ + ").Run "
pra$ = pra$+q$+"CMD.exe /c DIR "+rp$+" "+arg$+" | clip"+q$+",0,True"
FILE_OPEN_WRITE 9, scr$: FILE_WRITELN 9, pra$: FILE_CLOSE 9: ' script vbs
EXECUTE_WAIT "WSCRIPT.exe " + scr$: ' Exécution du script
FILE_DELETE scr$
me% = 9900: WHILE OBJECT_EXISTS(me%)=1: me%=me%+1: END_WHILE
MEMO me%: HIDE me%: WIDTH me%,800: CLIPBOARD_PASTE me%
IF LABEL("Nor_dll") = 0 THEN LABEL Nor_dll
ON_ERROR_GOTO Nor_dll: ' si pas de dll chargée, dll_off -> erreur
DLL_OFF: ' à tout hasard
Nor_dll:
OFF_ERROR_GOTO
DLL_ON "C:\PANORAMIC\KLAUS\DLLs\KGF.dll": ' <==== Chemin de KGF.DLL ============
resul$ = ""
FOR i% = 1 TO COUNT(me%)
    a$ = ITEM_READ$(me%,i%)
    f$ = a$: IF sr% <> 1 THEN f$ = r$ + a$
    FILEBIN_OPEN_READ 9, f$
        buf$ = STRING$(FILEBIN_SIZE(9)," ")
    FILEBIN_CLOSE 9
    rs% = DLL_CALL2("ReadBinaryFileToString",ADR(f$),ADR(buf$))
    k% = INSTR(buf$,s$)
    IF k% > 0 THEN resul$=resul$+f$+CHR$(13)+CHR$(10)
NEXT i%
DELETE me%
IF resul$<>"" THEN resul$ = LEFT$(resul$,LEN(resul$)-2)
CLIPBOARD_STRING_COPY resul$
END_SUB
' ==============================================================================

On pourrait facilement, si nécessaire, affiner le résultat en renvoyant également le ou les emplacement(s) dans le fichier où la séquence a été trouvée.


Dernière édition par JL35 le Mar 21 Avr 2015 - 17:44, édité 1 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 9998
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Rechercher une séquence dans une série de fichiers   Mar 21 Avr 2015 - 0:15

cheers cheers cheers
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html En ligne
JL35



Nombre de messages : 5882
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Rechercher une séquence dans une série de fichiers   Mar 21 Avr 2015 - 17:43

Merci Klaus !
Je relis seulement maintenant, et je m'aperçois que le forum a encore fait des siennes
Là où il y a (début de la sub):
Code:
IF RIGHT$(r$,1)<>"" THEN r$ = r$ + ""
Il faut lire:
Code:
IF RIGHT$(r$,1)<>CHR$(92) THEN r$ = r$ + CHR$(92)
ce satané Evil or Very Mad forum a encore bouffé l'antislash !
Bon, je corrige ci-dessus, j'espère qu'il n'y en a pas d'autre, mais c'est bougrement agaçant !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jicehel

avatar

Nombre de messages : 5838
Age : 44
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: Rechercher une séquence dans une série de fichiers   Mar 21 Avr 2015 - 18:12

En tout cas, c'est un programme qui peut être très pratique quand on sait ce que l'on recherche.
bien sûr quand on ne sait pas, ça ne peut pas faire de miracle. J'ai constaté aussi que je ne pouvais pas trouver le dahu avec (ni de jour, ni de nuit). bon aller, je sors... mais je voulais mettre un commentaire car ce joli programme n'avait pas eu les retours qu'il mérite.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



Nombre de messages : 5882
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Rechercher une séquence dans une série de fichiers   Mar 21 Avr 2015 - 23:06

Euh... effectivement, un programme de recherche qui déciderait tout seul ce qu'il doit chercher... scratch

Pour moi c'était un besoin ponctuel, je cherchais dans un répertoire donné (d'un programme particulier) les fichiers (y compris exécutables, fichiers de config, etc.) contenant la référence à un chemin donné.
C'est très particulier comme usage, et je ne m'attendais pas à un enthousiasme général ( Very Happy ), mais bon, je partage, on ne sait jamais.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Rechercher une séquence dans une série de fichiers   

Revenir en haut Aller en bas
 
Rechercher une séquence dans une série de fichiers
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Comment supprimer le bouton "Rechercher" dans la barre de navigation?
» Comment mettre un fichier PPs dans un message
» [Rechercher] Recherche dans tous les messages et leur contenu
» fichier gdb
» Rechercher adresse dans BaseCamp

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC 32 bits :: Vos sources, vos utilitaires à partager-
Sauter vers: