| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 792 人关注过本帖
标题:请教:判断文件夹下多个dbf文件并自动追加
只看楼主 加入收藏
schtg
Rank: 12Rank: 12Rank: 12
来 自:Usa
等 级:贵宾
威 望:67
帖 子:1740
专家分:3329
注 册:2012-2-29
收藏
得分:0 
回复 10楼 chychychy
将获取的文件名称,插入数据表 → 按此方法排序 → 按照排序后的记录,依次获取文件名即可。不知是否是这个意思?
2023-09-20 19:25
chychychy
Rank: 2
等 级:论坛游民
帖 子:295
专家分:98
注 册:2015-4-18
收藏
得分:0 
回复 11楼 schtg
差不多吧。应该是我表达的不够清楚。我的意思是dbf文件的名有顺序1、2、3……10、11……20。想让合并的数据库记录也是按照这个顺序依次导入。
但目前出现
?表名是10、1、20、2、3、4、5……略号的顺序。
导入文件的顺序也是这样10、1、20、2、3、4、5……顺序
For ncount = 1 To Alen(afile,1)  && 遍历数据库
    表名 = afile(ncount,1) && 显示数据库名

这个地方如何实现1、2、3……10、11……20的顺序,没想出来,求教

[此贴子已经被作者于2023-9-21 10:53编辑过]

2023-09-21 09:50
schtg
Rank: 12Rank: 12Rank: 12
来 自:Usa
等 级:贵宾
威 望:67
帖 子:1740
专家分:3329
注 册:2012-2-29
收藏
得分:10 
回复 12楼 chychychy
是这个意思吗?
图片附件: 游客没有浏览图片的权限,请 登录注册

程序代码:
create cursor  wj (wjm c(40),px n(6,0))  &&&建立一个空白表
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)
   insert into wj(wjm,px) values(alltrim(表名),val(表名))
endfor
select * from wj order by px into cursor wjb
select wjb
go top
scan
   文件名 = alltrim(wjm) && 显示数据库名
   ? 文件名
   select hb 
   append from (文件名) 
endscan
select hb
browse


[此贴子已经被作者于2023-9-21 10:48编辑过]

2023-09-21 10:46
chychychy
Rank: 2
等 级:论坛游民
帖 子:295
专家分:98
注 册:2015-4-18
收藏
得分:0 
回复 13楼 schtg
完全符合要求
2023-09-21 10:54
dbf永动机
Rank: 2
等 级:论坛游民
威 望:1
帖 子:77
专家分:21
注 册:2022-8-30
收藏
得分:0 
回复 13楼 schtg
建立空表的代码还能优化吗?,因为这个代码只适用这个结构的表,换个表就要改代码,比如获取第一个表copy stru 到一个新表,或者直接手动复制一个表改成总表,代码直接 use 总表,zap,然后再继续后面的代码。
2023-09-27 09:21
abcde007
Rank: 1
等 级:新手上路
帖 子:26
专家分:3
注 册:2023-9-26
收藏
得分:0 
回复 7楼 chychychy
以下是引用chychychy在2023-9-20 11:23:06的发言:







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



程序在比较大小时,将10与1A进行比较了。你把数字放在最后试试看。

[此贴子已经被作者于2023-9-27 10:15编辑过]

2023-09-27 10:09
abcde007
Rank: 1
等 级:新手上路
帖 子:26
专家分:3
注 册:2023-9-26
收藏
得分:0 
以下是引用tjdeming在2023-9-20 11:34:57的发言:

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



这种方法也行
2023-09-27 10:18
快速回复:请教:判断文件夹下多个dbf文件并自动追加
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.019888 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved