Fråga : Hur man känner igen mer än 6 liknande tecken i en spara och tar dem bort

Hi jag har en spara var jag behöver att söka efter något tecken som for example upprepar mer än 6 lika tider: ”AAAAAA” eller ”BBBBBB” och så vidare till ”ZZZZZZ”. De upprepande teckenen kan finnas any var i spara och mig behöv att se, om några finns och tar dem bort från file.
Thanks " klar "

Svar : Hur man känner igen mer än 6 liknande tecken i en spara och tar dem bort

Stilla lärande stamgästuttryck för förmiddag I så testar detta med ett litet tar prov sparar och kontrollerar det omgående fönstret, för dig uncommenten som fodra, som överskrivar original, sparar!

Jag använde dessa platser för att hjälpa mig att framkalla RegExen:
http://www.codeproject.com/KB/dotnet/regextutorial.aspx
http://www.regular-expressions.info/

Är här kodifiera:
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:

Allmänhet klassificerar Form1

    Den privata suben Button1_Click (den ByVal avsändaren som System.Object, ByVal e som System.EventArgs) behandlar Button1.Click
        Using ofd som nya OpenFileDialog
            Om ofd.ShowDialog = Windows.Forms.DialogResult.OK därefter
                Försök
                    Dunkel txt som stränger = My.Computer.FileSystem.ReadAllText (ofd.FileName)

                    Debug.Print (”original- text: ”)
                    Debug.Print (”,--------------------------------------------------”)
                    Debug.Print (txt)
                    Debug.Print ("")

                    Dunkelt mönstra som stränger = ”(. +) \ 1 {5,}”,
                    txt = System.Text.RegularExpressions.Regex.Replace (txt, mönstrar, ""),

                    Debug.Print (”ändrad text: ”)
                    Debug.Print (”,--------------------------------------------------”)
                    Debug.Print (txt)

                    'Uncomment den nedanföra fodra, när du är säker RegExen, är funktionsduglig som önskad!
                    'My.Computer.FileSystem.WriteAllText (ofd.FileName, txt som, är falska)
                Fånga före detta som undantag
                    MessageBox.Show (”spara: ” & ofd.FileName & vbCrLf & vbCrLf & ex.ToString, ”felet som ändrar, sparar”, MessageBoxButtons.OK, MessageBoxIcon.Error),
                Avsluta försök
            Avsluta om
        Avsluta Using
    Avsluta suben

Avsluta klassificerar
Andra lösningar  
 
programming4us programming4us