Ayuda con VB y un .TXT

Iniciado por my_sistemas, 24 Septiembre 2005, 07:10 AM

0 Miembros y 1 Visitante están viendo este tema.

my_sistemas

yt al volver a ingrsear datos en el formulario no va a sobre escribir los datos ya existentes?
cuando uno es grande...
la calidad nunca la pierde...

NYlOn

'Diferentes soluciones para el mismo problema'

....

Amo la programacion xD





Salu2

my_sistemas

ya encontre la solucion asi era ;)

Private Sub Command1_Click()
On Error GoTo line2
   
Dim x
x = GetAttr(App.Path & "\archivo.txt") 'Si no existe genera un error.

line1:
Open App.Path & "\archivo.txt" For Append As #1 'Escribe el contenido de las cajas de texto
    Print #1, Text1.Text, Text2.Text
Close #1

Exit Sub

line2:
Open App.Path & "\archivo.txt" For Output As #1 'Lo crea
Close #1
GoTo line1
End Sub


gracias por la ayuda.... ;)
cuando uno es grande...
la calidad nunca la pierde...

NYlOn

Estas usando aprox. 10 lineas de mas...

acaso no lees todos los post ??


G0nz4

my_sistemas

claro q los leo pero los demas dicen com escribir pero la cosa es q no existe el archivo es decir tengo q crearloi en caso no exista.... por eso es q es un poquito largo ;)
cuando uno es grande...
la calidad nunca la pierde...

NYlOn

Es que aunke no exista el arcihvo, lo crea e introduce los datos, no hace falta crearlo antes...
Con este codigo ya es suficiente, si el archivo no existe se crea igual...

Private Sub Command1_Click()
    Open "C:\asd.txt" For Append As #1
        Print #1, Text1.Text & "           " & Text2.Text
    Close #1
End Sub


...
Salu2

Ch3ck

Cita de: e-spy en 29 Septiembre 2005, 04:10 AM
claro q los leo pero los demas dicen com escribir pero la cosa es q no existe el archivo es decir tengo q crearloi en caso no exista.... por eso es q es un poquito largo ;)
Ese code esta muy largo ademas supongo que con Append si no existe el archivo se crea y se escribe y si existe se abre y se escribe.

No hay porque utilizar GetAttr  :-\

my_sistemas

bueno gracias por la aclaracion... si es q no existe el archivo lo creaba por si solo.... bueno gracias ahora si ;)  :)
cuando uno es grande...
la calidad nunca la pierde...

NYlOn


my_sistemas

otra pregunta com hago para q los datos del txt al presionar un boton se escriban en un textbox con multiline = true
cuando uno es grande...
la calidad nunca la pierde...