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


 


Tema destacado: [AIO elhacker.NET 2015] Compilación herramientas análisis y desinfección malware


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | |-+  Escribir un .txt con vb
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Escribir un .txt con vb  (Leído 5,631 veces)
Xrage

Desconectado Desconectado

Mensajes: 8


Ver Perfil
Escribir un .txt con vb
« en: 9 Junio 2005, 07:54 »

tengo el siguien problema: lo que quiero hacer es que al hacer click sobre un boton se guarde en un archivo .txt los datos de unas cajas de texto, el problema es que siempre me lo guarda sobre la misma linea y lo sobre escribe.... Como puedo hacer para decir que cada ves que aprete el boton valla a una linea distinta????
 
Les copio el codigo :) desde ya gracias

Private Sub Command2_Click()
Dim canalLibre As Integer
'Obtenemos un canal libre que nos dará
'el sistema oparativo para poder operar
canalLibre = FreeFile
'Abrimos el fichero en el canal dado
Open "C:\fichero.txt" For Output As CDbl(TextAlumnos.Text)
'Escribimos el contenido del TextBox al fichero
Print #canalLibre, TextNombre.Text & "  " & TextLegajo.Text & "  "; TextTotal.Text
Close #canalLibre
TextCanallibre.Text = canalLibre
End Sub


En línea

programatrix


Desconectado Desconectado

Mensajes: 3.284


Ver Perfil WWW
Re: Escribir un .txt con vb
« Respuesta #1 en: 9 Junio 2005, 15:48 »

Tiene facil solución, pon varios print
ej:
#print canalLibre, dato1
#print canalLibre, dato2
#print canalLibre, dato3
Creo que asi te guarda cada uno en una liniea, creo.



En línea

Xrage

Desconectado Desconectado

Mensajes: 8


Ver Perfil
Re: Escribir un .txt con vb
« Respuesta #2 en: 9 Junio 2005, 19:19 »

Tiene facil solución, pon varios print
ej:
#print canalLibre, dato1
#print canalLibre, dato2
#print canalLibre, dato3
Creo que asi te guarda cada uno en una liniea, creo.



Nop asi no se puede :S, la idea es que por ejemplo.. cargo los datos de 1 alumno en una caja de texto entonces con un boton le pongo que lo garde en el .txt, despues apretar otro boton para decirle que escriba en la linea de abajo y asi cuando vuelva a apretar el boton para guardar, lo escriba en el renglon de abajo :)

a ver si ahi se entiende :P
En línea

Slasher-K


Desconectado Desconectado

Mensajes: 1.476


Ver Perfil
Re: Escribir un .txt con vb
« Respuesta #3 en: 10 Junio 2005, 00:31 »

Abriendo el archivo en modo Append siempre va a escribir al final del archivo :).


Código:
Private Sub cmdSave_Click()
          Dim hFile%

  hFile = FreeFile

  Open "C:\MyFile.txt" For Append As #hFile
  Print #hFile, "Mis datos"
  Close #hFile
 
End Sub

Saludos.
En línea



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

Desconectado Desconectado

Mensajes: 8


Ver Perfil
Re: Escribir un .txt con vb
« Respuesta #4 en: 10 Junio 2005, 06:25 »

Abriendo el archivo en modo Append siempre va a escribir al final del archivo :).


Código:
Private Sub cmdSave_Click()
          Dim hFile%

  hFile = FreeFile

  Open "C:\MyFile.txt" For Append As #hFile
  Print #hFile, "Mis datos"
  Close #hFile
 
End Sub

Saludos.

Gracias... pero ahora tengo otro problema :S... mira el codigo fuente del boton "guardar" me quedo asi:

Private Sub Comguardar_Click()
Dim canalLibre As Integer
'Obtenemos un canal libre que nos dará
'el sistema oparativo para poder operar
canalLibre = FreeFile
'Abrimos el fichero en el canal dado
Open "C:\fichero.txt" For Append As CDbl(TextAlumnos.Text)
'Escribimos el contenido del TextBox al fichero
Print #canalLibre, TextNombre.Text & "  " & TextLegajo.Text & "  "; TextTotal.Text
Close #canalLibre
End Sub

Pero cuando apreto un boton que sirve para pasar al prximo alumno y despues quiero apretar el boton "guardar" me dice: error 52, bud file name or number. y aparece en amarillo el renglon que dice: Print #canalLibre, TextNombre.Text & "  " & TextLegajo.Text & "

aca les paso el codigo del boton "pasar al proximo alumno"

Option1.Value = False
Option2.Value = False
Option3.Value = False
Option4.Value = False
Option5.Value = False
Option6.Value = False
Option7.Value = False
Option8.Value = False
Option9.Value = False
TextTotal.Text = 0
Text1.Text = 0
Text2.Text = 0
Text3.Text = 0
Text4.Text = 0
Text5.Text = 0
Text6.Text = 0
Text7.Text = 0
Text8.Text = 0
Text9.Text = 0
TextNombre.Text = " "
TextLegajo.Text = " "
NGrupo.Text = 1
TextAlumnos.Text = CDbl(TextAlumnos.Text) + 1


Bueno, si alguien puede decirme porque es eso les agradeceria :)
En línea

Xrage

Desconectado Desconectado

Mensajes: 8


Ver Perfil
Re: Escribir un .txt con vb
« Respuesta #5 en: 11 Junio 2005, 06:06 »

ahhhh ok no sabia, la proxima lo escribo como me decis

que alguien me responda :(
En línea

sch3m4
Colaborador
***
Desconectado Desconectado

Mensajes: 1.606

Nihil est in intelectu quod prius not fuerit insen


Ver Perfil WWW
Re: Escribir un .txt con vb
« Respuesta #6 en: 11 Junio 2005, 11:20 »

Es porque no hay coherencia entre el id del fichero cuando lo abres, y cuando trabajas con él:

Código:
Open "C:\fichero.txt" For Append As CDbl(TextAlumnos.Text)
'Escribimos el contenido del TextBox al fichero
Print #canalLibre, TextNombre.Text & "  " & TextLegajo.Text & "  "; TextTotal.Text
Close #canalLibre

Prueba esto:

Código:
Open "C:\fichero.txt" For Append As #1
'Escribimos el contenido del TextBox al fichero
Print #1, TextNombre.Text & "  " & TextLegajo.Text & "  " & TextTotal.Text
Close #1
En línea

SafetyBits

"Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua.(..
p0w3r f1y

Desconectado Desconectado

Mensajes: 33


Ver Perfil
Re: Escribir un .txt con vb
« Respuesta #7 en: 11 Junio 2005, 13:24 »

Creo que yo usaba eso y funciona perfectamente.... Ahora mismo no me acuerdo....
Código:
Print #1, Text1.Text & vbcrlf & ....
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Imposible escribir en el
Programación Visual Basic
CAR3S? 2 886 Último mensaje 24 Diciembre 2010, 06:54
por BlackZeroX (Astaroth)
Escribir en /dev/mem
Programación C/C++
>FedeX< 6 1,711 Último mensaje 10 Febrero 2011, 20:43
por >FedeX<
Escribir html???
Desarrollo Web
prometheus48 5 1,264 Último mensaje 12 Octubre 2011, 04:29
por SoloNuevas
Escribir tarjetas magneticas
Electrónica
mardek 3 11,663 Último mensaje 8 Octubre 2012, 18:44
por radical_hack
Escribir txt al final en c++
Programación C/C++
ZedGe 7 5,127 Último mensaje 8 Diciembre 2012, 20:16
por zikotik
Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines