取DBF的部分值生成有格式的TXT

[lpchenwei]

我做一个小程序，要把DBF中的一部分数据按一定的格式生成TXT文件，不知道怎么做法，哪位帮说明一下，或者有没有例子。100分哟。

[lpchenwei]

没人回答嘛，自己先顶一下。

[liuyann]

帮顶一下。

== 思想重于技巧 ==

[lpchenwei]

实际上就是vfp控制TXT的问题，在网上打到一些，但都没有创建TXT文件的函数，只有打开的，读取，不全。想找一个比较全的，写这个程序又要用到它。

[十豆三]

--假设字段均为字符型

use 表名
index on 编号,名称,类型 to ls		&&防止相同编号,名称,类型的记录不连续
go top
store '' to lcBh,lcMc,lcLx
store 0 to i,j
scan
	if alltrim(编号)<>lcBh or alltrim(名称)<>lcMc or alltrim(类型)<>lcLX
		j=0
	endif
	if j=0
		if i>0
			strtofile(lcStr,padl(i,2,'0')+'.txt')
		endif
		lcStr=''
		lcStr='编号:'+alltrim(编号)+chr(9)+'名称:'+alltrim(名称)+chr(9)+'类型:'+alltrim(类型)+chr(13)+chr(10)+chr(9)+'地址'+chr(9)+'联系人'+chr(13)+chr(10)
		j=j+1
		i=i+1
	else
		lcStr=lcStr+chr(9)+alltrim(地址)+chr(9)+alltrim(联系人)+chr(13)+chr(10)
	endif	
	lcBh=alltrim(编号)
	lcMc=alltrim(名称)
	lcLx=alltrim(类型)	
endscan

[wwwwb]

新增一字段字符型，用来装内容，
REPL ALL 字段 WITH 你的内容，可以按一定格式转换
再用COPY TO TT。TXT SDF即可

[wwwwb]

上述方法是最简单的，也可以创建、打开TXT文件，将内容按一定格式写入，速度较慢

[lpchenwei]

我要把DBF里面的数据读出来,根据数据的不同,生成若干个TXT文件,也就是DBF中的几条记录生成一个文件,另外几条记录又生成另外的一个文件,一共有几十个TXT文件.

[wwwwb]

也可以，

也就是DBF中的几条记录生成一个文件
执行完REPL ALL 字段 WITH 你的内容，可以按一定格式转换 后，
COPY TO TT。TXT SDF FOR 条件

用循环也可以

[wwwwb]

只要你设定了条件可以区分， OR 有标志字段

[lpchenwei]

有没有写好的例子,发给我,我分析一下,我还是没有搞懂.

[十豆三]

创建文本很容易，不过要什么格式，就需要不同的代码。

最好帖出你的例子要求，然后大家给出相应的代码。

[lpchenwei]

你所说的新增一字段,是新生成的一个表嘛??还是就在原文件上,

[wwwwb]

1、临时表、工作表均可；
2、将记录及正确结果贴出来看看

[lpchenwei]

记录如下；

编号 名称 类型 地址 联系人
123 计算机 1 1 A
123 计算机 1 2 B
123 计算机 1 3 C
123 计算机 2 1 D
123 计算机 2 2 E
123 计算机 2 3 F
124 物理 1 1 G
124 物理 1 2 H

文件结果：

01.TXT

编号：123 类型：计算机 类型：1
地址 联系人
1 A
2 B
3 C
02.TXT
编号：123 类型：计算机 类型：2
地址 联系人
1 D
2 E
3 F
03.TXT
编号：124 类型：物理 类型：1
地址 联系人
1 G
2 H

以上就是我要生成的TXT文件，我现在没有找到一个很好的方法来处理。

[wwwwb]

示例：
SELECT 编号,名称,类型 FROM aa GROUP BY 编号,名称,类型 INTO CURSOR dd
SELECT dd
i=1
SCAN
ff=""
ff2="地址 联系人 "+CHR(13)+CHR(10)
ff=ff+"编号:"+TRANSFORM(编号)+" 名称 :"+名称+' 类型:'+TRANSFORM(类型)+CHR(13)+CHR(10)
SELECT aa
SELECT * FROM aa into CURSOR dd1 WHERE 名称=dd.名称 AND 编号=dd.编号 AND 类型=dd.类型
SELECT dd1
SCAN
ff2=ff2+TRANSFORM(地址)+' '+TRIM(联系人)+CHR(13)+CHR(10)
ENDSCAN
=STRTOFILE(ff+ff2,'d:\zz\'+PADL(i,2,'0')+'.txt')
i=i+1
ENDSCAN

自行修改格式

[wwwwb]

记录数不多的话，可以用上述代码，用Fopen、FPUTS写入数据，思路差不多

[lpchenwei]

记录就是多，记录大约几千条。

我先按你的思路试一下再说。