Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.011 c