在DELPHI中能否将数据库中的数据导入到文本文件中去？反过来又怎样处理？谢谢(100分)

如题

TableType 有下面集中类型：ttParadox,ttDBase,ttFoxPro,ttASCII。
可经由 BatchMove 转换。

写程序啊，用分隔符将字段分开，用换行符将记录分开。
注意字段类型转换。
反之一样的，读分隔符和换行符来区分字段和记录，再转换字符类型再写入库里。

倒出:
var
txtF: TextFile;
begin
AssignFile(txtF, SaveDialog.FileName);
Rewrite(txtF);
if ioresult <> 0 then ;
Writeln(txtF, 'abcdefghijklmnopqrstuvwxyz');
Table1.DisableControls;
Table1.Open;
Table1.First;
while not Table1.Eof do
begin
Writeln(txtF, Table1.FieldByName('name').AsString + ',' +
Table1.FieldByName('Field1').AsString + ',' +
Table1.FieldByName('Field2').AsString + ',' +
.....
Table1.FieldByName('FieldN').AsString);
Table1.Next;
end;
Table1.First;
Table1.EnableControls;
CloseFile(txtF);
end;
倒入也差不多，只不过要计算出每一行的","的位置，然后把相应的值赋给相应的字
段!

把我的程序代码选一部份供你参考：

var
AddressFile:TextFile;
n,reNum:integer;
JE1:real;
ZH:String;
S:String[12];
begin
form1.Table1.filtered:=false;
//先取消过滤
AssignFile(AddressFile,'c:/Gz/gz.txt');
//把文件变量与一个文件名相联系
Rewrite(AddressFile);
//创建一个新文件或打开一个旧文件，并把指针指向文件夹头

reNum:=Table1.RecordCount; //求记录数
Table1.First ;
n:=0;
while not Table1.Eof do
begin
n:=n+1 ; //完成了的记录数
JE1:=Table1JE.value; //金额
Str(JE1:8:2,S); //金额转八位字符串
if Table1ZH.AsString ='' then
begin
ZH:=' '; //九位
end
else
ZH:=Table1ZH.AsString; //帐号
Write(AddressFile,Table1BJ.AsString +
ZH +
XMW(Table1XM.AsString)+
S);


if n<reNum then
begin
writeln(AddressFile,''); //换行
end;
Table1.Next ;
end;
closeFile(AddressFile); //关闭
end;

用BatchMove

用Delphi实现将纯文本资料转入数据库


　　在我们日常工作中，常会碰到这样一个难题：一大堆
收集好的纯文本格式，比较规整的资料怎样才能将它们分
离，转到自己已经建好的数据库中进行管理呢？

　　例如，有一段人事档案资料archive．txt，内容如下
：

　　小许男21工程师

　　小吴女23助理工程师

　　小蔡男22助理工程师

　　小牟女22工程师

　　要将它转入数据库archive．dbf中，archive．dbf结
构如下：

　　姓名，性别，年龄，职称

　　怎么办呢？现在通过使用delphi编程，很好地解决了
这个难题。Delphi提供了许多功能强大，丰富的字符处理
函数和过程，常用的有：

　　（1）functionLength（S：String）：Integer

　　／／返回串的长度

　　（2）functionCopy（S：String；Index，Count：In
teger）：String

　　／／给出一个字符串中串的拷贝

　　（3）functionPos（Substr：String；S：String）
；Integer

　　／／查找子串在字符串中的位置

　　（4）ProcedureDelete（VarS：String；Index，Cou
nt：Inte?ger）；

　　／／从一个字符串中去除子串

　　利用Delphi提供的已有函数和过程基础上编制自己的
三个函数，实现了纯文本格式资料转入数据库功能。只要
Delphi支持的数据库都可以支持。

　　archive．txt中每行数据为一个字符串，字符串中每
个被分割的数据为一个字段，分割每个字段的字符为分割
符，这里是空格，也可以是，、；、＃等符号。具体思想
是：先将字符串进行调整，然后把串中每个字符同分割符
比较，将不是分割符的字符追加到MyStr串中，最后得到
一个字段的内容。通过一个循环，就可以将一个字符串分
成几个字段。

　　FunctionRegulate（aString，Sepchar：string）：
string

　　／／去掉多余的分割符，规范字符串

　　FunctionGetSubStr（varsString：string；SepChar
：String）：String；

　　／／得到字符串中一个子串

　　／／因要改变参数aString的值，所以将它用var定义
。

　　FunctionGetSubStrNum（aString，SepChar：String
）：Integer；

　　／／计算一个字符串要被分割成几个字段。

　　参数：aString是所需分割的一个字符串，

　　SepChar是分割符。

　　FunctionRegulateStr（aString：String；Sepchar
：String）：String；

　　var

　　i，Num：Integer；

　　Flag：Boolean；

　　MyStr，TempStr：String；

　　begin

　　Flag：ΚFalse；／／进行标志，去除多余的分割符

　　Num：ΚLength（aString）；／／计算aString串的
长度

