1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.
  2. A secção Microsoft/Windows encontra-se actualmente em processo de reestruturação.
    Remover anúncio

Remover a acentuação nas legendas divx

Discussão em 'Windows 7 e anteriores' iniciada por pirex, 9 de Junho de 2007. (Respostas: 5; Visualizações: 4525)

  1. pirex

    pirex Power Member

    Boas

    Alguém sabe se é possível remover a acentuação das legendas?
    Quero remover as acentuações para assim poder ver filmes no dvd de sala, sem caracteres que substituem as letras com acentuações.
    Tenho feito essa substituição no wordpad, mas isso obriga-me a substituir todos os à por a e assim sucessivamente. Queria saber se existe um programa ou outra forma mais simples de o fazer.
    Grande abraço

    :lol:
     
    Última edição: 9 de Junho de 2007
  2. Scarecrow

    Scarecrow Power Member

    E por acaso o teu leitor não tem nenhuma actualização de firmware disponível que corrija essa situação?

    Sem ser a fazer isso que tu fazes (fazes logo substituir tudo).. não vejo outra forma mais prática.. só se alguém tiver feito um programa para isso

    Cumps
     
  3. Mini_SD_86

    Mini_SD_86 Power Member

    penso que o subsync faz o que pretendes, mas tambem acho que existem uns programas muito melhores na qual nao estou a lembrar-me do nome, alguem te pode dizer num ajuda...
     
  4. spastikman

    spastikman Banido

    notepad -> find and replace. ;)
     
  5. Ai vai um script do MS word para remover os acentos: (o problema é que você não pode usar o word para salvar o arquivo, então é necessário copiar e colar no notepad para então salvar o arquivo, isso porque o word grava o txt com outra tabela de código)

    Sub RetiraAcentos()
    '
    ' ConversorVoz Macro
    ' Macro gravada 27/01/08 por user
    '
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
    .Text = "á"
    .Replacement.Text = "a"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
    .Text = "ã"
    .Replacement.Text = "a"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
    .Text = "à"
    .Replacement.Text = "a"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
    .Text = "ä"
    .Replacement.Text = "a"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
    .Text = "â"
    .Replacement.Text = "a"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
    .Text = "Á"
    .Replacement.Text = "A"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
    .Text = "À"
    .Replacement.Text = "A"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
    .Text = "Ã"
    .Replacement.Text = "A"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
    .Text = "Â LXX -"
    .Replacement.Text = "A"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
    .Text = "é"
    .Replacement.Text = "e"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
    .Text = "ê"
    .Replacement.Text = "e"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
    .Text = "É"
    .Replacement.Text = "E"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
    .Text = "í"
    .Replacement.Text = "i"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
    .Text = "Í"
    .Replacement.Text = "I"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
    .Text = "ó"
    .Replacement.Text = "o"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
    .Text = "õ"
    .Replacement.Text = "o"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
    .Text = "ô"
    .Replacement.Text = "o"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
    .Text = "Ó"
    .Replacement.Text = "O"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
    .Text = "Õ"
    .Replacement.Text = "O"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
    .Text = "Ô"
    .Replacement.Text = "O"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
    .Text = "Ú"
    .Replacement.Text = "U"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
    .Text = "ú"
    .Replacement.Text = "u"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
    .Text = "ç"
    .Replacement.Text = "c"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
    .Text = "Ç"
    .Replacement.Text = "C"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    End Sub


    Para criar o macro aperte alt+f8 e depois em criar.
     
  6. Brincadera, essa sugestão...¬¬

    Pirex, depois de fazer muitas conversões "no muque", legenda a legenda, descobri um programinha que facilita. Pelo menos é possível resolver o caso de várias legendas de uma só vez, embora ainda seja preciso ativar as substituições uma por vez: "á" por "a", "à" por "a", "é" por "e", e por aí vai.

    Caso tenha interesse, o que eu baixei (não sei se é o melhor, mas é o que me pareceu mais "econômico" e confiável) foi o software "Search and Replace" da Nodesoft:

    http://www.nodesoft.com/SearchAndReplace/Default.aspx

    É pequenino e funciona bem. Unico problema é que tem de ter o ".net framework " da microsoft intalado, mas isso nao é dificil conseguir, basta buscar no google. Tem muitos outros programas nesse estilo, mas esse é oque me pareceu mais "economico ". Se alguém conhece outro igualmente simples, leve e eficiente,eu adoraria conhecer tb :)

     

Partilhar esta Página