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

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?
cuando uno es grande...
la calidad nunca la pierde...

Numeros

#1
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!

NYlOn


    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

Slasher-K

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


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


Saludos.



A la reina de las profundidades que cuida los pasos de una sombra en la noche :*

NYlOn

: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


my_sistemas

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

vean este formulario


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:



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:



ven lo q no quiero es q sobre escriba..... y q haya una sierta separacion entre textos en una fila..
cuando uno es grande...
la calidad nunca la pierde...

NYlOn


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



;)

Ch3ck

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

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


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

Slasher-K

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

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.


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


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.



A la reina de las profundidades que cuida los pasos de una sombra en la noche :*

Ch3ck

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