Visual Basic - Abrir Archivo txt

Life is soft - evento anual de software empresarial
 
Vista:

Abrir Archivo txt

Publicado por Alexandre - **BRASIL** (67 intervenciones) el 21/05/2002 21:13:48
Hola amigos foristas:
Estoy trabajando en 1 aplicacion que si durante el processo ocurrir alguno error, él deverá grabar en el archivo RESUMO.TXT el contenido de 3 variaveis (nombre, codigo, email). ¿Como es posible abrir este arquicho, poner el contenido de estas variavebles y despues cerrar el arqhivo. El objetivo es vizualizar los errores despues del procesamiento
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Abrir Archivo txt

Publicado por Samus (6 intervenciones) el 22/05/2002 04:59:33
Aunque hay 3 formas de grabar en un archivo esta es la que mas te conviente, pero de todos modos deberias probar las otras 2 formas.

'PARA CARGAR LOS DATOS DEL ARCHIVO (Load)

filenum = FreeFile 'Busca un numero de archivo disponible
On Error Resume Next
Open "Resumo.txt" For Input As filenum 'lo abre para entrada
Open "Resumo.txt" For Output As filenum 'si no existe lo crea

Input #filenum, nombre, codigo, email 'carga las variables
Close filenum 'lo cierra


'PARA GUARDAR LOS DATOS EN EL ARCHIVO (Save)
Open "Resumo.tmp" For Output As filenum 'crea un archivo temporal
Kill "Resumo.txt" 'Borra el registro anterior
Close filenum

Name "Resumo.tmp" As "Resumo.txt" 'Lo renombra

filenum = FreeFile 'Busca un numero de archivo disponible
Open "Resumo.txt" For Output As filenum
Write #filenum, nombre 'escribe las variables en el archivo
Write #filenum, codigo
Write #filenum, email
Close filenum 'lo cierra

TEN EN CUENTA QUE ES IMPORTANTE CERRAR EL ARCHIVO POR QUE SE PRODUCE UN ERROR SI SE TRATA DE ABRIR MIENTRAS ESTÁ ABIERTO
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar