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 - demandes ou suggestions de modifications ou ajouts
par Klaus Aujourd'hui à 19:48

» KGF_dll - nouvelles versions
par pascal10000 Aujourd'hui à 17:27

» Mah-Jong européen new-look
par Minibug Hier à 22:31

» track_bar circulaire
par Klaus Hier à 13:54

» API Windows
par Klaus Hier à 3:21

» Cartes de voeux, menus, etc.
par JL35 Lun 11 Déc 2017 - 17:48

» a l'aide klaus
par Minibug Lun 11 Déc 2017 - 11:42

» bug SYNEDIT_TARGET_IS_OBJECT
par Jack Lun 11 Déc 2017 - 0:16

» Jukebox : Serge Reggiani
par papydall Sam 9 Déc 2017 - 5:58

» Ecouter la radio fm sur votre pc
par pascal10000 Sam 9 Déc 2017 - 3:42

» anomalie
par Klaus Sam 9 Déc 2017 - 3:21

» hommage
par Jicehel Ven 8 Déc 2017 - 11:29

» Logiciel de soutien scolaire en langues.
par Pedro Alvarez Ven 8 Déc 2017 - 10:43

» carte son
par Klaus Ven 8 Déc 2017 - 2:37

» mise a jour calculatrice
par joeeee2017 Mer 6 Déc 2017 - 22:19

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Décembre 2017
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
25262728293031
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 : 6018
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 : 10257
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
JL35



Nombre de messages : 6018
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 : 5863
Age : 45
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 : 6018
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
-
» fichier gdb
» Rechercher adresse dans BaseCamp
» Fichiers .bmp dans POI
» Fichiers invisibles dans corbeille
» Déplacer fichiers carto dans 2340LMT (résolu)

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