'clase conexion
Public ptoA As ClassPlaneta
Public ptoB As ClassPlaneta
Public Function informacion() As String
Dim texto As String
texto = Str$(ptoA) & "\n"
texto &= Str$(orgA) & "\n"
Return texto
End
-------------------------------
En el programa principal
....
For a = 0 To array_conexion.count - 1
lineas &="conexion:" & str$(a) & "\n"
lineas &= array_conexion[a].informacion()
Next
File.Save(destino, lineas)
......
Public ptoA As ClassPlaneta
Public ptoB As ClassPlaneta
Public Function informacion() As String
Dim texto As String
texto = Str$(ptoA) & "\n"
texto &= Str$(orgA) & "\n"
Return texto
End
-------------------------------
En el programa principal
....
For a = 0 To array_conexion.count - 1
lineas &="conexion:" & str$(a) & "\n"
lineas &= array_conexion[a].informacion()
Next
File.Save(destino, lineas)
......
Si quiero ver el archivo de texto que se ha creado es asi:
....
conexion:1
(Classplaneta 0x99a498)
(Classplaneta 0x99a398)
conexion:2
(Classplaneta 0x99a398)
(Classplaneta 0x99a458)
...
conexion:1
(Classplaneta 0x99a498)
(Classplaneta 0x99a398)
conexion:2
(Classplaneta 0x99a398)
(Classplaneta 0x99a458)
...
Me pregunta es ¿como convierto la cadena de caracteres (Classplaneta 0x99a398), en un objeto tipo ClassPlaneta...?
Nota:
Hay funciones que convierten numeros a cadenas de caracteres (str$() ), se guardan estos en un fichero, y luego se reconviernte esa cadena en el numero (val() )
Me haria falta saber cual es la funcion que hace esto pero de objetos a cadenas y luego de cadenas a objetos.