求助一个程序怎么写……有关于TXT文件导入数据库的

Question

如图，txt文件导入到数据库的call表中。条件是：按照字段把信息填入。txt文件中的信息是按照规律写好的。最好能有源码…… 

Answer 1

var
  sTemp: String;
  vRowData: TStringList;
  vLoadTextFile: TStringList;
  ifStart, ifCount: Integer;
  irStart, irCount: Integer;
begin
  try
    vRowData := TStringList.Create;
    vRowData.Delimiter := ' ';
    vLoadTextFile := TStringList.Create;
    vLoadTextFile.LoadFromFile('filename');
    ifStart := 0;
    ifCount := vLoadTextFile.Count;
    while ifStart < ifCount do
    begin
      irStart := 0;
      vRowData.DelimitedText := vLoadTextFile.Strings[ifStart];
      irCount := vRowData.Count;
      while irStart < irCount do
      begin
        sTemp := vRowData.Strings[irStart];//这里就是各列的数据
        irStart := irStart + 1;
      end;
      ifStart := ifStart + 1;
    end;
  finally
    vRowData.Free;
    vLoadTextFile.Free;
  end;
//分析取出数据基本上就是这样了！ 保存到数据库你自己写把

Answer 2

…… 谢谢啊 我用这个已经成功导入了。但是能不能麻烦一下 在修改一下，条件又有变动了。
当遇到CO-BID或者ISDN_BID 的时候 不算其他列（不换行）。