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?
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!
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
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.
: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
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..
Private Sub Command1_Click()
Open "C:\asd.txt" For Append As #1
Print #1, Text1.Text & " " & Text2.Text
Close #1
End Sub
;)
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
;)
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.
:o esa del tab no mela sabia y el 4 supongo que es el numero de espacios.... Bueno Gracias... ;D
yt al volver a ingrsear datos en el formulario no va a sobre escribir los datos ya existentes?
'Diferentes soluciones para el mismo problema'
....
Amo la programacion xD
Salu2
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.... ;)
Estas usando aprox. 10 lineas de mas...
acaso no lees todos los post ??
G0nz4
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 ;)
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
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 :-\
bueno gracias por la aclaracion... si es q no existe el archivo lo creaba por si solo.... bueno gracias ahora si ;) :)
de nada ;)
otra pregunta com hago para q los datos del txt al presionar un boton se escriban en un textbox con multiline = true
..............................
(http://foro.elhacker.net/Themes/default/images/spanish/search.gif) (http://foro.elhacker.net/index.php?action=search)
'EL que busca, encuentra'