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

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



Память: 0.46 MB
Время: 0.021 c
1-1101297047
Nox
2004-11-24 14:50
2004.12.05
Тип переменной вмещающей число с 30 нулями


4-1098448993
antonioxxx
2004-10-22 16:43
2004.12.05
Доступ к (драйверу) мыши


14-1100557778
Piter
2004-11-16 01:29
2004.12.05
Можно откатить Internet Explorer?


1-1101292981
Всезнайка
2004-11-24 13:43
2004.12.05
Переход на нужную страницу в CHM-хелпе


10-1068726430
yursa
2003-11-13 15:27
2004.12.05
DCOM&amp;Excel




   Наверх