Visual Basic - Concatenar variable con loop y de como resultado otra variable

Life is soft - evento anual de software empresarial

Concatenar variable con loop y de como resultado otra variable

Publicado por rezvp (2 intervenciones) el 09/01/2020 00:43:47

Aunque se me hizo dificil escribir el título, espero poder expresarme correctamente para su posterior apoyo.

Lo que quiero realizar es lo siguiente:

Tengo varias variables que son parecidas en su nombre, únicamente se diferencian de su último caracter.

variable2...variable3........variable10

variable2="algo"

variable3="algodon"

variable10="algondondon"

Sin embargo, posteriormente necesito llamar a estas variables y el texto que contienen definidas para mostrarlas dentro de la estructura de un loop. He intentado de la siguiente forma, pero creo que lo estoy haciendo mal.

for i=2 to 10

resultado= "variable" & i

msgbox resultado

next i

Lo que necesito es que el msgbox, por ejemplo al hacer loop en variable2, De como resultado el mensaje de "algo"; sin embargo, únicamente me muestra el nro "2" que corresponde a la i del loop.

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Pos: 7

Val: 250

Concatenar variable con loop y de como resultado otra variable

Publicado por Cesar (123 intervenciones) el 09/01/2020 01:05:01

Hola.

Creo que lo que deseas hacer, es mas facil con un arreglo.

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar

Concatenar variable con loop y de como resultado otra variable

Publicado por rezvp (2 intervenciones) el 09/01/2020 01:39:06

Ya casi lo consigo... Pero no tengo ni idea de cómo se llama lo que estoy haciendo...

Sub prueba()

Dim variable(2 to 4)

variable(2) = "algo"

variable(3) = "algodon"

variable(4) = "algodon don"

For i = 2 To 4

resultado = variable(i)

MsgBox resultado

Next i

End Sub

Sin embargo, ahora veo que necesito algo más...no delimitar de 2 a 4, es decir no fijar números. desearía que fuera algo más parecido a esto...

Sub prueba()

primero="2"

ultimo="4"

Dim variable(primero to ultimo)

variable(2) = "algo"

variable(3) = "algodon"

variable(4) = "algodon don"

For i =primero To  ultimo

resultado = variable(i)

MsgBox resultado

Next i

End Sub

Valora esta respuesta

Comentar

Pos: 4

Val: 594

Concatenar variable con loop y de como resultado otra variable

Publicado por gilman (359 intervenciones) el 09/01/2020 08:41:04

Prueba el siguiente código

Sub prueba()

Dim variable() As String

Dim primero As Long, ultimo As Long

primero = 2

ultimo = 4

ReDim variable(primero To ultimo)

variable(2) = "algo"

variable(3) = "algodon"

variable(4) = "algodon don"

For i = primero To ultimo

resultado = variable(i)

MsgBox resultado

Next i

End Sub

Valora esta respuesta

Comentar

Pos: 77

Val: 20

Concatenar variable con loop y de como resultado otra variable

Publicado por Richard (6 intervenciones) el 09/01/2020 20:21:18

Hola, aca algo que tambien puede servir

Sub Prueba()

'Esta linea es la que cambie o aumente

Const primero As Integer = 2

Const ultimo As Integer = 4

Dim variable(primero To ultimo)

variable(2) = "algo"

variable(3) = "algodon"

variable(4) = "algodon don"

For i = primero To ultimo

    resultado = variable(i)

    MsgBox resultado

Next i

End Sub

Valora esta respuesta

Comentar

terminar llamado de una funcion dll por tiempo de espera

Modificar ruta de la base de datos