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
» Button_picture
par pascal10000 Aujourd'hui à 11:41

» Pourquoi le compilateur stagne
par Minibug Aujourd'hui à 11:09

» 4 (en analyse): SYNEDIT_TARGET_IS_OBJECT devient inactif
par Jack Aujourd'hui à 10:09

» 3 (en analyse): Mauvaise interprétation du string "THEN"
par Jack Aujourd'hui à 10:03

» KGF.dll - demandes ou suggestions de modifications ou ajouts
par Marc Aujourd'hui à 10:00

» KGF_dll - nouvelles versions
par pascal10000 Hier à 17:27

» Mah-Jong européen new-look
par Minibug Mar 12 Déc 2017 - 22:31

» track_bar circulaire
par Klaus Mar 12 Déc 2017 - 13:54

» API Windows
par Klaus Mar 12 Déc 2017 - 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

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 | 
 

 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 : 10259
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 : 5863
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 En ligne
Klaus

avatar

Nombre de messages : 10259
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
-
» (résolu)recherches effectuées dans la barre déroulante"recherche" de Neuf
» k.limero ( et son message entre parenthèses pour avoir plus de 10 caractères dans le titre )
» Nombre de caractères dans la signature.
» Taille de la police de caractères dans PANORAMIC EDITOR
» recherche d'une police de caractère

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: