Ayuda, arrays i manejo de string

[ninto33]

Bueno para empezar cabe destacar que soy nuevo en esto llevo 1 semana nada mas , recien 1 dia atras me puse a programar i buen a ka les muestro mi problema:

Dim pedo() As String
Dim cantidad As Integer
Dim vector() As String
Dim i As Integer
Dim i2 As Integer
cantidad = Len(Text1.Text)
For i = 1 To cantidad
vector(i) = Mid(Text1.Text, i, 1)
Next
For i2 = 1 To cantidad
pedo(i) = Asc(vector(i))
Text2.Text = Text2.Text + pedo(i) + " "
Next
MsgBox "Se ha completado el pasaje"
End Sub


Corrijanmen.. quiero convertir todo un texto a ascii.
por ejemplo:

aaa = 97 97 97 entendeis?

[BlackZeroX]

.
comparalo con tu codigo:

Código (vb) [Seleccionar] Expandir



Dim cantidad    As Integer
Dim vector()    As String
Dim i           As Integer
Const datos     As String = "hola"
Dim msg         As String

    cantidad = Len(datos)
    ReDim vector(1 To cantidad)
    For i = 1 To cantidad
        vector(i) = Mid(datos, i, 1)
    Next
    For i = 1 To cantidad
        msg = msg & Asc(vector(i)) & " "
    Next
     
    MsgBox msg



Nota: No uses + para concatenar ojo para concatenar usa & y deja el + para sumas que de hecho si pones + no te concatena tipos variant ojo con eso.

Temibles Linas!¡.
.

[BlackZeroX]

.
es mas aqui lo tienes mas optimisado ojo no me sirve el signo de pesos si no lo ponia en el mid ¬¬° pero como no me sirve no me regañen xP

Código (vb) [Seleccionar] Expandir



Dim i           As Integer
Const datos     As String = "aaa"
Dim msg         As String
    For i = 1 To Len(datos)
        msg = msg & Asc(Mid(datos, i, 1)) & " "
    Next
    MsgBox msg



Temibles Lunas!¡.

[BlackZeroX]

.
Aqui te dejo otra forma

Código (vb) [Seleccionar] Expandir



Dim i           As long
Const datos     As String = "aaa"
Dim msg()       As String
   ReDim msg(Len(datos) - 1)
   For i = 0 To Len(datos) - 1
       msg(i) = cstr(Asc(Mid(datos, i + 1, 1)))
   Next
   MsgBox Join(msg, " ")



P.D.: espero te aya Servidor de ayuda los 3

Temibles Lunas!¡.
.

[xmbeat92]

yo te hubiera sugerido usar el CopyMemory ya que es mas rapido que el bucle, ademas en mi opinion no hay que hacer doble bucle, pero como dices que eres principiante te hice esto:

Código [Seleccionar] Expandir



Private Sub Command1_Click()
Dim Vector() As String

Dim[I As Integer
Dim Mfinal As String
ReDim Vector(Len(Text1.Text))

For I = 1 To Len(Text1.Text)
   Vector(I) = Mid$(Text1.Text, I, 1)
   Mfinal = Mfinal & Asc(Vector(I)) & " "
Next
MsgBox "Finalizado"
Text2.Text = Mfinal
End Sub