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

Вниз

Как прочесть с какой-либо определенной страницы в интернете   Найти похожие ветки 

 
Dennis S   (2004-09-23 13:57) [0]

Как прочесть с какой-либо определенной страницы в интернете определленный кусок текста?

например:
на нужной мне странице есть такие строки:
....
Location is found.
Total entries: 1250
All links are saved to log-file.
....
Здесь постоянно меняется этот кусок: "Total entries: 1250"
Мне нужно каким-то образом получить полный текст этой строки...
Предпологаю, что до нужного места можно добраться путём поиска например предыдущей строки (так как она постоанная)... и тогда считывать значение следующей строки...

Вопрос в том как это сделать программно????
Помогите плиз....


 
Reindeer Moss Eater ©   (2004-09-23 14:13) [1]

Функция Pos()


 
Dennis S   (2004-09-23 14:48) [2]

а как полностью...?
могу я загрузить в Mome или REdit страничку с интернета, потом сделать поиск и вытащить енто от туда?


 
Dennis S   (2004-09-23 14:50) [3]

Функция Pos() я думаю не подойдёт, так как я не гарантирую, что размер файла(странички) не будет меняться , как и содержание до и после интересующего меня отрывка...


 
Reindeer Moss Eater ©   (2004-09-23 15:16) [4]

Функции Pos на размер и содержание чего-то там глубоко наплевать.


 
Ivan K   (2004-09-27 17:31) [5]

Function GetPieceText(s, s1: string): string;
var i, k : integer;
   PageText : string;
begin
RichEdit1.Lines.LoadFromFile(Path);
PageText := RichEdit1.Text;
s:= "<br>Location is found.<br>";
s1 := "<br> All links are saved to log-file.<br>";
i := Pos(s, PageText);
k := Pos(s1, PageText);
Result := Copy(PageText, i + Lehgth(s), k - i - Lehgth(s));
end;


вот примерно так%)



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

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

Наверх




Память: 0.47 MB
Время: 0.062 c
14-1100460788
KOMATO3
2004-11-14 22:33
2004.12.05
Я б в программеры пошел, пусть меня научат!


9-1091074300
Evgeniy_K
2004-07-29 08:11
2004.12.05
DXDiag


14-1100797528
Sanek_Metaller
2004-11-18 20:05
2004.12.05
Задачка


4-1097998753
SniZ
2004-10-17 11:39
2004.12.05
Работа с IrDA


4-1096510724
The-13th-Angel
2004-09-30 06:18
2004.12.05
Как отследить изменение реестра и копирование файлов