Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.03.27;
Скачать: CL | DM;

Вниз

Поиск строки в текстовом файле   Найти похожие ветки 

 
---cev---   (2003-03-14 10:40) [0]

Подскажите, пжлста, какие есть в Делфи функции для поика строк в текстовом файле? А то нужно "выдернуть" из файла некоторые данные. Пример файла:

...
456 bottt 56 retro_style tireck 56-89-4567
78

234 asa1 23 34
345 asa2 67 34
ert
4567
...

так мне нужно "выдернуть" число которое находиться поле строки "asa1", т.е. 23

КАК ЭТО ПРОЩЕ ВСЕГО СДЕЛАТЬ? а то я знаю только как посимвольно сравнивая строки найти asa1 и потом пропустиь пробел и считать значение 23. типа (это не код а алгоритм):

var
ch : char;
str1 : string;
i : integer;
f : textfile;
....


while not eof do
begin

while not eoln do
begin
read(f,ch);
if ch="a" then
begin
read(f,str1); //?
if str1="sa1" then
begin
read(f,ch); // считываем пробел между asa1 и 23
read(f,i); // считываем число 23
inc(j);
A[j]:=i; // запоминаем считанное чило в массив
end;
end;
end;
readln(f);

end;

ну короче, как то так. и еще проблема, я заранее не знаю размер массива A. но это не главное ...


 
chistyakov   (2003-03-14 10:50) [1]

Можно это сделать используя регулярные выражения. Для этого есть компонент TRegExp.
Есть еще мощный модуль для работу со строками QStrings.
Усли надо, и то и другое у меня есть. Пиши в мыло - вышлю


 
---cev---   (2003-03-14 11:08) [2]

О, давай! Может поможет. Спасибо. Уже пишу в мыло.



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

Текущий архив: 2003.03.27;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.016 c
3-87801
Stvaffniy
2003-03-05 21:59
2003.03.27
Invalid table name


1-87918
Kaginava
2003-03-17 08:16
2003.03.27
TRadioButton


7-88268
S.P.I.R.I.T
2003-02-03 19:27
2003.03.27
клавиатура и мышка


3-87856
Сергей
2003-03-10 20:05
2003.03.27
LEFT JOIN


3-87845
Pain
2003-03-10 18:36
2003.03.27
Работа с DBGrid...