一个VFP上的问题.

[caiqianwang]

是这样的:有一个很大的表,我想按单位代码生成N个目录包,并且在相应的目录包底下生成一个同一个单位代码的人的记录的文本文件.比如:目录包是000001,然后是000001.txt.
在文本文件里有:0000010001......000001000n个记录
我问一下代码要如何写啊谢谢

[zhongyj]

local pdir,count1

pdir="c:\"
select distinct 单位代码 from 表 into array unita
count1=alen(unita)
for i=1 to count1
dir1=pdir+alltrim(unita[i])+"\"
md (dir1)
copy to (dir1+alltrim(unita[i])+".TXT") for 单位代码=unita[i] sdf
endfor

[caiqianwang]

谢谢啊，
不过，文本文件里的记录要这样输出（比如：张三，男，5300000000000，000001.jpg )这样的格式，不知道大侠能不能再告诉我一下。