现有多个表，有的是有记录，有的没有记录，在不打开表时如何删除哪些没有记录的表 - VFP论坛

编程论坛 → 数据库技术 → 『 VFP论坛』 → 现有多个表，有的是有记录，有的没有记录，在不打开表时如何删除哪些没有记录的表

标题：现有多个表，有的是有记录，有的没有记录，在不打开表时如何删除哪些没有记 ...

取消只看楼主

sylknb

等　级：贵宾
威　望：14
帖　子：1519
专家分：174
注　册：2006-6-3
结帖率：79.3%

楼主

已结贴√ 问题点数：20 回复次数：5

现有多个表，有的是有记录，有的没有记录，在不打开表时如何删除哪些没有记录的表

delete file 文件名，用于删除表的命令，它后面能否加条件？
现有多个表，有的是有记录，有的没有记录，当不开表时如何删除哪些没有记录的表，也就是说在delete file 文件名后面能否加条件？

搜索更多相关主题的帖子: 记录　如何　 file　

2015-12-11 13:21

sylknb

等　级：贵宾
威　望：14
帖　子：1519
专家分：174
注　册：2006-6-3

第 2 楼

得分:0

我的意思是把表删除，不是表中的记录。
程序运行中产生了没有记录的表，我想批量删除哪些没有记录的表，保留有记录的表，不是表中的记录。
用DELETE FILE 命令是从磁盘上删除哪些没有记录的文件。

[此贴子已经被作者于2015-12-11 14:19编辑过]

2015-12-11 14:16

sylknb

等　级：贵宾
威　望：14
帖　子：1519
专家分：174
注　册：2006-6-3

第 3 楼

得分:0

以下是引用wzxc在2015-12-11 14:44:53的发言：

用ADIR( ) 函数将dbf表文件信息存放到数组中，
gnDbfnumber = ADIR(gatables, '*.DBf')  && 创建一个数组
FOR nCount = 1 TO gnDbfnumber  && 遍历表
SELECT  0
use  &gatables(nCount,1)   &&宏替换用数组我没试过，如不行换一种方式。
  if reccount（）=0
   use
   DELETE FILE &gatables(nCount,1) &&宏替换用数组我没试过，如不行换一种方式。
  else
   use
  endif
ENDFOR
大体这个思路。如有语法错误，请自己调试（我要走了，没时间调试了)。

基本成功，如果删除同名的DBF同时删除同名的XLS哪要怎么搞?请指教!

2015-12-11 15:08

sylknb

等　级：贵宾
威　望：14
帖　子：1519
专家分：174
注　册：2006-6-3

第 4 楼

得分:0

以下是引用kinvanhon在2015-12-11 18:21:33的发言：

使用forceext()函数，什么作用怎么用看帮助吧

用了此forceext()函数介决了问题既可删除.dbf又可删除同名的.xls,谢谢!
用ADIR( ) 函数将dbf表文件信息存放到数组中，
gnDbfnumber = ADIR(gatables, '*.DBf')  && 创建一个数组
FOR nCount = 1 TO gnDbfnumber  && 遍历表
SELECT  0
use  &gatables(nCount,1)   &&宏替换用数组我没试过，如不行换一种方式。
  if reccount（）=0
   use
   DELETE FILE &gatables(nCount,1) &&删除.dbf
  DELETE file FORCEEXT('&gatables(nCount,1)','.xls')&&删除同名的.xls
else
   use
  endif
ENDFOR

[此贴子已经被作者于2015-12-11 21:16编辑过]

2015-12-11 21:13

sylknb

等　级：贵宾
威　望：14
帖　子：1519
专家分：174
注　册：2006-6-3

第 5 楼

得分:0

以下是引用taifu945在2015-12-16 07:34:48的发言：

我想知道标注红色命令的地方是否与你在一楼提出的问题初衷已经背离了？

没有背离初衷

2015-12-16 09:15

sylknb

等　级：贵宾
威　望：14
帖　子：1519
专家分：174
注　册：2006-6-3

第 6 楼