00后怎么看待90后:用VFP对很多的文件进行数据处理

来源:百度文库 编辑:高考问答 时间:2024/03/29 16:07:27
在我d:\有非常多个结构相同的dbf文件,而且他们的结构都相同,就a,b两列,但是文件名字都没有任何规律,比如今天数据.dbf,明天预计.dbf,昨天现实.dbf,我想求出每个dbf中每列数字的和,具体就是求出每个dbf的∑a,∑b,我需要用vfp在一张表上显示如下结果:
文件名∑A ∑B
文件1 ∑a ∑b
文件2 ∑a ∑b
文件3 ∑a ∑b
............
文件n ∑a ∑b
想把这么多个文件的计算结果在一张纸上表现出来,怎么做呢?要是编制程序一个一个的执行也要执行n次,听说需要宏命令,能详细的给讲一下么?重谢!
请具体解释一下,cFilePath,nDBFNumber,Hfn100都是什么意思,我的问题更详细了,在什么路径下,什么文件,都比较具体了,请解释一下里边的难点,不要让我太费劲的替换里边的变量!你编制的程序有问题!!!

clos dbf &&关闭工作表
cFilePath=getfile('dbf') &&选择表路径
if empt(cFilePath) &&如果为空即没有选择
return &&返回
endi
cPath=left(cFilePath,rat('\',cFilePath)) &&得出存放库文件的路径
nDBFNumber=adir(cDBF,cPath+'*.dbf') &&存入数组cDBF
Hfn100=fcrea('tmp.txt') &&建TMP.TXT文件并取得文件柄
fput(Hfn100,'文件名 A列和 B列和') 写入'文件名'等到TMP.TXT
for i=1 to nDBFNumber
cFileName=Cpath+cDBF[i,1] &&取得单个库文件名
use &cFileName &&打开表
SUM(A) to nA &&求A列合并赋于NA
SUM(B) to nB &&求A列合并赋于NB
fput(Hfn100,cDBF[i,1]+' '+str(nA)+str(nb)) &&将文件名和结果写入TMP.TXT
clos dbf &&关闭表
endf
fclos(Hfn100) &&关闭TMP.TXT

打印TMP.TXT即是

请具体解释一下,cFilePath,nDBFNumber,Hfn100都是什么意思,我的问题更详细了,在什么路径下,什么文件,都比较具体了,请解释一下里边的难点,不要让我太费劲的替换里边的变量!

第五行endi什么意思