Главная страница
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.014 c
3-87794
ddd
2003-03-07 12:59
2003.03.27
sql кто на втором месте?


3-87836
WoWa
2003-03-10 16:33
2003.03.27
ADO


1-88042
Lady Natalia
2003-03-13 16:53
2003.03.27
внешний вид формы


14-88221
Vyacheslav
2003-03-11 21:26
2003.03.27
HOOK


1-87912
hawkins
2003-03-14 09:01
2003.03.27
Есть ли компонент, такой же как TLabel, но многострочный?