CLEAR x=ALLTRIM(thisform.text1.Value)y=0FOR i=1 TO LEN(x) IF NOT ISDIGIT(SUBSTR(x,i,1)) y=y+1 ENDIFENDFORthisform.text2.Value =ALLTRIM(STR(y))
