Помогите считать из файла данные.

← →
Dimich1978 © (2003-09-05 08:31) [0]

Помогите с решение одной проблемы.
И так у меня есть текстовый файл такого вида:
10.10.10.3 ####ALLOW @50 ^0 $50
10.10.10.5 ####DENY @0 ^0 $0
192.168.5.19 ####ALLOW @0 ^0 $0
10.10.10.3 ####ALLOW @50 ^0 $50
Мне необходимо найти IP локального компьютера в этом списке, делаю так:
Fs:=TstringList.create;
В стринг лист гружу файл;
for i:=0 to (fs.Count-1 ) do
begin
if Pos(getlocalIP,fs[i]) <> 0 then
Таким образом я нашел эту строку. Но дальше мне надо считать данные с третьего, четвертого и пятого столбца в этой найденной строке. Как это можно реализовать? Я делал при помощи Repeat Until и перебираь букву за буквой, думаю не рационально. Подскажите как можно наиболее качественно считать данные из выше сказанных столбцов.

← →
Anatoly Podgoretsky © (2003-09-05 08:38) [1]

StringList.CommaText := fs[i]
или copy/pos/delete по твоему разделителю.

← →
Юрий Зотов © (2003-09-05 08:49) [2]

Один из способов.

var
Col3, Col4, Col5: string;
FS: TStringList;
i: integer;
begin
FS := TStringList.Create;
try
FS.LoadFromFile(...);
for i := 0 to FS.Count - 1 do
if Pos(GetLocalIP, FS[i]) <> 0 then
begin
with TStringList.Create do
try
CommaText := FS[i];
Col3 := Strings[2];
Col4 := Strings[3];
Col5 := Strings[4]
finally
Free
end;
Break
end
finally
FS.Free
end
end;

спасибо

Помогите считать из файла данные. Найти похожие ветки