有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
请问如何写一程序将对应记录读入数据库中?请指点,谢谢!主要是不知判断语句应该如何写。
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
请问如何写一程序将对应记录读入数据库中?请指点,谢谢!主要是不知判断语句应该如何写。
-------------------
一行一行地读取txt内容
然后保存到string里面
然后用‘,’逗号为关键字拆分字符串
把拆后的子字符串存入数据库就可以了剩下的工作你自己做了哦
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;
返回一个String[]
然后 写入数据库
思路我个人感觉就很好啊。