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
» Problème de compilateur.
par Pedro Alvarez Hier à 20:01

» COMPILATEUR V 0.9 beta 8 du 18 aout 2017
par Pedro Alvarez Hier à 19:54

» Pb 17 (en analyse): ITEM_SELECT ne fonctionne pas
par Jack Jeu 17 Aoû 2017 - 19:26

» Compilateur FBPano
par Mike Jeu 17 Aoû 2017 - 13:52

» un nouveau editeur panobasic
par Jean Claude Jeu 17 Aoû 2017 - 10:18

» Le compilateur.
par Pedro Alvarez Jeu 17 Aoû 2017 - 8:36

» Pb 16 (en analyse): ON_CLOSE plante à l'exécution
par Jack Mer 16 Aoû 2017 - 20:00

» Pb 15 (en analyse): TIMER_ON plante à l'exécution
par Jack Mer 16 Aoû 2017 - 19:58

» KGF_dll - nouvelles versions
par Yannick Dim 13 Aoû 2017 - 17:35

» probleme d'outil
par Yannick Dim 13 Aoû 2017 - 17:32

» Carte de France des régions
par Yannick Sam 12 Aoû 2017 - 21:33

» Pb 14 (en analyse): PRINT_LOCATE plante à l'exécution
par Jack Ven 11 Aoû 2017 - 22:37

» Petit avertissement [Mots réservés]
par papydall Ven 11 Aoû 2017 - 13:45

» Distances sur plan
par JL35 Jeu 10 Aoû 2017 - 21:29

» Tracé : Triangle, Carrée, Dents de scie, Sinusoïde redressée
par papydall Jeu 10 Aoû 2017 - 14:52

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Août 2017
LunMarMerJeuVenSamDim
 123456
78910111213
14151617181920
21222324252627
28293031   
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 : 10062
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 : 5849
Age : 45
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 : 10062
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: