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

Life is soft - evento anual de software empresarial
 
Vista:

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

1
2
3
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.


1
2
3
4
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 claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil
Val: 253
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Concatenar variable con loop y de como resultado otra variable

Publicado por Cesar (125 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 claraNo me gusta: Está respuesta no esta clara o no es útil
0
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...

1
2
3
4
5
6
7
8
9
10
11
12
13
14
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...

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de gilman
Val: 521
Bronce
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Concatenar variable con loop y de como resultado otra variable

Publicado por gilman (282 intervenciones) el 09/01/2020 08:41:04
Prueba el siguiente código
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Richard
Val: 30
Ha disminuido su posición en 4 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
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
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar