在数据处理过程中，原始数据通常包含汉字，如“房贷3000元”，如何只保留3000？以下命令可以实现。欢迎补充更好的方法。

*********************************************************************

globalvars "所有变量"

foreachv of varlist $vars{

gen`v'_new=""

gen`v'_length=length(`v')

egenmax_`v'=max(`v'_length)

locali=1

while`i'<= max_`v'{

gen`v'_middle_`i'=substr(`v',`i',1)

replace`v'_new=`v'_new+`v'_middle_`i' if (`v'_middle_`i'=="0"|`v'_middle_`i'=="1" |`v'_middle_`i'=="2"|`v'_middle_`i'=="3" ///

                                         |`v'_middle_`i'=="4" |`v'_middle_`i'=="5"|`v'_middle_`i'=="6" |`v'_middle_`i'=="7" ///

                                                                                               |`v'_middle_`i'=="8"|`v'_middle_`i'=="9" |`v'_middle_`i'==".")                                                                                          

drop`v'_middle_`i'

dis`i'

locali=`i'+1

}

dropvars`v'_length max_`v'

destring `v'_new, replace

}

**************