elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Trabajando con las ramas de git (tercera parte)


+  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 2 Visitantes están viendo este tema.
Páginas: [1] 2 3 Ir Abajo Respuesta Imprimir
Autor Tema: Ayuda con VB y un .TXT  (Leído 9,290 veces)
my_sistemas

Desconectado Desconectado

Mensajes: 65



Ver Perfil WWW
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 Desconectado

Mensajes: 110



Ver Perfil
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 Desconectado

Mensajes: 842


OOOOHHHHHH, TARAGÜIIII xDDDDDD


Ver Perfil WWW
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 Desconectado

Mensajes: 1.477


Ver Perfil
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 Desconectado

Mensajes: 842


OOOOHHHHHH, TARAGÜIIII xDDDDDD


Ver Perfil WWW
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 ;D

SAlu2 :P
En línea
my_sistemas

Desconectado Desconectado

Mensajes: 65



Ver Perfil WWW
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 Desconectado

Mensajes: 842


OOOOHHHHHH, TARAGÜIIII xDDDDDD


Ver Perfil WWW
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 Desconectado

Mensajes: 337


Elite


Ver Perfil
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 Desconectado

Mensajes: 1.477


Ver Perfil
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 Desconectado

Mensajes: 337


Elite


Ver Perfil
Re: Ayuda con VB y un .TXT
« Respuesta #9 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
En línea
Páginas: [1] 2 3 Ir Arriba Respuesta Imprimir 

Ir a:  
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines