Vraag : Hoe te om meer dan 6 gelijkaardige karakters in een dossier te erkennen en hen te verwijderen

Hallo, heb ik een dossier waar ik moet om het even welk karakter zoeken die meer dan 6 keer herhalen als bijvoorbeeld: „AAAAAA“ of „BBBBBB“ etc. tot „ZZZZZZ“. De herhalende karakters kunnen bestaan om het even welk waar in het dossier en ik moet zien of bestaan om het even welk en verwijderen hen uit file.

Thanks

Antwoord : Hoe te om meer dan 6 gelijkaardige karakters in een dossier te erkennen en hen te verwijderen

Ik leer nog de Regelmatige Uitdrukkingen zo dit met een klein steekproefdossier testen en het Directe venster vóór u uncomment de lijn controleren die het oorspronkelijke dossier beschrijft!

Ik gebruikte deze plaatsen om me te helpen RegEx ontwikkelen:
http://www.codeproject.com/KB/dotnet/regextutorial.aspx
http://www.regular-expressions.info/

Hier is de 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:

Openbare Klasse Form1

    Privé Sub (ByVal afzender als System.Object, ByVal e als System.EventArgs) Handvatten Button1_Click Button1.Click
        Het gebruiken ofd als Nieuwe OpenFileDialog
            Als ofd.ShowDialog = Windows.Forms.DialogResult.OK toen
                Probeer
                    Verduister txt als Koord = My.Computer.FileSystem.ReadAllText (ofd.FileName)

                    Debug.Print („Oorspronkelijke Tekst: “)
                    Debug.Print („“)
                    Debug.Print (txt)
                    Debug.Print ("")

                    Schemerig patroon als Koord = „(. +) \ 1 {5,}“
                    txt = System.Text.RegularExpressions.Regex.Replace (txt, patroon, "")

                    Debug.Print („Gewijzigde Tekst: “)
                    Debug.Print („“)
                    Debug.Print (txt)

                    'Uncomment de lijn hieronder wanneer u RegEx zeker bent werkt zoals gewenst!
                    'My.Computer.FileSystem.WriteAllText (Valse ofd.FileName, txt,)
                Vangst ex als Uitzondering
                    MessageBox.Show („Dossier: “ & ofd.FileName & vbCrLf & vbCrLf & ex.ToString, „Fout Dossier“, MessageBoxButtons.OK, MessageBoxIcon.Error die) wijzigen
                Het eind probeert
            Beëindig als
        Beëindig Gebruikend
    Beëindig Sub

Beëindig Klasse
Andere oplossingen  
 
programming4us programming4us