有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
请问如何写一程序将对应记录读入数据库中?请指点,谢谢!主要是不知判断语句应该如何写。

解决方案 »

  1.   

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

  2.   

    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;
      

  3.   

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

  4.   

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