Cómo quitar acentos en una cadena de VB6

Hay varios personajes diferentes que representan un acento. Las lápidas, acentos tilde aguda y están representados por un carácter especial sobre la letra en la palabra. Aunque no hay muchas palabras en inglés con acento , hay varios en francés y español . Al recibir o enviar datos franceses o españoles de Visual Basic a ya sea una base de datos u otra aplicación escrita en otro lenguaje de programación , que podría ser necesaria para eliminar el acento antes de la otra aplicación puede procesarlo . Instrucciones
1

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

Declare dos variables: . Uno como " FileSystemObject " y el otro como " TextStream " :

Dim oFSo como Nueva Scripting.FileSystemObject

oMyFile Dim como Scripting.TextStream

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

Set oMyFile = oFSO.OpenTextFile (nombre de archivo , ForReading )

declarar también una variable para contener cada línea de la TextStream como " sLineRead Dim como String. "
3 Proceso

la línea de archivo de texto por línea dentro de un lazo escrito como " While Not 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 " se puede sustituir con otro valor con VB "reemplazar " método.
4

Identificar el carácter acentuado para ser eliminado. Por ejemplo, el texto contiene "E " puede sustituirse por " e" antes de mostrar o introducir los datos en una base de datos :

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

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