求助一个程序怎么写……有关于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;
//分析取出数据基本上就是这样了！ 保存到数据库你自己写把