从上传的四条数据来看,还是有规律的。

坚守VFP最后的阵地
程序代码:close databases
create cursor dz (处理前 c(120),处理后 c(140))
append from 测试 fields 处理前
use 全国 in 0 alias qg
select qg
scan
sf=alltrim(省份)
sj=alltrim(市级)
select dz
cstr=""
scan
do case
case occurs(sj,处理前)=2
n=atc(sj,处理前,2)
cstr=sf+sj+substr(处理前,n+len(sj))
case occurs(sj,处理前)=1
n=atc(sj,处理前)
cstr=sf+sj+substr(处理前,n+len(sj))
endcase
if sj$处理前
replace 处理后 with cstr
endif
endscan
endscan
select dz
browse