*--VFP6.0代码 USE 表 SCAN =ALINES(AA,STRTRAN(ALLTRIM(地址),[号楼],CHR(13)+CHR(10))) REPLACE A WITH AA(1) ENDSCAN
*---VFP9.0代码 USE 表 REPLACE ALL A WITH GETWORDNUM(ALLTRIM(地址),1,[号楼])