VFP中，有1300多个扩展名为DBF的数据库表，原来的每个表里的第一个字段名都含有“壹”字，我想把每个表里的该字段名的“壹”字一次性批量替换成“贰”字，如何才能做到？有没有这样的批量替换软件或自己设计的编程？我觉得是高难度啊！

如果用人工式操作，要打开表设计器，选中目标数据库表，一个一个地在其中修改字段名，很麻烦啊。求高手们帮解忧。

这种问题也问，郁闷啊

FOR i=1 TO ADIR(dbf_file,'d:\tmp\*.dbf') &&注意修改你的DBF文件所在路径
    USE (dbf_file[i,1]) ALIAS t1 IN 0 EXCLUSIVE
    FOR i2=1 TO FCOUNT('t1')
        field_name1=FIELD(i2,'t1') &&注意:把所有 "壹" 开头的字段都改成 "贰"开头
        IF LEFT(field_name1,2)=='壹'
            field_name2='贰'+ALLTRIM(SUBSTR(field_name1,3))
            ALTER TABLE t1 RENAME COLUMN (field_name1) to (field_name2)
        ENDIF
    ENDFOR
    USE IN t1
ENDFOR

4楼的思路基本是正确的，只是楼主要求每个表的第一个字段名把壹改为贰，并非每一个。

知道他的意思，所以特别加了注明让他注意。只要他明白了代码，他应懂得怎么改为第1个.
习惯了写代码“可伸可缩”

[ 本帖最后由 bccn0906 于 2013-12-8 15:53 编辑 ]

不过，楼主应该多锻炼锻炼如何把思路变成代码，不该上来就求代码。