 Autor
|
Tema: Ayuda, arrays i manejo de string (Leído 3,220 veces)
|
ninto33
 Desconectado
Mensajes: 23
|
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?
|
|
|
|
|
En línea
|
|
|
|
BlackZeroX
Wiki
Desconectado
Mensajes: 3.158
I'Love...!¡.
|
. 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!¡. .
|
|
|
|
|
En línea
|
The Dark Shadow is my passion.
|
|
|
BlackZeroX
Wiki
Desconectado
Mensajes: 3.158
I'Love...!¡.
|
. 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!¡. |
|
|
|
|
En línea
|
The Dark Shadow is my passion.
|
|
|
BlackZeroX
Wiki
Desconectado
Mensajes: 3.158
I'Love...!¡.
|
. 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!¡. . |
|
|
|
|
En línea
|
The Dark Shadow is my passion.
|
|
|
xmbeat92
Desconectado
Mensajes: 40
|
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
|
|
|
|
« Última modificación: 5 Febrero 2010, 02:44 am por xmbeat92 »
|
En línea
|
El hombre encuentra a Dios detrás de cada puerta que la ciencia logra abrir. -Einstein
|
|
|
|
| Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
ayuda con los arrays!!!
Programación C/C++
|
lourdes
|
7
|
4,407
|
7 Enero 2011, 18:04 pm
por Littlehorse
|
|
|
[Ayuda] Manejo de dlls
« 1 2 »
.NET (C#, VB.NET, ASP)
|
Edu
|
16
|
8,525
|
15 Febrero 2011, 20:51 pm
por Edu
|
|
|
|
[C] Array de String-arrays
Programación C/C++
|
EAX_
|
3
|
3,565
|
15 Junio 2013, 18:29 pm
por EAX_
|
|
|
|
otra forma de manejo de string en masm
ASM
|
Drewermerc
|
8
|
3,980
|
16 Septiembre 2014, 09:17 am
por Drewermerc
|
|
|
|
Duda ejercicio manejo de arrays
Programación C/C++
|
HIDE_95
|
0
|
1,714
|
13 Agosto 2015, 18:08 pm
por HIDE_95
|
 |
