Question : Comment identifier plus de 6 caractères semblables dans un dossier et les enlever

Bonjour, j'ai un dossier où je dois rechercher n'importe quel caractère répétant plus de 6 fois comme par exemple : « AAAAAA » ou « BBBBBB » et ainsi de suite jusqu'à « ZZZZZZ ». Les caractères de répétition peuvent exister où dans le dossier et moi devoir voir le cas échéant pour exister et pour les enlever du file.

Thanks class= de

Réponse : Comment identifier plus de 6 caractères semblables dans un dossier et les enlever

J'apprends toujours des expressions régulières ainsi examiner celui-ci avec un petit dossier témoin et vérifier la fenêtre immédiate avant vous uncomment la ligne qui recouvre le dossier original !

J'avais l'habitude ces emplacements pour m'aider à développer le RegEx :
http://www.codeproject.com/KB/dotnet/regextutorial.aspx
http://www.regular-expressions.info/

Voici le code :
1 :
2 :
3 :
4 :
5 :
6 :
7 :
8 :
9 :
10 :
11 :
12 :
13 :
14 :
15 :
16 :
17 :
18 :
19 :
20 :
21 :
22 :
23 :
24 :
25 :
26 :
27 :
28 :
29 :
30 :

Classe publique Form1

    Poignées privées Button1.Click du sous-marin Button1_Click (expéditeur de ByVal comme System.Object, ByVal e comme System.EventArgs)
        Using l'ofd en tant que nouvel OpenFileDialog
            Si ofd.ShowDialog = puis Windows.Forms.DialogResult.OK
                Essai
                    Faible txt comme corde = My.Computer.FileSystem.ReadAllText (ofd.FileName)

                    Debug.Print (« texte original : ")
                    Debug.Print (« --------------------------------------------------")
                    Debug.Print (txt)
                    Debug.Print ("")

                    Faible modèle comme corde = « (. +) \ 1 {5,} »
                    txt = System.Text.RegularExpressions.Regex.Replace (txt, modèle, "")

                    Debug.Print (« texte modifié : ")
                    Debug.Print (« --------------------------------------------------")
                    Debug.Print (txt)

                    'Uncomment que la ligne ci-dessous quand vous êtes sûr le RegEx fonctionne comme désiré !
                    'My.Computer.FileSystem.WriteAllText (ofd.FileName, txt, faux)
                Crochet ex comme exception
                    MessageBox.Show (« dossier :  » et ofd.FileName et vbCrLf et vbCrLf et ex.ToString, « dossier de modification d'erreur », MessageBoxButtons.OK, MessageBoxIcon.Error)
                Essai de fin
            Finir si
        Finir Using
    Finir le sous-marin

Finir la classe
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
    •
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
    •
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
    •
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
    •
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
    •
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
    •
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
    •
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
    •
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
    •
  •  Winzip 12 issues de secours du travail ?
    •
     
    programming4us programming4us