Delphi和Foxpro整合实现txt和dbf互相转换-阿里云开发者社区

开发者社区> 开发与运维> 正文

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

简介: 本文为原创,如需转载,请注明作者和出处,谢谢!     最近做个程序,需要将dbf和文本文件互相转换,也就是将dbf按表结构将字段和数据导成txt文件,再将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单元。



国内最棒的Google Android技术社区(eoeandroid),欢迎访问!

《银河系列原创教程》发布

《Java Web开发速学宝典》出版,欢迎定购

版权声明:本文内容由阿里云实名注册用户自发贡献,版权归原作者所有,阿里云开发者社区不拥有其著作权,亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容,填写侵权投诉表单进行举报,一经查实,本社区将立刻删除涉嫌侵权内容。

分享:
开发与运维
使用钉钉扫一扫加入圈子
+ 订阅

集结各类场景实战经验,助你开发运维畅行无忧

其他文章