Imprimir Página - Ayuda con VB y un .TXT

Título: Ayuda con VB y un .TXT
Publicado por: my_sistemas en 24 Septiembre 2005, 07:10 am

hola bueno solo tengo una pequeñla duda... ya olvide com hacer para q los datos de 2 textbox vallan a un txt q aun no ha sido creado es decir al precionar un comand se crea el txt en caso q no este creado y escrinbe el la sigueinte linea...
por ejemplo tengo un formukario con:
text1
text2
comand1

y lo q ingrese en el text1 y text2 va a ir a un archivo txt q no esta creado. es decir primero tiene q comprobar si es q existe en caso q no exista lo crea y escribe en el los datos de text1 y text2 en una sola linea.
cuando se vuelve a presionar el comand1 va a escribir nuevamente lo q esta en el text1 y text2 pero en una nueva linea... como hago eso?

Título: Re: Ayuda con VB y un .TXT
Publicado por: Numeros en 24 Septiembre 2005, 08:03 am

Código:

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
   Write #1, Text1
   Write #1, Text2
Close

Exit sub

line2:
Open App.path & "\archivo.txt" For Output As #1 'Lo crea
Close
goto line1

Mucha Suerte!

Título: Re: Ayuda con VB y un .TXT
Publicado por: NYlOn en 25 Septiembre 2005, 18:52 pm

Código:

    Open "C:\asd.txt" For Append As #1 'Directorio donde se guardar el texto...
        Write #1, Text1.Text 'guardas el Text1
        Write #1, Text2.Text '.. el Text2
    Close #1 'Cerras el archivo

con eso basta...

salu2

Título: Re: Ayuda con VB y un .TXT
Publicado por: Slasher-K en 26 Septiembre 2005, 02:10 am

Si querés que borre los datos del archivo existente lo abres de la siguiente manera:

Código:

Open "C:\file.txt" For Output As #1

Saludos.

Título: Re: Ayuda con VB y un .TXT
Publicado por: NYlOn en 26 Septiembre 2005, 19:37 pm

:O
me acabo de dar cuenta XD
si utilizas la funcion Write, el texto guardado aparece entre "comillas", pero si usas la funcion Print aparece normal ;D

SAlu2 :P

Título: Re: Ayuda con VB y un .TXT
Publicado por: my_sistemas en 29 Septiembre 2005, 00:24 am

okok pero veo qno me han entendido mires esto es lo q deseo hacer...

vean este formulario
(http://img295.imageshack.us/img295/8852/dibujo2zp.png)

los mas importantes son:
Text1
Text2
Command1

ahora lo q yo quisiera es saber como hacer para q al presionar el comand el dato se valla a un .txt que se encuentra en la misma carpeta q el software (app path)
en caso de no existir ese txt (primera ves q ejecuta el sotware) q lo cree y grabe lo del txt1 y text2.

ahora quiero Guardar otros datos como la imagen:

(http://img205.imageshack.us/img205/444/dibujo27yg.png)

y al presionar guardar se tiene q cumplir la misma funcion pero sin sobre escribir los datos guardados cosa q cuando yo habra el .txt se vea asi:

(http://img205.imageshack.us/img205/5339/dibujo32yf.png)

ven lo q no quiero es q sobre escriba..... y q haya una sierta separacion entre textos en una fila..

Título: Re: Ayuda con VB y un .TXT
Publicado por: NYlOn en 29 Septiembre 2005, 00:40 am

Código:

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

;)

Título: Re: Ayuda con VB y un .TXT
Publicado por: Ch3ck en 29 Septiembre 2005, 00:45 am

Era exactamente lo que estaba escribiendo....
Creo que NYLOn ya te lo ha dicho todo

Cita de: NYlOn en 25 Septiembre 2005, 18:52 pm

Código:

 Open "C:\asd.txt" For Append As #1 'Directorio donde se guardar el texto...
 Write #1, Text1.Text 'guardas el Text1
 Write #1, Text2.Text '.. el Text2
 Close #1 'Cerras el archivo

y en vez de write colocas print así:

Código:

Private Sub Command1_Click ()
Open & App.Path & "\asd.txt" for append as #1
Print #1, & Text1.Text & "__________" & Text2.text
Close#1

;)

Título: Re: Ayuda con VB y un .TXT
Publicado por: Slasher-K en 29 Septiembre 2005, 00:54 am

Cita de: NYlOn en 29 Septiembre 2005, 00:40 am

Código:

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

;)

Para separar registros se usan comas en realidad.

Código:

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

O sino se puede usar la palabra clave Tab

Código:

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

Saludos.

Título: Re: Ayuda con VB y un .TXT
Publicado por: Ch3ck en 29 Septiembre 2005, 00:57 am

:o esa del tab no mela sabia y el 4 supongo que es el numero de espacios.... Bueno Gracias... ;D

Título: Re: Ayuda con VB y un .TXT
Publicado por: my_sistemas en 29 Septiembre 2005, 01:07 am

yt al volver a ingrsear datos en el formulario no va a sobre escribir los datos ya existentes?

Título: Re: Ayuda con VB y un .TXT
Publicado por: NYlOn en 29 Septiembre 2005, 01:09 am

'Diferentes soluciones para el mismo problema'

....

Amo la programacion xD

Salu2

Título: Re: Ayuda con VB y un .TXT
Publicado por: my_sistemas en 29 Septiembre 2005, 01:12 am

ya encontre la solucion asi era ;)

Código:

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.... ;)

Título: Re: Ayuda con VB y un .TXT
Publicado por: NYlOn en 29 Septiembre 2005, 01:30 am

Estas usando aprox. 10 lineas de mas...

acaso no lees todos los post ??

G0nz4

Título: Re: Ayuda con VB y un .TXT
Publicado por: my_sistemas 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 ;)

Título: Re: Ayuda con VB y un .TXT
Publicado por: NYlOn en 29 Septiembre 2005, 04:26 am

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...

Código:

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

...
Salu2

Título: Re: Ayuda con VB y un .TXT
Publicado por: Ch3ck en 29 Septiembre 2005, 17:16 pm

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 :-\

Título: Re: Ayuda con VB y un .TXT
Publicado por: my_sistemas en 29 Septiembre 2005, 22:04 pm

bueno gracias por la aclaracion... si es q no existe el archivo lo creaba por si solo.... bueno gracias ahora si ;) :)

Título: Re: Ayuda con VB y un .TXT
Publicado por: NYlOn en 29 Septiembre 2005, 22:08 pm

de nada ;)

Título: Re: Ayuda con VB y un .TXT
Publicado por: my_sistemas en 2 Octubre 2005, 01:26 am

otra pregunta com hago para q los datos del txt al presionar un boton se escriban en un textbox con multiline = true

Título: Re: Ayuda con VB y un .TXT
Publicado por: NYlOn en 2 Octubre 2005, 09:17 am

..............................

(http://foro.elhacker.net/Themes/default/images/spanish/search.gif) (http://foro.elhacker.net/index.php?action=search)

'EL que busca, encuentra'

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: my_sistemas en 24 Septiembre 2005, 07:10 am