救急!(200分)如何在paradox与固定行格式的text文本文件之间相互数据转换?(200分)

  • 主题发起人 主题发起人 bbg
  • 开始时间 开始时间
B

bbg

Unregistered / Unconfirmed
GUEST, unregistred user!
就像在foxpro 中用 append from 文本文件 sdf 或者 save to 文本文件 sdf 一样
paradox中有无类似的方法?
 
没有现成的,你可以自己写分析/格式化程序
 
save to 文本文件:
with table1 do begin
first;
while not eof do begin
for i:=0 to fieldcount-1 do begin
// fields[0].AsString ...
// 对每个字段按需要的格式处理,然后写入txt文件。
end;
next;
end;
end;
从txt文件加入数据库的方法大致差不多。
 
试试BatchMove:
放一个OpenDialog1,filter为*.txt, 一个SaveDialog1, Filter为*.db;
==============================================================
if(OpenDialog1->Execute())
{
Table1->TableType=ttASCII;
Table1->TableName=OpenDialog1->FileName;
if(SaveDialog1->Execute())
{
Table2->TableType=ttParadox;
Table2->TableName=SaveDialog1->FileName;
BatchMove1->Source=Table1;
BatchMove1->Destination=Table2;
BatchMove1->Mode = batCopy;
BatchMove1->Execute();
ShowMessage(IntToStr(BatchMove1->MovedCount) + " 条记录被转换!");
}
}//大致如此~
 
我发现只能以字段病号进行对应的转换
 
如果是定义好结构的table

先把text内容读入memo中

再手工编写代码一条条加
 
其实非常简单
 
多人接受答案了。
 
后退
顶部