Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Сети";
Текущий архив: 2004.12.05;
Скачать: [xml.tar.bz2];

Вниз

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

 
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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.038 c
4-1098200620
crio
2004-10-19 19:43
2004.12.05
Работа со сканером


14-1100708166
cyborg
2004-11-17 19:16
2004.12.05
Опрос по поводу данного форума


1-1101107443
ruslan_as
2004-11-22 10:10
2004.12.05
Как правильно прервать работу процедуры...


1-1101205890
MikePol
2004-11-23 13:31
2004.12.05
ссылки в Delphi


3-1099475446
Dmitriy O.
2004-11-03 12:50
2004.12.05
Как посмотреть Log файл в IB/Firebird ?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский