Foro de elhacker.net

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?

.
comparalo con tu codigo:

 
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!¡.
.

.
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

 
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!¡.

.
Aqui te dejo otra forma

 
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!¡.
.

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: