Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.09.18;
Скачать: [xml.tar.bz2];

Вниз

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

 
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;


 
Dimich1978   (2003-09-05 09:08) [3]

спасибо



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.09.18;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.44 MB
Время: 0.008 c
14-58871
Kost
2003-08-29 20:16
2003.09.18
StringGird


9-58501
Juster~
2003-03-05 18:45
2003.09.18
Рендеринг планет


1-58642
Marmel
2003-09-05 11:53
2003.09.18
Перехватить информацию из ячейки Exel.


1-58773
star.ru
2003-09-05 13:49
2003.09.18
kodirovka i dekodirovka


14-58902
MBo
2003-08-29 08:42
2003.09.18
Intel Processor Code Table





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский