文本数据导入数据库问题！急！在线等待！(50分)

文本结构如下，空格是Tab键：
hz py1 py2
啊 a
阿 a
呵 a he
数据库字段：
hz :varchar py1 :varchar py2 :varchar
我如何把文本的数据导到数据库中！
谢谢！

定义ODBC for TEXT File

同意楼上！方法简单。

定义ODBC for TEXT File 后表名如何处理！
在Tablename中是空的！

var
动态创建一Tstirngs
MyStrings
MyStrings := TStringList.Create;
MyStrings.LoadFromFile('1.txt');

var
MyStrings: Tstrings;
MyString:String;
const SepStr = ',';
begin
for i := 0 to MyStrings.Count - 1 do
begin
MyLine := Trim(MyStrings);
把一行转换成一条记录!
end;

一会再给你贴代码!
用DELPHI实现将纯文本资料转入数据库

--------------------------------------------------------------------------------

在我们日常工作中，常会碰到这样一个难题：一大堆收集好的纯文本格式，比较规整的资料怎样才能将它们分离，转到自己已经建好的数据库中进行管理呢？
　　例如，有一段人事档案资料archive．txt，内容如下：
　　小许男21工程师
　　小吴女23助理工程师
　　小蔡男22助理工程师
　　小牟女22工程师
　　要将它转入数据库archive．dbf中，archive．dbf结构如下：
　　姓名，性别，年龄，职称
　　怎么办呢？现在通过使用delphi编程，很好地解决了这个难题。Delphi提供了许多功能强大，丰富的字符处理函数和过程，常用的有：
　　（1）functionLength（S：String）：Integer
　　／／返回串的长度
　　（2）functionCopy（S：String；Index，Count：Integer）：String
　　／／给出一个字符串中串的拷贝
　　（3）functionPos（Substr：String；S：String）；Integer
　　／／查找子串在字符串中的位置
　　（4）ProcedureDelete（VarS：String；Index，Count：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）；／／取aString串中的一字符
　　if TempSt>=SepChar then
　　begin
　　MyStr：=MyStr＋TempDtr；
　　Flag：=True；
　　end
　　else
　　if（Flag=True）then
　　begin
　　Mystr：=Mystr＋TempSrt；
　　Flag：=False；
　　end；
　　end；
　　if MyStr［Length（MyStr）］>=SepChar then
　　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；
　　for i：=1 to StrLen do
　　if Copy（aString，i，1）=SepChar then
　　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：T object）；
　　var
　　i，j：Integer；
　　MyLine：String；
　　begin
　　with Tablel do
　　begin
　　Open；
　　for i：=0 to RichEditl．Lines．Count－1 do
　　begin
　　MyLine：=RegulateStr（Richeditl．Lines［i］，Space）；
　　for j：=1 to Num To ken（MyLIne，Space） do
　　begin
　　Append；
　　fileds［j－1］．aString：=GetSubSrt（MyLine，Space））；
　　post；
　　end；
　　end；
　　end；
　　end；
　　

http://www.delphibbs.com/delphibbs/dispq.asp?lid=1000337

我的源代码如下!可是没有完成相应的功能!大家能帮我看一下吗?
procedure TForm1.FormCreate(Sender: TObject);
begin
Richedit1.Lines.LoadFromFile('f:/pinyin/pinyin.txt');
end;
Function RegulateStr(aString:String; Sepchar:String):String;
var
i,Num:Integer;
Flag:Boolean;
MyStr,TempStr:String;
begin
Flag:=False;//进行标志，去除多余的分割符
Num:=Length(aString);//计算aString串的长度
for i:=1 to Num do
begin
TempStr:=Copy(aString,i,1);//取aString串中的一字符
if TempStr>=SepChar then
begin
MyStr:=MyStr+Tempstr;
Flag:=True;
end
else
if(Flag=True) then
begin
Mystr:=Mystr+TempStr;
Flag:=False;
end;
end;
if MyStr[Length(MyStr)]>=SepChar then
MyStr:=MyStr+SepChar;
RegulateStr:=MyStr;
end;
Function GetSubStr(var aString:String; SepChar:String):String;
var
Mystr:String;
StrLen:Integer;
SepCharPos:Integer;
begin
StrLen:=Length(aString);
SepCharPos:=Pos(SepChar,aString);//计算分割符在子串中的位置
MyStr:=Copy(aString,1,SepCharPos-1);//将分割符前所有字符放到mystr串中
Delete(aString,1,SepCharPos);//除去分割符和分割符前的子串
GetSubStr:=MyStr;//返回一个字段
end;
Function GetSubStrNum(aString:String; SepChar:String):Integer;
var
i:Integer;
StrLen:Integer;
Num:Integer;
begin
StrLen:=Length(aString);
Num:=0;
for i:=1 to StrLen do
if Copy(aString,i,1)=SepChar then
Num:=Num+1;
GetSubStrNum:=Num;
end;

procedure TForm1.Button1Click(Sender: TObject);
var i,j:Integer;
MyLine:String;
space:string;
begin
with Table1 do
begin
Open;
for i:=0 to RichEdit1.Lines.Count-1 do
begin
MyLine:=RegulateStr(Richedit1.Lines,Space);
for j:=1 to GetSubStrNum(myline,space) do //ken(MyLIne,Space)
begin
Append;
fields[j-1].asString:=GetSubStr(MyLine,Space);
post;
end;
end;
end;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
table1.close;
table1.EmptyTable;
Table1.open;
end;

end.

直接当成文本数据表操作不好吗？
以后把文本表中数据导入其他数据表不就行了！

各位已经很详细了。

当成文本数据表是可可以，但如果跟数据库的字符集不一致的时候会出现乱码的问题
这个我当时用过
我当时用的是TBatchMove控件，简单是简单
指定源与目标

多人接受答案了。