Cargar Nombre de Variable desde archivo .ini o bd y concatenar

[aedEric]

  hola buenas tardes a todos los forista tengo una duda y quisiera saber si esposible talvez sea algo sencillo pero no he sido capaz de resolverlo  mi duda es la siguiente

Desde una archivo .ini o una bd quiero cargar el nombre de una variable para despues concatenarlo con un texto ejemplo

Código: [Seleccionar]

Dim sNiño As String
Dim sRon As String
Dim sParrafo1 As String
Dim sParrafo2 As String
Dim sParrafo3 As String
Dim sParrafo4 As String
Dim sParrafo5 As String

Private Sub Command1_Click()
MsgBox sParrafo3 & sParrafo1 & " " & sParrafo4 & sParrafo2 & " " & sParrafo5 ' Los papas del niño fueron Don José y María <========  Resultado esperado
End Sub

Private Sub Form_Load()
sNiño = "a"
sRon = "ron"
End Sub
Private Sub CargarTexto()
Open "C:\Prueba.ini" For Input As #1
Line Input #1, sParrafo1  'sNiño <======== Nombre de la Variable
Line Input #1, sParrafo2  'sRon   <======== Nombre de la Variable
Line Input #1, sParrafo3  'Los papas del niñ
Line Input #1, sParrafo4  ' fue
Line Input #1, sParrafo5  ' Don José y María
Close #1

End Sub

lo del msgbox es el resultado que espero
pero al cargarlo desde el archivo ini o bd el nombre de la variable me lo toma como string 

normalmente lo hago asi

Código: [Seleccionar]

MsgBox sParrafo3 & sNiño & " " & sParrafo4 & sRon & " " & sParrafo5  ' Los papas del niño fueron Don José y María

pero mi idea es cargar el nombre de la variable desde un .ini o una bd esto para poder cambiar el texto en tiempo de ejecución de antemano agradecere cualquier opinion o sujerencia
gracias

[Waldo]

No se si te entendi bien... vos queres levantar el nombre de una variable desde el archivo y asignarle un valor?

No se si es lo mejor, pero se me ocurre que tal vez usando la funcion CallByName (sirve para setear propiedades y ejecutar metodos de un objeto) tal vez si te diseñas una clase con propiedades, donde cada propiedad sea una de tus variables,  podrías segun el nombre de la variable, llamar a esa propiedad.

O mas facil, hace un CASE con todas las posibles variables, lees el nombre, lo comparas con el case y listo 

[aedEric]

  Waldo muchisimas gracias por contestar te te agradezco y comento asi es deseo

No se si te entendi bien... vos queres levantar el nombre de una variable desde el archivo y asignarle un valor?

lo de select case es una muy buena opcion el detalle que serian al rededor de 30 variables por eso trato de buscar otra solución con referente a lo de una clase  me gusta la idea no se si me pudieras orientar un poco mas te lo agradeceria ya que mis conocimientos en vb6 son basicos y nunca he hecho una clase 

gracias a todos por leer mi post y apoyarme con sus opiniones y sugerencias gracias

saludos desde México

[aedEric]

  waldo te agradezco de nuevo infinitamente  tu comentario y sugerencia me servio mucho

CallByName (sirve para setear propiedades y ejecutar metodos de un objeto)

te comento la defini la variable como publica y la llame asi

Código: [Seleccionar]

Public sNiño As String

Código: [Seleccionar]


CallByName(Me, sParrafo1, VbGet)
y funciono asi  no se si sea la manera más correcta pero funciono  gracias
y saludos desde México

[Waldo]

Que bueno que te sirvio; no se me habia ocurrido usar como objeto el form y definir las variables publicas. No se si sera un error de tipeo, pero creo que tenes que usar vbLet, no vbGet.

No se si es muy prolijo y practico, pero bueno, eso fijate vos

[aedEric]

Hola Waldo gracias por tus sugerencias te comento

he provado tu sugerencia

vbLet, no vbGet

pero asi me marco error