Visual Basic - escribir y leer un archivo.txt

Life is soft - evento anual de software empresarial
 
Vista:

escribir y leer un archivo.txt

Publicado por txemi (4 intervenciones) el 28/12/2002 00:02:56
Hola a todos y gracias por vuestra ayuda.Mi pregunta es la siguiente.

Quiero poder escribir en diferentes lineas de un archivo txt y poder leer la linea que me interesa en ese momento.

Como podria hacerlo?.
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:escribir y leer un archivo.txt

Publicado por Ragayaga (1 intervención) el 28/12/2002 09:07:40
Busca la sentencia OPEN en la ayuda del Visual Basic, con ella es bastante fácil crear, editar, etc. un archivo de texto.

Aquí te envío un pequeño ejemplo para que te guíes...

Dim FileNumber As Integer
Dim MyRecord As String

MyRecord = "Esto es una línea escrita en un archivo"
FileNumber = FreeFile

'Se abre el archivo para escritura
Open "C:\Archivo.TXT" For Binary Access Write As FileNumber
Put FileNumber, , MyRecord
Close FileNumber 'Se cierra el archivo
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

RE:escribir y leer un archivo.txt

Publicado por txemi (4 intervenciones) el 28/12/2002 12:39:35
SI. Eso esta bien pero solo consigo leer y escribir una linea. Yo lo que quiero es guardar varias lineas a modo de preferencias. Del estilo:
linea1-nombre
linea2-telefono
linea3-direccion
y asi sucesivamente poderlas recuperar de este modo.
gracias
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

RE:escribir y leer un archivo.txt

Publicado por jose (61 intervenciones) el 29/12/2002 14:50:36
Mira con este codigo de abajo puedes leer un archivo texto
linea por linea, lo que no se es como grabar x's cantidad de
lineas en visual y grabarlas en ese archivo u otro.

Dim mleer As String
mleer = App.Path + "\leer.txt"
MsgBox mleer
Dim Lineas() As String, fh As Integer, I As Integer
fh = FreeFile
'Open "c:\cabrera\winplus\a_pda\formas\leer.txt" For Input As #fh

Open mleer For Input As #fh
I = 0
Do While Not EOF(fh)
ReDim Preserve Lineas(I)
Line Input #fh, Lineas(I)
MsgBox Lineas(I)
I = I + 1
Loop
Close #fh
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

RE:escribir y leer un archivo.txt

Publicado por josé (129 intervenciones) el 29/12/2002 20:31:51
Sobre eso lo único que tengo es algo que observe del mismo asistente de Visual:
Abres el VB y escoges "Asistente para Aplicaciones de VB"
Si quieres le das a todo "Siguiente" hasta que llegues a "Finalizar"

El asistente te hará un FormMDI y para probarlo guarda un archivo de Texto con el NotePad de Windows en C:\
Luego abrelo con lo que te creó el Asistente, escribe en él lo que quieras y el das "Guardar" en el botoncito del MDIForm, lo cierras y lo vuelves a Abrir y veras que te guardó lo que escribiste.

De ahí puedes analizar lo que hace y hacer lo tuyo, eso es todo lo que he hecho sobre eso.

Feliz Año Nuevo.
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