Cuestión : Cómo reconocer más de 6 carácteres similares en un archivo y quitarlos

Hola, tengo un archivo donde necesito buscar cualquier carácter que repite más de 6 veces como por ejemplo: “AAAAAA” o “BBBBBB” y así sucesivamente hasta “ZZZZZZ”. Los carácteres de repetición pueden existir donde en el archivo y mí necesitar ver eventualmente para existir y para quitarlo del file.

Thanks class= del

Respuesta : Cómo reconocer más de 6 carácteres similares en un archivo y quitarlos

¡Todavía estoy aprendiendo expresiones regulares así que probar éste con un pequeño archivo de muestra y comprobar la ventana inmediata antes de usted uncomment la línea que sobreescribe el archivo original!

Utilicé estos sitios para ayudarme a desarrollar el RegEx:
http://www.codeproject.com/KB/dotnet/regextutorial.aspx
http://www.regular-expressions.info/

Aquí está el código:
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:

Clase pública Form1

    Manijas privadas Button1.Click del submarino Button1_Click (remitente de ByVal como System.Object, ByVal e como System.EventArgs)
        Usar ofd como nuevo OpenFileDialog
            Si ofd.ShowDialog = Windows.Forms.DialogResult.OK después
                Intento
                    Txt dévil como la secuencia = My.Computer.FileSystem.ReadAllText (ofd.FileName)

                    Debug.Print (“texto original: ")
                    Debug.Print (“--------------------------------------------------")
                    Debug.Print (txt)
                    Debug.Print ("")

                    Patrón dévil como secuencia = “(. +) \ 1 {5,}”
                    txt = System.Text.RegularExpressions.Regex.Replace (txt, patrón, "")

                    Debug.Print (“texto modificado: ")
                    Debug.Print (“--------------------------------------------------")
                    Debug.Print (txt)

                    ¡'Uncomment que la línea debajo cuando usted está seguro el RegEx está trabajando según lo deseado!
                    'My.Computer.FileSystem.WriteAllText (ofd.FileName, txt, falsos)
                Retén ex como excepción
                    MessageBox.Show (“archivo: ” y ofd.FileName y vbCrLf y vbCrLf y ex.ToString, “archivo de modificación”, MessageBoxButtons.OK, MessageBoxIcon.Error del error)
                Intento del final
            Terminar si
        Terminar usar
    Terminar el submarino

Terminar la clase
Otras soluciones  
 
programming4us programming4us