文件夹下有多个相同结构dbf文件（有时几十个），想将他们合并到一个文件中，尝试了一段小程序但错误，请高手指教。




同时请教，
1.库结构相同，如何自动判断建立空白库
2.文件夹下若有子目录（比如6、7），如何穿透追加子文件夹下dbf文件

[此贴子已经被作者于2023-9-18 17:00编辑过]

加上括号即可

也可以试一试：

clear
close databases

create cursor  hb (xxmc c(40),xm c(20),xjh c(23),yycj c(6),mscj c(6))  &&&建立一个空白表

path=getdir()
lnfiles=adir(afile,path+'*.dbf')
* ? lnfiles[color=#808080]&& 显示数据库数目[/color]
for ncount = 1 to alen(afile,1)  && 遍历数据库
   表名 = afile(ncount,1)  && 显示数据库名
   ? 表名
   select hb 
   append from (表名) 
endfor
select hb
browse

[此贴子已经被作者于2023-9-18 20:29编辑过]

测试正确，谢谢

Close Databases All
Clear
Create Cursor  hb (xxmc c(40),xm c(20),xjh c(23),yycj c(6),mscj c(6))  &&&建立一个空白表
Adir(afile,Sys(5)+Sys(2003)+'\*.dbf')        && 获取当前目录下所有dbf文件
?Alen(afile,1)
For ncount = 1 To Alen(afile,1)  && 遍历数据库
    表名 = afile(ncount,1)  && 显示数据库名
    ? 表名
    Select hb
    Append From (表名)
Endfor
Select hb
Browse
Select xxmc,Count(*) As rs Group By 1 From hb
&&&path=getdir()，这个语句在运行起来必须要放在数据所在文件夹下，否则找不到Adir(afile,Sys(5)+Sys(2003)+'\*.dbf')  &&这个可以获取当前目录下所有dbf文件，
抛砖引玉请高手再提供更好思路帮助解决
1.库结构相同，如何自动判断建立空白库
2.文件夹下若有子目录（比如6、7），如何穿透追加子文件夹下dbf文件
3.? 表名后排序及导入合并后顺序是1、10、11,2、20、21,3、4、5，如何实现1、2、3、4……10、11这样排序。（我用的笨办法改成了01、02、03）

[此贴子已经被作者于2023-9-19 18:07编辑过]

1.用select * from 表名 就可以创建结构相同的空表。
2.用遍历方法就可获得当前文件夹及其以下文件夹里的文件。
3.将这些数据改为数值型，用升序排序后导入即可，最好有一些测试数据方便说明操作哈。

[此贴子已经被作者于2023-9-20 06:58编辑过]

排列不是1、2、3、4的顺序，而是10、1、2、3、的顺序了，求教

按01，02，03，10二位数取文件名

试一试，可否？

create cursor  hb (xxmc c(40),xm c(20),xjh c(23),yycj c(6),mscj c(6))  &&&建立一个空白表
adir(afile,sys(5)+sys(2003)+'\*.dbf')        && 获取当前目录下所有dbf文件
for ncount = 1 to alen(afile,1)  && 遍历数据库
   表名 = afile(ncount,1)  && 显示数据库名
   select hb 
   append from (表名) 
endfor
select *,val(xxmc) as px from hb order by px

谢谢！如何让获取文件名时就达到这样的效果，然后“?表名”这个地方可以看出这样排列

[此贴子已经被作者于2023-9-20 14:49编辑过]