怎样把文本文件导入到数据库中？(50分)

有一txt文件，及对应的paradox表。字段为：
ID,char,15; Source,char,1; EntryTime,Date,YYYY/MM/DD/HH:MM:SS
txt格式为：123456789012345,0,2002/02/02/22:22:22,
098765432112345,1,2002/03/02/22:12:23,
...............
有没有不用手动一条一条加入表的方法？

函数和过程，常用的有：
（1）function Length（S：String）：Integer／／返回串的长度
（2）function Copy（S：String；Index，Count：Integer）：String／／给出一个字符串中串的拷贝
（3）function Pos（Substr：String；S：String）；Integer／／查找子串在字符串中的位置
（4）Procedure Delete（VarS：String；Index，Count：Inte?ger）；／／从一个字符串中去除子串
利用Delphi提供的已有函数和过程基础上编制自己的三个函数，实现了纯文本格式资料转入数据库功能。

文本中每行数据为一个字符串，字符串中每个被分割的数据为一个字段，分割每个字段的字符为分割符，
这里是空格，也可以是，、；、＃等符号。
具体思想是：先将字符串进行调整，然后把串中每个字符同分割符比较，将不是分割符的字符追加到MyStr串中，
最后得到一个字段的内容。通过一个循环，就可以将一个字符串分成几个字段。
Function Regulate（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串的长度
for i：=1 to Num do
begin
TempStr：=Copy（aString，i，1）；／／取aString串中的一字符
if TempStrΙΛ 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．分别加入以下程序：
Const Space=′′
ProcedureTForml．FormCreate（Sender：Tobject）；
begin
RichRditl．Lines．LoadFromFile（′Archive．txt′）；
end；
ProcedureTForml．Button1Click（Sender：Tobject）；
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 NumToken（MyLIne，Space）do
begin
Append；
fileds［j－1］．aString：=ΚGetSubSrt（MyLine，Space））；
post；
end；
end；
end；
end；
照这你的数据库格式，把上面的代码修改一下应该是可以的
上面的代码我没有去验证它的正确性，但思路应该是正确的。
望你好运！

你要先建个数据库，字段和你的文本的一样，再在ODBC中的将文本文件设置成TEXT数据库(TEXT)！
使用以下的SQL
SELECT * TROM TEXT INTO TABLE 你建的数据库

楼上的方法可能行,但我不知道驱动是否支持,
我要去试试

其它数据库还有现成的工具
paradox，只好手动更方便快捷了

行读文本文件方式读入数据，写一个取字符串子串函数取了串，分别存入即可。

知道格式,自己分解,多好

谢谢大家阿，
我已经用ODBC建立了文本格式的一个数据源，可以用ADO直接读取了。只是效率有点差。
人人有分！。。。[]