Visual Basic para Aplicaciones - extraer caracteres de una cadena y almacenarlos en una matriz

Life is soft - evento anual de software empresarial
   
Vista:

extraer caracteres de una cadena y almacenarlos en una matriz

Publicado por kaesarus (3 intervenciones) el 09/02/2016 16:54:58
hola buenas tardes, quiero extraer carcteres de una cadena y almacenarlos en una matriz ,me puede ayudar alguien?
El código que tengo hasta ahora es este,muchas gracias un saludo

1
2
3
4
5
6
7
8
9
ReDim Matriz(1 To NumeroDeRegistros)
For i = 1 To 5
For j = 1 To Len(Matriz(i))
ReDim letra(i - 1, j - 1) As String
 letra(i - 1, j - 1) = Mid(Matriz(i - 1), i, 1)
 MsgBox " letra:" & letra(i, j)
 rs.MoveNext
Next j
Next i
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

extraer caracteres de una cadena y almacenarlos en una matriz

Publicado por Antonio (5 intervenciones) el 18/02/2016 09:28:37
Hola Kaesarus,
soy nuevo en el foro y soy autodidacta no tengo un nivel de Visual Basic profesional pero suficiente para ayudarte, te adjunto a continuación el código que necesitas.
Es bastante sencillo e intuitivo.


1
2
3
4
5
6
7
8
9
10
Dim NumeroDeRegistros As Integer
Dim Matriz() As String
Dim cadenadetexto As String
 
cadenadetexto = "Hola Mundo"   ' Texto de ejemplo
NumeroDeRegistros = Len(cadenadetexto)
ReDim Matriz(NumeroDeRegistros - 1)
For i = 1 To NumeroDeRegistros
    Matriz(i - 1) = Mid(cadenadetexto, i, 1)
Next i


Mételo dentro de una función y listo!
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