elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Guía actualizada para evitar que un ransomware ataque tu empresa


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Algo de archivos alguien sabe?
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Algo de archivos alguien sabe?  (Leído 2,633 veces)
n3ts4mura1

Desconectado Desconectado

Mensajes: 66


Ver Perfil
Algo de archivos alguien sabe?
« en: 16 Agosto 2006, 16:31 pm »

Tengo esto :
6 cajas de texto en 3 de ellas inreso nombre apellido y edad y en las otras 3 muestro los resultados de mi archivo.

este es el codigo:

Private Type T_Registro
    nombre As String * 20
    apellido As String * 20
    edad As String * 20
End Type

Dim registro As T_Registro


Private Sub Command1_Click()
Open "personas.txt" For Random As #1
    registro.nombre = Text1.Text
    registro.apellido = Text2.Text
    registro.edad = Text3.Text
    Put #i, 1, registro
Close #1
End Sub

Private Sub Command2_Click()
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""

End Sub

Private Sub Command3_Click()
Open "personas.txt" For Random As #1
Put #1, 1, registro
    Text4.Text = registro.nombre
    Text5.Text = registro.apellido
    Text6.Text = registro.edad
Close #1
End Sub


ahora mi duda es la siguiente se guardan en el archivo personas.txt pero si agrego otro se me borra el que tenia anteriormente y me deja el actual y yo quiero que el archivo me vaya guardando todos los usuarios que ingreso .

alguien que me ayude con esto porfavor o me de una idea bueno gracias saludos.


En línea

elmaro


Desconectado Desconectado

Mensajes: 301


Unas simples palabras...


Ver Perfil
Re: Algo de archivos alguien sabe?
« Respuesta #1 en: 16 Agosto 2006, 16:49 pm »

 
Código:
Put #i, 1, registro

reemplaza el 1 x el numero de registros,. si pones el ultimo numemro escribir al final del archivo


En línea

n3ts4mura1

Desconectado Desconectado

Mensajes: 66


Ver Perfil
Re: Algo de archivos alguien sabe?
« Respuesta #2 en: 16 Agosto 2006, 17:48 pm »

elmaro seria algo como esto o no?:

contador.
i=1
y el put quedaria de esta forma:
put #1,i,registro
y abajo de esto iria:
i=i+1

algo haci seria? porque si es haci no me resulta =P
En línea

Cicatrix

Desconectado Desconectado

Mensajes: 4


Ver Perfil
Re: Algo de archivos alguien sabe?
« Respuesta #3 en: 16 Agosto 2006, 18:30 pm »

tienes que cambiar el modo de acceso RANDOM por APPEND.
Como sabrás, los modos de acceso son los que determinan la forma en que serán agregadas las nuevas líneas. Ellos son: bianry, ramdom y append.

Si te interesa saber más me puedes contactar con toda tranquilidad  ;D
En línea

elmaro


Desconectado Desconectado

Mensajes: 301


Unas simples palabras...


Ver Perfil
Re: Algo de archivos alguien sabe?
« Respuesta #4 en: 16 Agosto 2006, 18:39 pm »

si pero para acer ese tipo de trabajo se utiliza la opcion RANDOM ., ya que despues tiene que acceder a los datos guardados,. y para eso utiliza variables de tamaño especifico
utilis esto para saber el numero de rejistros y posisionarte en el ultimo

Código:
On Error Resume Next
Close
Open "personas.txt" For Random As #1 Len = 60 'este numero es la cantidad de caracteres que le reservas(20+20+20=60)
LONGITUDFICH = LOF(1)
NUMREGS = LONGITUDFICH / 60 ' el mismo numero
RegEscribir = NUMREGS + 1

ahora para escribir en el ultimo registro seria...

Código:
Put #i, RegEscribir, registro

espero que te sirva,. no lo he probado el codigo ,. pero supongo que funciona xq lo sake de una aplicacion que yo hize hace unos años
suerte man


El MaRo!
En línea

n3ts4mura1

Desconectado Desconectado

Mensajes: 66


Ver Perfil
Re: Algo de archivos alguien sabe?
« Respuesta #5 en: 16 Agosto 2006, 19:48 pm »

gracias.
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines