Como remover acentos em uma cadeia de dados VB6

Escrito por lora covrett | Traduzido por marcos a. guedes
  • Compartilhar
  • Tweetar
  • Compartilhar
  • Pin
  • E-mail
Como remover acentos em uma cadeia de dados VB6
Os acentos podem ser adicionados à maioria dos textos com uma combinação de teclas (Thinkstock Images/Comstock/Getty Images)

Existem vários caracteres diferentes que representam um acento. Os acentos grave, til e agudo são representados por um caractere especial sobre uma letra em determinadas palavras. Embora não existam muitas palavras em inglês que utilizem acento, existem inúmeras em outros idiomas, como o francês, o português e o espanhol. Ao receber ou enviar dados em alguns desses idiomas em Visual Basic para um banco de dados ou aplicativo escrito em outra linguagem de programação, pode ser necessário remover acentos para que outro aplicativo possa processá-los.

Nível de dificuldade:
Moderado

Outras pessoas estão lendo

Instruções

  1. 1

    Crie um novo programa EXE Visual Basic padrão. Adicione a capacidade de ler e processar dados de um arquivo externo selecionando "Project" (Projeto) e "References" (Referências). Marque a caixa próxima à opção "Microsoft Scripting Runtime" e clique em "OK". Isso atribui ao programa acesso ao Windows API para manipulação de arquivos.

  2. 2

    Declare duas variáveis: uma como "FileSystemObject" e a outra como "TextStream":

    "Dim oFSO as New Scripting.FileSystemObject" "Dim oMyFile as Scripting.TextStream" Em seguida, abra o arquivo para leitura na TextStream. "Set oMyFile = oFSO.OpenTextFile(FileName, ForReading)"

    Declare também a variável para manter cada linha da TextStream como "Dim sLineRead as String."

  3. 3

    Processe o arquivo de texto, linha por linha, dentro de um circuito escrito como "While Not oMyFile.AtEndOfStream". Defina a "sLineRead" de forma similar à uma linha de texto da TextStream: "sLineRead = oMyFile.ReadLine"

    Se houver algum acento na "sLineRead", você pode substituí-lo por algum outro valor utilizando o método VB "replace" (substituir).

  4. 4

    Identifique o caractere de acento a ser removido. Por exemplo, textos que contém "è" podem ser substituídos por "e" antes de exibir ou inserir os dados em um banco: "sLineRead = Replace(sLineRead, "è","e")"

    Essa linha de códigos substitui todas os caracteres "è" por "e" na linha de texto lida em "sLineRead", sem carregar qualquer dado original.

Não perca

Filtro:
  • Geral
  • Artigos
  • Slides
  • Vídeos
Mostrar:
  • Mais relevantes
  • Mais lidos
  • Mais recentes

Nenhum artigo disponível

Nenhum slide disponível

Nenhum vídeo disponível