Tecnología

Inicio

Cómo quitar acentos en una cadena de VB6

Cómo quitar acentos en una cadena de VB6


Hay varios personajes diferentes que representan un acento. Las graves, agudos y tilde tildes están representados por un carácter especial sobre la letra de la palabra. Aunque no hay muchas palabras en inglés con acentos, hay varios en francés y español. Al recibir o enviar datos francés o español de Visual Basic ya sea a una base de datos o en otra aplicación escrito en otro lenguaje de programación, que podría ser necesario retirar el acento antes de la otra aplicación puede procesar.

Instrucciones

1 Crear un nuevo programa EXE estándar de Visual Basic. Añadir la capacidad de leer y procesar los datos de un archivo externo mediante la selección de "Proyecto" y "Referencias". Marque la casilla junto a "Microsoft Scripting Runtime" y haga clic en "Aceptar" para guardar. Esto le da al programa de acceso a la API de Windows para el manejo de archivos.

2 Declarar dos variables: una como "FileSystemObject" y el otro como "TextStream":

Dim oFSo como Nueva Scripting.FileSystemObject

Dim oMyFile como Scripting.TextStream

A continuación, abra el archivo para leer en el TextStream.

Establecer oMyFile = oFSO.OpenTextFile (nombre del archivo, ForReading)

También declarar una variable para contener cada línea de la TextStream como "Dim sLineRead como cadena."

3 Procesar el archivo línea por línea dentro de un bucle escrita como "Si bien no oMyFile.AtEndOfStream." Ajuste "sLineRead" igual a una línea de texto de la TextStream:

sLineRead = oMyFile.ReadLine

Si hay algunos detalles que figuran en "sLineRead" Usted puede reemplazar con otro valor utilizando el método de "reemplazar" de VB.

4 Identificar el carácter de acento para ser eliminado. Por ejemplo, el texto que contiene "E" se puede sustituir por "e" antes de mostrar o insertar los datos en una base de datos:

sLineRead = Replace (sLineRead, "E", "e")

Esta línea de código reemplaza todas las instancias de "E" con "e" dentro de la línea de texto leído en "sLineRead" sin cambiar ninguno de los datos originales.