Cadena para RUT

Patricio
16 de Abril del 2004
Necesito un rutina que me permita ingresar una cantidad de numeros y que me los estructure de la siguiente manera xx.xxx.xxx-x, que lo deje de esa manera aunque se ingrese con o sin puntos o guiones.
gracias

krizall
16 de Abril del 2004
si tu cadena es fija puedes hacer algo asi
dim resultado as string
for i = len(cadena)
if i=2 or i=5 then
resultado=resultado & "."
elseif i=7 then
resultado=resultado & "-"
else
resultado=mid(cadena,i,1)
end if
next if


Meifer
16 de Abril del 2004
En el menu proyecto componentes activa microsoft masked edit control 6.0 q t da una mascara de como debe ser guardada, le das click derecho, y en la propiedad mask escribre 99.999.999-9 y listo. solo va permitir al usuario escribir numeros