Вниз
Скачать: 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.022 c
14-1100694450
syte_ser78
2004-11-17 15:27
2004.12.05
помогите с созданием интерфейса.


1-1100820152
noob
2004-11-19 02:22
2004.12.05
loop


3-1100014825
Hitman
2004-11-09 18:40
2004.12.05
Database not assigned


14-1100685284
petrovsky
2004-11-17 12:54
2004.12.05
Как изменить имя профиля в Windows XP?


14-1100755165
X9
2004-11-18 08:19
2004.12.05
16-битная графика в Sims 2




   Наверх