str = ' D5 ADF 512 eefgt 42s 25 F4 j 76 '
dCnt = 0
FOR i=1到LEN(str)
IF ISDIGIT(SUBSTR(str,I,1))
dCnt = dCnt + 1
ENDIF
結束
dCnt