回 帖 发 新 帖 刷新版面

主题:宏替换的问题

朋友有一个表,里面有几十个字段,现在需要将每个字段里面含有"()"的记录抽出来,单独形成新的dbf,并按照字段名称命名。我给的代码是这样的:
N=Fcount()
For i=1 to N
Tm=Field(i)
IF VARTYPE(&Tm)$"CM" And "("$&Tm
   Copy To &Tm For "("$&Tm
ENDIF
Endfor
可是根本没有反应,请老师们看看问题在哪里?

回复列表 (共3个回复)

沙发

按楼主的意思,只要这个字段的某个记录中有括号就进行处理?不可能是字段名本身含有括号吧?

板凳

请楼主试试:
For i=1 to Fcount()
    Tm=Field(i)
    IF VARTYPE(&Tm)$"C"
        LOCATE for "("$&Tm
        IF FOUND()
           Copy To "c:\&Tm" For "("$&Tm
        ENDIF
    ENDIF 
NEXT 

3 楼


一语点破梦中人,我看了半天也没看出问题所在,老师就是高明

学习了

我来回复

您尚未登录,请登录后再回复。点此登录或注册