帮帮我！ 关于Foxpro程序的问题

Question

很少有用foxpro2.5 的了
使用fcreate()函数来建立一个文件
使用fputs()函数来写文件
handle=fcreate("mytext.txt",2)
if handle= -1
   有错误
endif
written=fputs(handle,内容)
if written=0
   写入失败
endif
使用fputs只适合写文本文件和ASCII文件
因为fputs会在数据后加chr(13)和chr(10)---回车和换行符号
fcreate()建立的文件，如果以前存在则覆盖掉，所以可以用file()来判断
fopen()是打开一个文件
fopen(文件，mode)
mode:0--只读（默认），1--只写，2--读写写二进制用fwrite(),这个不加回车和换行
written=fwrite(handle,内容)
if written=0
   有错误
endif

Answer 1

还有别忘了用fclose（）关闭文件
if  fclose(handle)=.f.
    有错误
endif

Answer 2

to zhpfaff(zhp) ：我还有几个问题想问
 我用 select * from data.dbf显示后，怎样判断查出的数据是否为空
 例如  if 查出得数据>0 then
 
 问题2 data : extentend[1..0] 这是什么意思呢？ 在foxpro里没有这个类型呀？ 是不是我写反了。
 
 问题3 我怎样用一个循环象vb中的 for i:=0 to ado.record do 将记录追加
到一个文件里呢？ 这个循环应该怎么写呢？

Answer 3

呵呵，先给我分啊
开个玩笑这里是VB，foxpro2.5的还有人用啊？你还是把数据库转换成Access，用你擅长的语言做吧问题1：
有很多方法：
一般你把数据付值给一个数组
select * from data.dbf into array bbb
判断bbb的类型就知道是否有符合条件的记录，如果没有则不创建数组问题3：用append from array 命令 将数组中的数据追加到数据表中，这个很方便。问题2我不知道是什么意思。