Microsoft Access 2003
Ver Más instrucciones
1
Open Access , a continuación, pulse "Alt " + "F11 " para entrar en el entorno de desarrollo integrado de Visual Basic ( IDE).
2 Haga clic en el menú "Insertar " la partida , seguido de la opción de menú "Módulo " . Este comando inserta una nueva ventana de código para que se introduzca el código de programa
3
pegue el siguiente código en cualquier lugar en la nueva ventana de código : .
Public Sub ModifyTextFile ()
Dim someText
Abrir "c: \\ infile.txt " Para la entrada como # 1
Abrir "c: \\ outfile.txt " para la salida como # 2
Do While Not EOF ( 1 ) High Line
entrada # 1 , someText
'text Proceso aquí
Print # 2 , someText
Loop
Close # 1
Close # 2
Kill " c: \\ infile.txt "
Name " c: \\ outfile.txt " As " c: \\ infile.txt "
End Sub
Estas declaraciones abrir archivos de texto para leer y escribir , a continuación, leer cada línea del archivo de entrada . La declaración de "Imprimir ", escribe cada línea, sin procesamiento , el archivo de texto de salida. Después de que el programa se cierra los archivos de entrada y de salida , se elimina el archivo de entrada y cambia el nombre del archivo de salida con el nombre del archivo de entrada. Este resultado de este proceso es el archivo de entrada original . El comentario "text Proceso aquí " muestra donde se puede insertar código que modifica el texto de entrada . Usted modifica el texto de entrada en los próximos pasos.
4
Tipo sobre el comentario " " texto Proceso aquí "con el" someText = UCase ( someText ) ", declaración que se convertirán cada personaje en el archivo de entrada a mayúsculas. Esta acción es un ejemplo de la modificación del archivo de entrada.
5
Crear , el Bloc de notas o cualquier otro procesador de texto , un archivo de texto con el texto en minúsculas desea . Guarde el archivo como "c: \\ infile.txt ", a continuación, cierre el archivo. Estas acciones permitirán a la subrutina que anotó en el paso 3 para leer el archivo .
6
Haga clic en cualquier declaración en el subprograma " ModifyTextFile ", luego presione "F5 " para ejecutar el programa.
7
Vuelva a abrir el archivo que creó en el paso 5 . Su procesador de texto mostrará el mismo texto que escribió en letras mayúsculas
8
Tipo más , en el IDE de VB, la declaración " someText = UCase ( someText ) " con estas nuevas declaraciones : .
Si ( someText = "antes ") Luego
someText = " después de"
End If
9
Abrir "c: \\ infile.txt "en su procesador de textos y el tipo al menos una instancia de la palabra" antes " y vuelva a guardar y cerrar el archivo.
10
Ejecutar el programa de nuevo , como lo hizo en el paso 6 .
11
Re -open "c : \\. infile.txt " Todas las apariciones de la palabra "antes" ahora se muestran "después". Esto muestra cómo el programa de modificación de texto puede reemplazar una cadena de texto con otro .