Frage : Wie man mehr als 6 ähnliche Buchstaben in einer Akte erkennt und sie entfernt

Hallo, habe ich eine Akte, in der ich nach jedem möglichem Buchstaben suchen muss, der mehr als 6mal wie zum Beispiel wiederholt: „AAAAAA“ oder „BBBBBB“ und so weiter bis „ZZZZZZ“. Die wiederholenden Buchstaben können irgendwie existieren, wo in der Akte und in mir wenn überhaupt sehen müssen, und sie vom file.

Thanks zu entfernen zu existieren

Antwort : Wie man mehr als 6 ähnliche Buchstaben in einer Akte erkennt und sie entfernt

Ich erlerne noch reguläre Ausdrücke, also dieses mit einer kleinen Beispielakte prüfen und das sofortige Fenster vor Ihnen überprüfen uncomment die Linie, die die ursprüngliche Akte überschreibt!

Ich benutzte diese Aufstellungsorte, um mir zu helfen, das RegEx zu entwickeln:
http://www.codeproject.com/KB/dotnet/regextutorial.aspx
http://www.regular-expressions.info/

Ist hier der 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:

Allgemeine Kategorie Form1

    Private Handgriffe Button1.Click des Unterseeboot-Button1_Click (ByVal Absender als System.Object, ByVal e als System.EventArgs)
        Using ofd als neues OpenFileDialog
            Wenn ofd.ShowDialog = Windows.Forms.DialogResult.OK dann
                Versuch
                    Schwaches txt als Schnur = My.Computer.FileSystem.ReadAllText (ofd.FileName)

                    Debug.Print („ursprünglicher Text: ")
                    Debug.Print („--------------------------------------------------")
                    Debug.Print (txt)
                    Debug.Print ("")

                    Schwaches Muster als Schnur = „(. +) \ 1 {5,}“
                    txt = System.Text.RegularExpressions.Regex.Replace (txt, Muster, "")

                    Debug.Print („geänderter Text: ")
                    Debug.Print („--------------------------------------------------")
                    Debug.Print (txt)

                    'Uncomment, welches, die Linie unter, wenn Sie das RegEx sicher sind bearbeitet, wie gewünscht!
                    'My.Computer.FileSystem.WriteAllText (ofd.FileName, txt, falsch)
                Fang ex als Ausnahme
                    MessageBox.Show („Akte: “ u. ofd.FileName u. vbCrLf u. vbCrLf u. ex.ToString, „Störungs-ändernakte“, MessageBoxButtons.OK, MessageBoxIcon.Error)
                Enden-Versuch
            Beenden wenn
        Using beenden
    Unterseeboot beenden

Kategorie beenden
Weitere Lösungen  
 
programming4us programming4us