textbox

[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 !!!

[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.

[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