.Net  
&&假设DBF表名为USER.DBF,导出的文本名为USER1.TXT,要导出的的字段为FL1,FL2,FL3  
   
  USE   USER.dbf  
  COPY   TO   USER1.txt   DELIMITED   WITH   BLANK   FOR   RECNO()=0  
  txt1='USER1.txt'  
  f=FOPEN(txt1,2)  
  SCAN  
  sqldetail=ALLTRIM(FL1)+","+ALLTRIM(FL2)+","+ALLTRIM(FL3)  
  a=fputs(f,sqldetail)  
  ENDSCAN    
  a=fclose(f)  
  CLOSE   DATABASES
posted on 2007-06-12 22:24 东方新秀 阅读(...) 评论(...) 编辑 收藏
 
Copyright © 东方新秀 Powered by: 博客园 模板提供:沪江博客