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:
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