Search & Replace dans TOUS les fichiers d'un dossier.Résolu

Question

Bonjour tout le monde,

j'aimerais recréer le mode de recherche "Find in files" de Notepad++ pour pouvoir faire un search and replace dans tous les fichiers (et supporter toutes les extensions, pas seulement les fichiers .txt)

Dim Dossier As DirectoryInfo = New DirectoryInfo(TextBox1.Text)
For Each Fichier As FileInfo In Dossier.GetFiles
    Dim texte As String = ""
    Using sr As StreamReader = New StreamReader(Fichier.FullName)
        texte = sr.ReadToEnd
        sr.Close()
    End Using
Next

Le problème est que mon logiciel trouve beaucoup moins d'occurences du mot à chercher que Notepad++, qui fait très bien son boulot ! 
Le problème vient surement du fait que mon logiciel ne lit pas autant de fichiers que Notepad++, ou bien il ne va pas plus loin que les fichiers qui sont à la racine du dossier voulu... 

Si le problème est le précédent, comment puis-je faire pour regarder tous les fichiers, meme ceux contenus dans les sous-dossiers ??

Merci d'avance

Whismeril · Answer

Bonsoir,

il faut commencer par lister tous les fichiers présents, regarde du coté de Directory.GetFiles().
Ensuite pour la lecture de fichiers Ascii, je préfère utiliser la classe File. Elle permet de lire une ligne, toutes les lignes dans un tableau, tout le texte etc...
Avec une Regex tu fais ton cherche/remplace, l'utilisation de la regex permet de paramétrer si tu tiens comptes de la casse, si le mot doit être entier, les accents etc...
Et ensuite avec File.Save() tu enregistres.

Whismeril · Answer

Bonjour,

un petit exemple vite fait (attention il ne marche pas tout à fait)

    Private Sub FindReplace()
        Dim path As String = Application.StartupPath & "	est"
        Dim txtFiles() As String = Directory.GetFiles(path, "*.*", SearchOption.AllDirectories) 'répère le nom des fichiers dans le répertoire et sous les répertoires
        Dim mot As String = "coucou" 'le mot à trouver
        Dim remplacement As String = "Remplacé"

For Each fichier As String In txtFiles
            Dim texte As String = File.ReadAllText(fichier)
            Dim motEntierRespecteLaCasse As New Regex("(^|\W)" & mot & "($|\W)") 'le patern dit que l'on cherche le mot avec un début de texte ou un caractères non alphanumérique avant et un fin de texte ou un caractère non alpha numérique après
            'si on utilise le Replace(string, string) les eventuels espaces ou signes de ponctuation avant et apres seront remplacé, il faut donc délégué une fonction qui précise que l'on ne remplace que le mot
            Dim texte1 As String = motEntierRespecteLaCasse.Replace(texte, Function(match) match.Value.Replace(mot, remplacement)) 'retourne le texte trouvé par la regex dans lequel on change mot par remplacement

'le patern dit que l'on cherche le mot avec un début de texte ou un caractères non alphanumérique avant et un fin de texte ou un caractère non alpha numérique après et on ignore la case
            Dim texte2 As String = Regex.Replace(texte, "(^|\W)" & mot & "($|\W)", Function(match)
                                                                                       Dim resultat As String = Regex.Replace(match.Value, mot, remplacement, RegexOptions.IgnoreCase)
                                                                                       Return resultat
                                                                                   End Function, RegexOptions.IgnoreCase) 'retourne le texte trouvé par la regex dans lequel on change mot par remplacement en ingorant la casse, ne marche plus avec stirng.replace nécessite une autre regex

Dim IgnoreLaCasse As New Regex(mot, RegexOptions.IgnoreCase) 'le patern dit que l'on cherche le mot entier ou pas en ignorant la case
            Dim texte3 As String = IgnoreLaCasse.Replace(texte, remplacement)

File.WriteAllText(fichier.Replace(".txt", "-1.txt"), "Mot entier, respecte la casse." & Environment.NewLine & texte1)
            File.WriteAllText(fichier.Replace(".txt", "-2.txt"), "Mot entier, ignore la casse." & Environment.NewLine & texte2)
            File.WriteAllText(fichier.Replace(".txt", "-3.txt"), "Mot ignore la casse." & Environment.NewLine & texte3)
            File.WriteAllText(fichier.Replace(".txt", "-4.txt"), "Mot respecte la casse." & Environment.NewLine & texte.Replace(mot, remplacement)) 'ici on utilise string.Replace qui remplace toute occurence du texte exact

Next fichier

End Sub 

Avec ce fichier de test
coucou coucou coucoucoucou, Coucou.1coucou deux coucous trois COUcous 4COUcous

Ce qui ne marche pas bien, c'est pour la recherche de mot entier, le 2eme coucou de la 1ere ligne passe à la trappe.
C'est dû au fait que la première occurrence est "coucou ", du coup la recherche reprend à "coucou".
Si je lui demande de chercher un début, un caractère non alphanumérique ou rien, il prendra toutes les occurrences, mêmes les mot pas entiers...
L'astuce consiste à faire 2 passes.

ucfoutu · Answer

J'ignore comment on pourrait faire la même chose sous VB.Net.
Sous VB6, j'éclaterais le texte avec strconv et chr(0), puis bouclerais sur l'array obtenu et avec un select case ==>>
Case ",",".",";",":","!","?", je transformerais en " " ==>> un join ==>> un split sur "coucou"

Drarig29 · Answer

Merci de vous arracher les cheveux pour moi, mais ça ira, je crois être sur la bonne voie ;)

Bonne journée !

ucfoutu · Answer

Après réflexion complémentaire, voilà ce que je ferais finalement avec VB6 :
toto = "coucou, aaaa coucou  bbbb. coucoucc iiii coucou! aaaa coucou"tata = Split(" " & toto & " ", "coucou")For i = 0 To UBound(tata) - 1 Select Case Left(tata(i + 1), 1)   Case ",", " ", "!"       If Right(tata(i), 1) = " " Then         tata(i + 1) = "#" & tata(i + 1)       End If   End SelectNexttoto = Trim(Replace(Join(tata, "coucou"), "coucou#", "voila"))MsgBox toto

ucfoutu · Answer

Les retours à la ligne ne me posent par contre aucune espèce de problème sous VB6. Il me suffit de les inclure dans mon code, ainsi ===>>
toto = "coucou, aaaa coucou  bbbb. coucoucc iiii coucou! " & _"cccc coucou aaaa coucou" & vbCrLf & "coucou bbb"tata = Split(" " & toto & " ", "coucou")For i = 0 To UBound(tata) - 1 Select Case Left(tata(i + 1), 1)   Case ",", " ", "!", ":", ";", "?", Chr(10), Chr(13) '===>> ICI       Select Case Right(tata(i), 1)         Case " ", Chr(10), Chr(13) ' ====>>> ET LA           tata(i + 1) = Chr(1) & tata(i + 1)        End Select   End SelectNexttoto = Trim(Replace(Join(tata, "coucou"), "coucou" & Chr(1), "voila"))MsgBox toto

Obtenu :
voila, aaaa voila  bbbb. coucoucc iiii voila! cccc voila aaaa voila
voila bbb
 
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviend

Whismeril · Answer

Me revoilà avec deux codes, dans les deux cas, j'initie au début si on cherche par mot entier et si on respecte la casse.

Le premiers reprend ce que j'avais fait hier, tout en regex avec la double passe 
    Private Sub FindReplaceDeuxPasses()
        Dim path As String = Application.StartupPath & "	est"
        Dim txtFiles() As String = Directory.GetFiles(path, "*.*", SearchOption.AllDirectories) 'répère le nom des fichiers dans le répertoire et sous les répertoires
        Dim mot As String = "coucou" 'le mot à trouver
        Dim remplacement As String = "Remplacé"
        Dim monOption As RegexOptions = RegexOptions.None 'ici on choisi entre None et IgnoreCase
        Dim motEntier As Boolean = True 'ici on choisit mot entier ou pas

