Главная страница
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.026 c
3-1099419559
avkar
2004-11-02 21:19
2004.12.05
Сообщения от SQL Server


1-1101044563
ИМХО
2004-11-21 16:42
2004.12.05
Работая с текстовым файлом


14-1100772358
cvg
2004-11-18 13:05
2004.12.05
У кого-нить есть прикол про сотворение мира?


3-1099778094
Mih@s
2004-11-07 00:54
2004.12.05
IBDataSet и Params


6-1096615076
AlexA
2004-10-01 11:17
2004.12.05
TIdSMTP в теле письма "заменяются" русские буквы