for x = 1 to len( text1.text )
if mid( text1.text , x , 1 ) = "0" or mid( text1.text , x , 1 ) = "1" or mid( text1.text , x , 1 ) = "2" or mid( text1.text , x , 1 ) = "3" or mid( text1.text , x , 1 ) = "4" or mid( text1.text , x , 1 ) = "5" or mid( text1.text , x , 1 ) = "6" or mid( text1.text , x , 1 ) = "7" or mid( text1.text , x , 1 ) = "8" or mid( text1.text , x , 1 ) = "9"
else
Text1.text = Replace(Text1.text, mid( text1.text , x , 1), Chr(0))
end if
next x
oppure fai un replace di tutti i caratteri diversi dai numeri.
|