Главная страница
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.017 c
6-88122
Nicky
2003-02-06 20:11
2003.03.27
не могу пробиться через прокси


3-87883
T{}r(l-l
2003-03-11 11:12
2003.03.27
Cursor+MSSQL


1-88070
SergeiMARC
2003-03-13 17:15
2003.03.27
Местоположение курсора


14-88162
sagchat
2003-03-10 13:31
2003.03.27
GeForce 2 400 64mb


14-88224
godfather
2003-03-11 11:57
2003.03.27
надо ли платить