Question

vf 在文本框text1中输入一个字符串,统计其中数字字符的个数,结果存入文本框text2

Answer 1

一句话就够了
thisform.text2.value = Transform(Len(Chrtran(thisform.text1.Value,Chrtran(thisform.text1.Value,'0123456789',''),'')))

Answer 2

k=0
x=allt(thisform.text1.value)
l=len(x)
for i=1 to l
a=subs(x,i,1)
if type(a)="N"
k=k+1
endif
next
thisform.text2.value=str(k)