如何从文本文件中读取特定范围内的内容到数据库中? ( 积分: 20 )

aa.txt:

[1]
10001 铁
10002 铜
[2]
10001 金
[3]
10001 汞
10002 银

如果想读取[2]下面的内容,但在遇到[3]则中止读取,我该如何获取?我不知道在文本文件的操作中如何定位行或者跳到指定行用ReadIn读取?

可以用TStringList 来实现.
var
TmpList : TStringList;
i,j,k : integer;
begin
TmpList := TStringList.Create;
TmpList.LoadFromFile('c:/aa.txt');
for i := 0 to TmpList.Count -1 do
begin
if Pos('[2]',TmpList.String) <= 0 then
begin
continue;
end
else //[2]这行了.
begin
if Pos('[3]',TmpList.String) <= 0 then //还没到[3]
begin
//这里保存到数据库中.
end
else
Break;
end;

end;

TmpList.Free;
end;

谢谢楼上的,我也已经用类似方法处理好了~~