Ayuda con VB y un .TXT

Foro de elhacker.net

Programación

Programación General

.NET (C#, VB.NET, ASP)

Programación Visual Basic (Moderadores: LeandroA, seba123neo)

Ayuda con VB y un .TXT

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

Páginas: [1] 2 3

Autor

Tema: Ayuda con VB y un .TXT (Leído 9,260 veces)

my_sistemas

Desconectado

Mensajes: 65

Ayuda con VB y un .TXT

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


	En línea

cuando uno es grande...
la calidad nunca la pierde...

Numeros

Desconectado

Mensajes: 110

Re: Ayuda con VB y un .TXT

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


« Última modificación: 24 Septiembre 2005, 08:18 am por Numeros »	En línea

NYlOn

Desconectado

Mensajes: 842

OOOOHHHHHH, TARAGÜIIII xDDDDDD

Re: Ayuda con VB y un .TXT

« Respuesta #2 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


	En línea

Slasher-K

Desconectado

Mensajes: 1.477

Re: Ayuda con VB y un .TXT

« Respuesta #3 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.


	En línea

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

NYlOn

Desconectado

Mensajes: 842

OOOOHHHHHH, TARAGÜIIII xDDDDDD

Re: Ayuda con VB y un .TXT

« Respuesta #4 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

SAlu2


	En línea

my_sistemas

Desconectado

Mensajes: 65

Re: Ayuda con VB y un .TXT

« Respuesta #5 en: 29 Septiembre 2005, 00:24 am »

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


	En línea

cuando uno es grande...
la calidad nunca la pierde...

NYlOn

Desconectado

Mensajes: 842

OOOOHHHHHH, TARAGÜIIII xDDDDDD

Re: Ayuda con VB y un .TXT

« Respuesta #6 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


	En línea

Ch3ck

Desconectado

Mensajes: 337

Elite

Re: Ayuda con VB y un .TXT

« Respuesta #7 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


	En línea

Slasher-K

Desconectado

Mensajes: 1.477

Re: Ayuda con VB y un .TXT

« Respuesta #8 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.


	En línea

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

Ch3ck

Desconectado

Mensajes: 337

Elite

Re: Ayuda con VB y un .TXT

« Respuesta #9 en: 29 Septiembre 2005, 00:57 am »

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


	En línea

Páginas: [1] 2 3

Ir a: