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 Klaus Aujourd'hui à 2:20

» 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 | 
 

 Rechercher une chaîne de caractère dans un fichier.

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

avatar

Nombre de messages : 5384
Age : 66
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Rechercher une chaîne de caractère dans un fichier.   Sam 22 Avr 2017 - 13:45

Rechercher une chaîne de caractère dans un ou plusieurs fichiers.
La commande FIND de l’invite de commande peut s’avérer très intéressante si l’on cherche, par exemple l’ensemble de lignes qui contiennent une chaîne de caractères spécifiée.
Le code suivant décrit la commande FIND et donne sa syntaxe ainsi que quelques exemples de son emploi.

Pour tester :
Enregistrer le code suivant sous le nom : Compteur_Ligne_Fichier_By_Find.bas  ( vous pouvez bien sûr choisir un autre nom !)
Et tester le programme en observant le résultat des lignes 32, 35 et 38 (en supprimant le REM devant)

Code:

rem ============================================================================
rem          Compteur_Ligne_Fichier_By_Find.bas
rem ============================================================================
rem    Recherche une chaîne de texte dans un ou plusieurs fichiers
rem        A l’aide de la commande FIND de l’invite de commande
rem ============================================================================
rem  Syntaxe
rem  FIND [/V] [/C] [/N] [/I] [/OFF[LINE]] "chaîne" [[lecteur:] [chemin]nom_de_fichier[ ...]]
rem  /V         Affiche toutes les lignes ne contenant pas la chaîne spécifiée.
rem  /C         Affiche seulement le nombre de lignes contenant la chaîne.
rem  /N         Affiche les numéros de ligne avec les lignes affichées.
rem  /I         Ignore la casse lors de la recherche de la chaîne.
rem  /OFF[LINE] Ne pas ignorer les fichiers dont l’attribut hors connexion a été réglé.
rem  "chaîne"   Spécifie la chaîne de texte à trouver.
rem  [lecteur:][chemin]nom_de_fichier  Spécifie un ou des fichiers pour la recherche.
rem Sans nom de chemin, FIND recherche le texte entré à l’invite ou redirigé depuis une autre commande.
rem ============================================================================
dim fichier$        : ' Fichier dans lequel on fait la recherche
fichier$ = "Compteur_Ligne_Fichier_By_Find.bas" : ' C'est ce même fichier à adapter
dim chaine$         : ' Chaine de caractères à chercher dans le fichier
chaine$ = "affiche" : ' On cherche la chaîne "affiche"
if file_exists(fichier$) <> 1
   message "Fichier : " + fichier$ + " non trouvé ! "
   terminate
end_if
Find(chaine$,fichier$)
terminate
rem ============================================================================
SUB Find(chaine$,fichier$)
    clipboard_string_copy "" : ' vider le contenu du presse-papier
    rem Affiche toutes les lignes ne contenant pas la chaîne spécifiée (sans tenir compte de la casse).
    ' execute_wait "cmd /c find /v /i" + chr$(34) + chaine$ + chr$(34) + " " +fichier$ + " |clip" + chr$(34)
    rem ========================================================================
    rem Affiche le nombre de lignes Ne contenant Pas la chaîne spécifiée (sans tenir compte de la casse)
    ' execute_wait "cmd /c find /v /c /i" + chr$(34) + chaine$ + chr$(34) + " " +fichier$ + " |clip" + chr$(34)
    rem ========================================================================
    rem Affiche les numéros de ligne avec les lignes contenant la chaîne spécifiée (sans tenir compte de la casse)
     execute_wait "cmd /c find /n /i" + chr$(34) + chaine$ + chr$(34) + " " +fichier$ + " |clip" + chr$(34)
    rem ========================================================================
    message clipboard_string_paste$ : ' Afficher le contenu du presse-papier
END_SUB    
rem ============================================================================
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/ En ligne
 
Rechercher une chaîne de caractère dans un fichier.
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» [RESOLU] Ecrire un entier dans un fichier puis le lire
» Taille Police trop petite dans corps de message
» limite de caractères permise dans un message
» Ne pas limiter le nombre de caractère dans les signatures
» Obtenir le nombre de caractère d'un fichier sans le charger en mémoire vive

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: