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") < br >
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.