Question

visual foxpro 如何提取出字段中的数字和英文字母

比如“春天到来1234百花盛开abc???”，返回结果为123abc
更正一下：返回结果应该为1234abc

Answer 1

SET TALK OFF
CLEAR
x='春天到来1234百花盛开abc???'
y=''
z='0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ'
m=LEN(x)
FOR i=1 TO m
	IF SUBSTR(x,i,1) $ z
		y=y+SUBSTR(x,i,1)
	ENDIF
ENDFOR
? y
RETURN