Questione : Come riconoscere più di 6 simili caratteri in una lima e rimuoverli

Ciao, ho una lima in cui devo cercare tutto il carattere che ripete più di 6 volte come per esempio: “AAAAAA„ o “BBBBBB„ ed e così via fino “a ZZZZZZ„. I caratteri di ripetizione possono esistere affatto dove nella lima e nell'io dovere vedere se c'è ne esistono e li rimuovono dal file.

Thanks class= del

Risposta : Come riconoscere più di 6 simili caratteri in una lima e rimuoverli

Ancora sto imparando le espressioni normali in modo da provare questo con una piccola lima di campione e controllare la finestra immediata prima di voi uncomment la linea che scrive sopra la lima originale!

Ho usato questi luoghi per aiutarlo a sviluppare il RegEx:
http://www.codeproject.com/KB/dotnet/regextutorial.aspx
http://www.regular-expressions.info/

Qui è il codice:
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:

Codice categoria pubblico Form1

    Maniglie riservate Button1.Click del sommergibile Button1_Click (mittente di ByVal come System.Object, ByVal e come System.EventArgs)
        Using ofd come nuovo OpenFileDialog
            Se ofd.ShowDialog = Windows.Forms.DialogResult.OK allora
                Prova
                    Txt fioco come stringa = My.Computer.FileSystem.ReadAllText (ofd.FileName)

                    Debug.Print (“testo originale: ")
                    Debug.Print (“--------------------------------------------------")
                    Debug.Print (txt)
                    Debug.Print ("")

                    Modello fioco come stringa = “(. +) \ 1 {5,}„
                    txt = System.Text.RegularExpressions.Regex.Replace (txt, modello, "")

                    Debug.Print (“testo modificato: ")
                    Debug.Print (“--------------------------------------------------")
                    Debug.Print (txt)

                    'Uncomment che la linea sotto quando siete sicuro il RegEx sta funzionando come voluto!
                    'My.Computer.FileSystem.WriteAllText (ofd.FileName, txt, falsi)
                Fermo ex come eccezione
                    MessageBox.Show (“lima: „ & ofd.FileName & vbCrLf & vbCrLf & ex.ToString, “lima di modificazione„, MessageBoxButtons.OK, MessageBoxIcon.Error di errore)
                Prova di conclusione
            Concluder se
        Concluder Using
    Concludere il sommergibile

Concludere il codice categoria
Altre soluzioni  
 
programming4us programming4us