隨筆 - 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 銀河使者 閱讀(2375) 評論(1)  編輯  收藏 所屬分類: delphi 原創

          評論

          # re: Delphi和Foxpro整合實現txt和dbf互相轉換  回復  更多評論   

          按時納稅的半年是吧
          2010-03-25 17:40 | 99書城首頁
          主站蜘蛛池模板: 达孜县| 特克斯县| 西宁市| 遂昌县| 蒙山县| 北川| 浑源县| 上虞市| 讷河市| 旬阳县| 稻城县| 许昌市| 河津市| 嘉黎县| 乌拉特中旗| 滨州市| 峨眉山市| 侯马市| 杭州市| 临邑县| 建宁县| 米泉市| 石林| 瓦房店市| 蒲江县| 重庆市| 乌恰县| 靖西县| 双江| 黄冈市| 谷城县| 南漳县| 常熟市| 静乐县| 纳雍县| 清苑县| 策勒县| 盐源县| 贺州市| 乌拉特中旗| 九龙县|