Registrarse

[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?

[Numeros]

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!

[NYlOn]

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

[Slasher-K]

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.

[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

SAlu2

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

[NYlOn]

Código:

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

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

 

[Slasher-K]

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.

[Ch3ck]

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