Mensajes

alguna idea? es que ademas si uno de ellos es multilinea solo me coge la primera linea

aqui esta el codigo completo y solucionado:
lo unico es una duda como puedo hacer para que el archivo pueda cambiar de nombre?
me refiero a que pueda guardar varias fichas en distintos ficheros
para posteriormente abrirlos según interese.

Código (vb) [Seleccionar] Expandir



'Función Api Sleep Para generar una espera o retardo de tiempo
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub CargarText(Archivo As String)
 Dim Todo As String, Partes() As String, Fichero As Integer
 ' Cargamos todo el contenido del Archivo indicado
Fichero = FreeFile
 Open Archivo For Input As #Fichero
    Line Input #Fichero, Todo
 Close #Fichero
 ' Dividimos en Partes los datos cargados
Partes = Split(Todo, "<<")
 ' Colocamos en cada Text sus datos, tantos Text como Partes
titulo.Text = Partes(0)
Descripcion.Text = Partes(1)
nombre.Text = Partes(2)
mail.Text = Partes(3)
tel1.Text = Partes(4)
tel2.Text = Partes(5)
cuando.Text = Partes(6)
cuando1.Text = Partes(7)
duracion.Text = Partes(8)

End Sub
Private Sub abrir_Click()
dim Archivo as string
Archivo="c:/Archivo.txt"
CargarText(Archivo)
End Sub

Private Sub Command1_Click()
WebBrowser1.Navigate2 Text1.Text
End Sub

Private Sub Command2_Click()

WebBrowser1.SetFocus
'SendKeys ("hola")
End Sub



Private Sub Form_Load()
WebBrowser1.Navigate2 ("http://www.google.es")

End Sub

Private Sub Text2_Change()

End Sub


Private Sub guardar_Click()
Dim foo As Integer
   
   foo = FreeFile
   Open "C:\Archivo.txt" For Output As #foo
       Print #foo, titulo.Text; "<<"; Descripcion.Text; "<<"; nombre.Text; "<<"; mail.Text; "<<"; tel1.Text; "<<"; tel2.Text; "<<"; cuando.Text; "<<"; cuando1.Text; "<<"; duracion.Text
   Close #foo

End Sub



no te entiendo.... no llevo mucho en esto de visual si me puedes decir mas concreto...
graciass por la ayuda

ah vale entiendo...
deberia llamarlo desde el boton poniendole cargartext()
pero estoy muy obtuso y me da ambiguedad...
como deberia llamarlo?

[Raul338 Edit:]

ya lo he revisado y no esta llamada dos veces de hecho esta en un boton y no le llamo desde ningun otro sitio.....
pero no entiendo el por que da fallo....

Raul338 Edit: Te edite el codigo, agregaba poco y nada (2 eventos vacios y un navigate)

la linea que resalta cuando da el error es
Private Sub CargarText(Archivo As String)

sorry no sabia que code se usaba para postear

Hola buenos dias, estoy haciendo un form en el que guardo varios textbox en un fichero y tengo un problema a la hora de cargarlos
les paso el codigo por si pueden ver el fallo

para cargar desde el fichero:

Código (vb) [Seleccionar] Expandir


Private Sub CargarText(Archivo As String)
 Dim Todo As String, Partes() As String, Fichero As Integer
 ' Cargamos todo el contenido del Archivo indicado
Fichero = FreeFile
 Open Archivo For Input As #Fichero
    Line Input #Fichero, Todo
 Close #Fichero
 ' Dividimos en Partes los datos cargados
Partes = Split(Todo, "<<")
 ' Colocamos en cada Text sus datos, tantos Text como Partes
titulo.Text = Partes(0)
Descripcion.Text = Partes(1)
nombre.Text = Partes(2)
mail.Text = Partes(3)
tel1.Text = Partes(4)
tel2.Text = Partes(5)
cuando.Text = Partes(6)
cuando1.Text = Partes(7)
duracion.Text = Partes(8)

End Sub



PARA GUARDAR EN EL FICHERO:

Código (vb) [Seleccionar] Expandir


Private Sub guardar_Click()
Dim foo As Integer
   
   foo = FreeFile
   Open "C:\Archivo.txt" For Output As #foo
       Print #foo, titulo.Text; "<<"; Descripcion.Text; "<<"; nombre.Text; "<<"; mail.Text; "<<"; tel1.Text; "<<"; tel2.Text; "<<"; cuando.Text; "<<"; cuando1.Text; "<<"; duracion.Text
   Close #foo

End Sub

Espero me puedan ayudar por que al compilar dice:

El miembro ya existe es un modulo de objeto del que proviene este modulo de objeto

ya podeis cerrar el hilo gracias
al final he encontrado la solución por la red a base de 2 semanas de busqueda

como dicen en mi pueblo como muestra un boton he encontrado un programa que hace esactamente lo que yo quiero
en la web tpv.net abajo del todo pone asistencia al pincharle te baja un programa que hace lo que yo quiero hacer.
si alguien se toma la molestia de hecharme un cable se lo agradeceria

con el tightvnc se podria?
he provado ya varios pero no doy con la convinacion correcta
alguien me hecha un cable?