关于将txt文件读入数据库的问题

[judge2003]

有n个txt文件，现要将其读入数据库中，txt中的每行对应一条纪录，txt中的字段值用逗号隔开。txt文件若设为“自动换行”，则用计事本打开时每行显示一条纪录，我也不知其是否以回车换行。格式如下：82330888,02/01/2005,07,34,30, 27,good,0.00,0.00
82330888,02/01/2005,07,34,30, 27,good,0.00,0.00
82330888,02/01/2005,07,34,30, 27,good,0.00,0.00
请问如何写一程序将对应记录读入数据库中？请指点，谢谢！主要是不知判断语句应该如何写。

[Kshape]

给个思路而已
-------------------
一行一行地读取txt内容
然后保存到string里面
然后用‘，’逗号为关键字拆分字符串
把拆后的子字符串存入数据库就可以了

剩下的工作你自己做了哦

[yiyixin]

支持楼上的，接分快乐

[DieGhost]

type
strings=array of string;
{********************************************
函数功能: 分割函数
入口参数: str --需分割的字符传
ctrl --分割字符
num --数组
出口数据: 分割后为数组

需定义num为integer
********************************************}

function split(str:string;ctrl:char;var num:integer):strings;
var
i:integer;
begin
num:=0;
setlength(result,255);
i:=pos(ctrl,str);
while(i<>0) do
begin
result[num]:=copy(str,1,i-1);
delete(str,1,i);
inc(num);
i:=pos(ctrl,str);
end;
result[num]:=str;
inc(num);
setlength(result,num);
end;


//
var
i,inum:integer;
sa:strings;
begin
sa:=split(str,',',inum);
for i:=low(sa) to high(sa) do
showmessage(sa[i]);
end;

[wangzhanlili]

split()
返回一个String[]
然后 写入数据库

[langziwujia007]

Kshape([伟大的大伟!])
思路我个人感觉就很好啊。