Mensajes

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

que alguien me responda

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

Código [Seleccionar] Expandir


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

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

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

Hola: Bueno antes que todo me presento soy nuevo programando y estoy aprendiendo en vb6, y bueno queria hacer un programita pero tengo algunas dudas:

1- En una parte tengo que sumar asique puse 11 botones diferentes para sumar, que son los numeros del 1 al 10 y una tecla que sirve para sumarle al numero 0.5, entonces si quiero el numero "27.5" apreto 1 ves el 10, 1 el 7 y el 0.5...
hasta ahi todo bien el problema viene cuando pongo por ejemplo 2.5 y le sumo 2 mas, el resultado me da "4" en ves de dar "4.5" y no se como hacer para solucionar eso, bueno esa es mi primera gran duda

Bueno lo dejo ahi, y cuando me respondan esa preguntita les escribo las otras

Desde ya, gracias


Agrego el codigo:

Private Sub Command2_Click()
Text3.Text = Val(Text3.Text) + 1
End Sub

Private Sub Command3_Click()
Text3.Text = Val(Text3.Text) + 2
End Sub

Private Sub Command4_Click()
Text3.Text = Val(Text3.Text) + 3
End Sub

Private Sub Command5_Click()
Text3.Text = Val(Text3.Text) + 4
End Sub

Private Sub Command6_Click()
Text3.Text = Val(Text3.Text) + 5
End Sub

Private Sub Command7_Click()
Text3.Text = Val(Text3.Text) + 6
End Sub

Private Sub Command8_Click()
Text3.Text = Val(Text3.Text) + 7
End Sub

Private Sub Command9_Click()
Text3.Text = Val(Text3.Text) + 8
End Sub

Private Sub Command18_Click()
Text3.Text = Val(Text3.Text) + 9
End Sub

Private Sub Command1_Click()
Text3.Text = Val(Text3.Text) + 10
End Sub

Private Sub Command10_Click()
Text3.Text = Val(Text3.Text) + 0.5
End Sub

Private Sub Command11_Click()
Beep
End
End Sub