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
» Panoramic et ses curiosités
par Jack Aujourd'hui à 8:15

» Synedit Parameters
par Klaus Aujourd'hui à 1:33

» Utilitaire de suppression de fichiers
par Yannick Hier à 23:03

» Code à vérifier SVP (Oups ! résolu)
par Jean Claude Jeu 22 Juin 2017 - 21:16

» Compilateur FBPano
par jean_debord Jeu 22 Juin 2017 - 9:56

» Bienvenue à Virtualalan !
par UltraVox Jeu 22 Juin 2017 - 9:18

» Concours de Morpions
par jjn4 Jeu 22 Juin 2017 - 0:04

» ShortName$(F) [Cloturé]
par papydall Mer 21 Juin 2017 - 16:19

» Remplacer espace par tiret dans noms des dossiers / fichiers
par papydall Mer 21 Juin 2017 - 15:27

» Menu personalisé avec icones et menu contextuel
par Laurent (Minibug) Mer 21 Juin 2017 - 12:44

» La liste des choses à faire ...
par Jack Mar 20 Juin 2017 - 22:49

» Quoi de neuf à propos de Goric 3D ? (@Jack)
par UltraVox Mar 20 Juin 2017 - 21:06

» Nom court et anti fenetre dos
par silverman Mar 20 Juin 2017 - 18:31

» Ludothèque Panoramic
par jjn4 Mar 20 Juin 2017 - 18:09

» Proposition à la communauté
par Yannick Mar 20 Juin 2017 - 15:02

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 | 
 

 Recherche d'une chaîne de caractères dans une arborescence

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

avatar

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

MessageSujet: Recherche d'une chaîne de caractères dans une arborescence   Mar 30 Avr 2013 - 20:56

Voici un petit code qui recherche une chaîne de caractères dans tous les fichiers d'une certaine extension, dans toute une arborescence. Il suffit de sélectionner un fichier quelconque (même avec une autre extension) dans un dossier, pour que tout le dossier ainsi que l'ensemble de ses sous-dossiers soit parcouru pour analyser tous les fichiers de l'extension sélectionnée.

Code:
' recherche_string.bas

label find, oups, reprise

dim s$, f$, dir$, old$, ext$, rec$

height 0,600

open_dialog 1
                                                  :
edit 10 : top 10,10 : left 10,10 : width 10,300
combo 11 : top 11,40 : left 11,10
  item_add 11,".bas"
  item_add 11,".pas"
  item_add 11,".dpr"
  item_add 11,".txt"
  text 11,item_read$(11,1)
button 20 : top 20,40 : left 20,320 : caption 20,"Rechercher"
  on_click 20,find
 
memo 30 : top 30,70 : left 30,10 : width 30,300 : height 30,370
  bar_both 30

alpha 40 : top 40,470 : left 40,10
 
dlist 31

end

find:
  s$ = trim$(text$(10))
  if len(s$)=0
    message "Rien à chercher"
    return
  end_if
  f$ = file_name$(1)
  if f$="_" then return
  old$ = dir_current$
  dir$ = file_extract_path$(f$)
 
  clear 30
  clear 31
  chercher(dir$)
  while count(31)>0
    dir$ = item_read$(31,1)
    item_delete 31,1
    if right$(dir$,1)<>"\" then dir$ = dir$ + "\"
    chercher(dir$)
  end_while
  item_add 30,"---fini---"
  dir_change old$
  return

sub chercher(dir$)
  item_add 30,"--- "+dir$
  on_error_goto oups
  dir_change dir$
  off_error_goto
  f$ = file_find_first$
  while f$<>"_"
    ext$ = file_extract_extension$(f$)
    if ext$=text$(11)
      file_open_read 1,f$
      caption 40,"Recherche dans "+f$+" ..."
      while file_eof(1)=0
        file_readln 1,rec$
        if instr(rec$,s$)>0
          item_add 30,f$
          exit_while
        end_if
      end_while
      file_close 1
      caption 40,""
    end_if
    if ext$="" then item_add 31,dir$+f$
    f$ = file_find_next$
  end_while
  file_find_close
reprise:
end_sub

oups:
  item_add 30,"+++ Erreur sur "+dir$
  off_error_goto
  goto reprise


Dernière édition par Klaus le Mar 30 Avr 2013 - 21:55, édité 1 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Jicehel

avatar

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

MessageSujet: Re: Recherche d'une chaîne de caractères dans une arborescence   Mar 30 Avr 2013 - 21:53

Merci Klaus
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

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

MessageSujet: Re: Recherche d'une chaîne de caractères dans une arborescence   Mar 30 Avr 2013 - 21:56

J'ai fait une petite modif qui permet de ne plus être bloqué sur un fichier dont le nom n'a pas d'extension. Un détail, mais bien pratique.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Contenu sponsorisé




MessageSujet: Re: Recherche d'une chaîne de caractères dans une arborescence   

Revenir en haut Aller en bas
 
Recherche d'une chaîne de caractères dans une arborescence
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Recherche de chaînes de caractères : FINDSTR
» Nombre de caractères dans un message
» Lilmite caractères dans signature
» Réduire le nombre minimum de caractères dans un titre de sujet ?
» Problème de caractères dans les liens avec balise

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: