Главная страница
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.019 c
14-88248
Альф
2003-03-12 12:15
2003.03.27
Особенности компилятора - правда или нет ?


1-87885
Manulo
2003-03-13 17:00
2003.03.27
Эмуляция нажатия клавиш


3-87866
Ruslan_
2003-03-08 20:13
2003.03.27
Как правильно управлять явной транзакцией?


14-88207
aga
2003-03-10 15:27
2003.03.27
Електоронные книги


1-88075
MasterYoda
2003-03-16 12:41
2003.03.27
Как в stringgrid запретить ввод букв.