　　fori：Κ1toNumdo

　　begin

　　TempStr：ΚCopy（aString，i，1）；／／取aStrin
g串中的一字符

　　ifTempStrΙΛSepCharthen

　　begin

　　MyStr：ΚMyStr＋TempDtr；

　　Flag：ΚTrue；

　　end

　　else

　　if（FlagΚTrue）then

　　begin

　　Mystr：ΚMystr＋TempSrt；

　　Flag：ΚFalse；

　　end；

　　end；

　　ifMyStr［Length（MyStr）］ΙΛSepCharthen

　　MyStr：ΚMyStr＋SepChar；

　　RegulateSrt：ΚMyStr；

　　end；

　　FunctionGetSubStr（varaString：String，SepChar
：Strign）：String；

　　var

　　Mysrt：String；

　　StrLen：Integer；

　　SepCharPso：Integer；

　　begin

　　StrLen：ΚLength（aString）；

　　SepCharPos：ΚPos（SepChar，aString）；／／计
算分割符在子串中的位置

　　MyStr：ΚCopy（aString，1，SepCharPos－1）；／
／将分割符前所有字符放到mystr串中

　　Delete（aString，1，SepCharPos）；／／除去分割
符和分割符前的子串

　　GetSubStr：ΚMyStr；／／返回一个字段

　　end；

　　FunctionTforml．GetSubStrNum（aString：String
；SepChar：String）：Integer；

　　var

　　i：Integer；

　　StrLen：Integer；

　　Num：Integer；

　　begin

　　StrLen：ΚLength（aString）；

　　Num：Κ0；

　　fori：Κ1，toStrLendo

　　ifCopy（aString，i，1）ΚSepCharthen

　　Num：ΚNum＋1；

　　GetSubSrtNum：ΚNum；

　　end：

　　有了上面三个函数，现在介绍一下具体的应用：

　　1．首先建立一个窗体Forml，加入一个RichEditl（
或Menol），一个按钮Buttonl和一个Tablel，设置Tablel
的属性：

　　Tablell．DataBaseΚ′c：ιArchivs′

　　Tablell．TableNameΚ′Archive．dbf′

　　2．分别加入以下程序：

　　ConstSpaceΚ′′

　　ProcedureTForml．FormCreate（Sender：Tobject）
；

　　begin

　　RichRditl．Lines．LoadFromFile（′Archive．txt
′）；

　　end；

　　ProcedureTForml．Button1Click（Sender：To?bje
ct）；

　　var

　　i，j：Integer；

　　MyLine：String；

　　begin

　　withTableldo

　　begin

　　Open；

　　fori：Κ0toRichEd?itl．Lines．Count－1do

　　begin

　　MyLine：ΚRegulateStr（Richeditl．Lines［i］，
Space）；

　　forj：Κ1toNumToken（MyLIne，Space）do

　　begin

　　Append；

　　fileds［j－1］．aString：ΚGetSubSrt（MyLine，
Space））；

　　post；

　　end；

　　end；

　　end；

　　end；

　

先在ODBC中配置好txt的驱动
再用datapump

具体如何用BATCHMOVE？？？？

A Demo From Delphi Database FAQ
{ Here we assume InTable is to be copied to an ASCII file. We use
TBatchMove because it's fast. Also, it will automatically create
the schema file }

procedure TForm1.Button1Click(Sender: TObject);
var
InTable, OutTable: TTable;
BatchMove1: TBatchMove;
begin
try
{ Fix the BDE "wait" cursor: }
Screen.Cursors[crSQLWait] := LoadCursor(0,IDC_WAIT);

InTable := TTable.Create(Application);
with InTable do
begin
DatabaseName := 'AMP1LINKS';
TableName := 'ACFTOWN.MISHAPS'; { Oracle OWNER.TABNAME }
end;

OutTable := TTable.Create(nil);
with OutTable do
begin
DatabaseName := 'c:/delphi/files';
TableName := 'Test.Txt';
TableType := ttASCII;
end; { Note: that is NO need to call CreateTable! }

BatchMove1 := TBatchMove.Create(nil);
with BatchMove1 do
begin
Source := InTable;
Destination := OutTable;
Mode := batCopy;
Execute;
end;

finally
if Assigned(OutTable) then OutTable.Free;
if Assigned(BatchMove1) then BatchMove1.Free;
end;
end;

Another Demo from Lloyd's help file

Q: How do I make an ASCII text table from a paradox table?

A:

procedure TForm1.Button1Click(Sender: TObject);
var
t1, t2: tTable; {t1 = PW table; t2 = ASCII version}
begin
t1 := tTable.create(self);
with t1 do begin
DataBaseName := 'DBDEMOS';
tableName := 'customer.db';
open;
end;
t2 := tTable.create(self);
with t2 do begin
DataBaseName := 'DBDEMOS';
tableName := 'myfile.txt';
TableType := ttASCII;

createTable;
open;
edit;
BatchMove(t1, batCopy);
close;
end;
t1.close;
end;

多人接受答案了。