Página 1 de 1
textbox
Publicado: Mié May 04, 2005 12:23 am
por gavafra
Hola,mi pregunta es la siguiente
Si tengo en un text un numero
text1.text=1234
y quiero desglosarlo asi
unidad=text2.text=4
decena=text3.text=3
centena=text4.text=2
millar=text5.text=1
Como puedo hacerlo ?
Ya me duele mi cabechita de tanto buscar y pensar y no le doy Ayuda plz !!!
Publicado: Mié May 04, 2005 1:47 am
por Radamanthys
Saludos:
Puedes hacerlo de dos formas. La primera es utilizando el comando SubString asi:
unidad=text1.text.SubString(1,1);
decena=text1.text.SubString(2,1);
centena=text1.text.SubString(3,1);
millar=text1.text.SubString(4,1);
o si no:
unidad=text1.text[0];
decena=text1.text[1];
centena=text1.text[2];
millar=text1.text[3];
Un saludo.
Publicado: Sab May 07, 2005 11:58 pm
por gonzalo_aizpun
También lo podés hacer así
For x = 1 to 4
Select Case x
Case 1
Millar = Mid(Text1.text, x, 1)
Case 2
Centena = Mid(Text1.text, x, 1)
Case 3
Decena = Mid(Text1.text, x, 1)
Case 4
Unidad = Mid(Text1.text, x, 1)
End Select
Next
¿que hace mid? Esta función extrae de una cadena de texto (text1.text), la cantidad de caracteres que quieras, a partir del caracter que quieras!
Es decir: Mid(Cadena, Desde, Cuantos)
Saludos,
Gonzalo