For Each fichier As String In txtFiles
            Dim texte As String = File.ReadAllText(fichier)
            Dim nouveauTexte As String

If motEntier Then
                nouveauTexte = Regex.Replace(texte, "(^|\W)" & mot & "($|\W)", Function(match) match.Value.Replace(mot, remplacement), monOption) 'retourne le texte trouvé par la regex dans lequel on change mot par remplacement
                nouveauTexte = Regex.Replace(nouveauTexte, "(^|\W)" & mot & "($|\W)", Function(match) match.Value.Replace(mot, remplacement), monOption) 'retourne le texte trouvé par la regex dans lequel on change mot par remplacement
            Else
                nouveauTexte = Regex.Replace(texte, mot, remplacement, monOption)
            End If

File.WriteAllText(fichier.Replace(".txt", "-1.txt"), nouveauTexte)
        Next fichier

End Sub

Le second est une variante de l'idée d'Ucfoutu avec le split.
Je me sers d'une regex pour chercher toutes les occurrences du mot (pas entier), puis je teste par regex le texte immédiatement autour et recompose le texte en fonction. Je n'ai pas jugé utile de faire un string.Join() à la fin comme le code d'Uc, car j'ai déjà une boucle qui tourne et donc la reconstitution du texte ne perd pas trop de temps.
    Private Sub FindReplaceAvecSplit()
        Dim path As String = Application.StartupPath & "	est"
        Dim txtFiles() As String = Directory.GetFiles(path, "*.*", SearchOption.AllDirectories) 'répère le nom des fichiers dans le répertoire et sous les répertoires
        Dim mot As String = "coucou" 'le mot à trouver
        Dim remplacement As String = "Remplacé"
        Dim monOption As RegexOptions = RegexOptions.None 'ici on choisi entre None et IgnoreCase
        Dim motEntier As Boolean = True 'ici on choisit mot entier ou pas

For Each fichier As String In txtFiles
            Dim texte As String = File.ReadAllText(fichier)
            Dim nouveauTexte As String

If motEntier Then
                Dim maRegex As New Regex(mot, monOption) 'parttern qui recherche juste le mot
                Dim matches As MatchCollection = maRegex.Matches(texte) ' retourne la collection des occurences
                Dim split() As String = texte.Split({mot}, StringSplitOptions.None)
                Dim indexSplit As Integer = 0
                nouveauTexte = split(indexSplit)
                indexSplit += 1

For Each m As Match In matches
                    'extrait de texte
                    Dim index As Integer = If(m.Index > 0, m.Index - 1, 0) 'on prend un caractère avant l'occurence si c'est possible
                    Dim longueur As Integer = If(m.Index + m.Length < texte.Length, m.Length + 2, texte.Length - index) 'l'extrait de texte ne doit pas depasser le texte

Dim extrait As String = texte.Substring(index, longueur)
                    Dim pattern As String = String.Format("(\W{0}\W)|(^{0}\W)|(\W{0}$)|(^{0}$)", mot)
                    If Regex.IsMatch(extrait, pattern) Then
                        nouveauTexte &= remplacement
                    Else
                        nouveauTexte &= mot
                    End If

If indexSplit < split.Length Then
                        nouveauTexte &= split(indexSplit)
                        indexSplit += 1
                    End If
                Next m
            Else
                nouveauTexte = Regex.Replace(texte, mot, remplacement, monOption)
            End If

File.WriteAllText(fichier.Replace(".txt", "-1.txt"), nouveauTexte)

Next fichier
    End Sub

Search & Replace dans TOUS les fichiers d'un dossier.

7 réponses

Votre réponse