一个程序如何写…有关于TXT文件导入数据库的

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





如图，txt文件导入到数据库的call表中。

条件是：按照字段把信息填入。

txt文件中的信息是按照规律写好的。

最好能有源码…… 


------解决方案--------------------
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;
//分析取出数据基本上就是这样了！ 保存到数据库你自己写把