Pergunta : Como reconhecer mais de 6 caráteres similares em uma lima e os remover

Olá!, eu tenho uma lima onde eu precise de procurar todo o caráter que repete mais de 6 vezes como por exemplo: “AAAAAA” ou “BBBBBB” e assim por diante até “ZZZZZZ”. Os caráteres de repetição podem existir onde na lima e no mim precisar de ver eventualmente para existir e os remover do file.

Thanks class= do

Resposta : Como reconhecer mais de 6 caráteres similares em uma lima e os remover

Eu ainda estou aprendendo expressões regulares assim que testar este com uma lima de amostra pequena e verific a janela imediata antes de você uncomment a linha que overwrites a lima original!

Eu usei estes locais para ajudar-me a desenvolver o RegEx:
http://www.codeproject.com/KB/dotnet/regextutorial.aspx
http://www.regular-expressions.info/

Está aqui o 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:

Classe pública Form1

    Punhos confidenciais Button1.Click do submarino Button1_Click (remetente de ByVal como System.Object, ByVal e como System.EventArgs)
        Using o ofd como OpenFileDialog novo
            Se ofd.ShowDialog = Windows.Forms.DialogResult.OK então
                Tentativa
                    Txt não ofuscante como a corda = o My.Computer.FileSystem.ReadAllText (ofd.FileName)

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

                    Teste padrão não ofuscante como a corda = “(. +) \ 1 {5,}”
                    txt = System.Text.RegularExpressions.Regex.Replace (txt, teste padrão, "")

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

                    'Uncomment que a linha abaixo quando você for certo o RegEx está trabalhando como desejado!
                    'My.Computer.FileSystem.WriteAllText (ofd.FileName, txt, falsos)
                Prendedor ex como a exceção
                    MessageBox.Show (“lima: ” & ofd.FileName & vbCrLf & vbCrLf & ex.ToString, “lima de alteração”, MessageBoxButtons.OK, MessageBoxIcon.Error do erro)
                Tentativa do fim
            Terminar se
        Terminar Using
    Terminar o submarino

Terminar a classe
Outras soluções  
 
programming4us programming4us