随笔 - 312, 文章 - 14, 评论 - 1393, 引用 - 0
数据加载中……

Delphi和Foxpro整合实现txt和dbf互相转换

本文为原创,如需转载,请注明作者和出处,谢谢!

    最近做个程序,需要将dbf和文本文件互相转换,也就是将dbf按表结构将字段和数据导成txt文件,再将txt文件导入其他的dbf表中。在foxpro中完成这些工作简直太容易了,但很多功能必须用delphi实现。虽然可以用foxpro做个小程序,然后再用delphi调用,但比较麻烦。因此,可以用Delphi通过调用Com组件的方式直接执行foxpro命令来实现,代码如下:

var
   foxpro:olevariant;
begin
 foxPro:
=CreateOleObject('VisualFoxPro.Application');
 foxPro.DoCmd(
'USE d:\student.dbf');
 foxPro.DoCmd(
'copy to d:\student.txt delimited with tab');
 foxPro.Quit;
 foxPro:
=  Unassigned;

    上面的代码是将student.dbf文件导出到student.txt文件。如果想导入,可以使用append命令,如下所示:

append from d:\student.txt type sdf

还想做什么,就看需求了。但不管做什么,只要在foxpro命令窗口可执行的命令,通过这种方式都可以执行。使用createoleobject函数需要使用comobj单元。





Android开发完全讲义(第2版)(本书版权已输出到台湾)

http://product.dangdang.com/product.aspx?product_id=22741502



Android高薪之路:Android程序员面试宝典 http://book.360buy.com/10970314.html


新浪微博:http://t.sina.com.cn/androidguy   昵称:李宁_Lining

posted on 2010-03-24 15:44 银河使者 阅读(2243) 评论(1)  编辑  收藏 所属分类: delphi 原创

评论

# re: Delphi和Foxpro整合实现txt和dbf互相转换  回复  更多评论   

按时纳税的半年是吧
2010-03-25 17:40 | 99书城首页

只有注册用户登录后才能发表评论。


网站导航: