VFP命令咨询

来源：百度知道 编辑：UC知道 时间：2024/05/09 06:02:54
某数据库中有“地址”字段，每条记录的形式为“地址（户口所在地）”，例如第一条记录为“上海市第一中学（上海市徐汇区）”，第二条记录为“上海市第三中学（上海市花园路5号）”，用什么命令能将后面括号里面的数据删除，即只留下地址，将户口所在地删除。
注意的是：只能删除地址后面括号里面的东西，如地址里有括号，则不能删除。例如“上海市第一中学高三（8）班（上海市徐汇区）”中“（8）”是不能删除的。
谢谢！！

close all
public m,n
use 地址库
repl all 地址 with alltrim(地址)
GO BOTTOM
M=RECNO()
FOR J=1 TO M

GO J

i=1
n=地址
x=0
y=0
do while not (x>0 and y=0)
x=y
y=AT('（',n,i)
if i=1 and y=0 then
x=len(alltrim(n))
endif

i=i+1
enddo
repl 地址 with subst(n,1,x-1) for recno()=j

NEXT

说明:可将中间一段自定义为函数