Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 25.10.2012, 12:50   #1
Snekich
Форумчанин
 
Аватар для Snekich
 
Регистрация: 19.11.2011
Сообщений: 128
По умолчанию Вставить исходный текст веб.станицы.

Есть сайт с галереей (фото). Периодически добавляются новые фото.
Собственно мне необходимо считать сколько фото уже размещено на странице.
Предполагаю, что это достаточно удобно сделать путем импорта исходного кода страницы и подсчета количества строк типа:
href="/images/photos/photo_13sfgse4.JPG"><img src="/images/photos/pre_photo_13sfgse4.JPG" alt="" /></a></div>

Подскажите как это реализовать?
Нет ничего невозможного, главное верить в это.
Snekich вне форума Ответить с цитированием
Старый 25.10.2012, 13:18   #2
doober
Старожил
 
Аватар для doober
 
Регистрация: 02.05.2009
Сообщений: 3,907
По умолчанию

Импортируете исходный код,при помощи регулярных выражений считаете.
Анализ,обработка данных Недорого
doober вне форума Ответить с цитированием
Старый 25.10.2012, 18:27   #3
Snekich
Форумчанин
 
Аватар для Snekich
 
Регистрация: 19.11.2011
Сообщений: 128
По умолчанию

Цитата:
Сообщение от doober Посмотреть сообщение
Импортируете исходный код,при помощи регулярных выражений считаете.
про регулярные выражения прочитал, спасибо, буду учиться.

НО у меня не получается сделать первый этап... как импортировать исходный код страницы в ексель, зная ее адрес. (импортировать естественно не в ручную скопировав текст из браузера и вставив в ексель)

P.S. Пробовал импорт данный из веба, пробовал ссылку вида " view-source:http://www.mypage.ru/gallery " - не получилось.
Нет ничего невозможного, главное верить в это.

Последний раз редактировалось Snekich; 25.10.2012 в 18:40.
Snekich вне форума Ответить с цитированием
Старый 26.10.2012, 01:06   #4
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,856
По умолчанию

Ну а поиск разве не помогает решить проблему?

http://excelvba.ru/code/GetHTTPResponse

А далее - все просто.
Например, в переменной txt у вас находится исходный текст веб-страницы.

Если надо подсчитать количество ссылок вида href="/images/photos/photo_
то делается это так:

Код:
КоличествоСсылок = ubound(split(txt,"href=""/images/photos/photo_"))
Обратите внимание на удвоенные кавычки в маске ссылки
EducatedFool вне форума Ответить с цитированием
Старый 26.10.2012, 07:28   #5
Snekich
Форумчанин
 
Аватар для Snekich
 
Регистрация: 19.11.2011
Сообщений: 128
По умолчанию

Цитата:
Сообщение от EducatedFool Посмотреть сообщение
Ну а поиск разве не помогает решить проблему?

http://excelvba.ru/code/GetHTTPResponse

А далее - все просто.
Например, в переменной txt у вас находится исходный текст веб-страницы.

Если надо подсчитать количество ссылок вида href="/images/photos/photo_
то делается это так:

Код:
КоличествоСсылок = ubound(split(txt,"href=""/images/photos/photo_"))
Обратите внимание на удвоенные кавычки в маске ссылки
Спасибо большое. Получилось.
Только я представленный код чуток упростил (для своих целей), сделав импорт всего исходного кода в 1 ячейку (минуя txt файл).
Нет ничего невозможного, главное верить в это.
Snekich вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
нужен исходный текст игры Айрат090 Помощь студентам 0 04.12.2011 17:25
вытянуть исходный код веб страницы в мемо megostudent Работа с сетью в Delphi 4 24.05.2011 07:49
вытянуть исходный код веб страницы в мемо megostudent Общие вопросы Delphi 1 23.05.2011 18:50
програмно загруз веб страницу вставить текст и програмно нажать кнопку. asdn Общие вопросы .NET 0 05.10.2010 13:40
Как прочесть исходный текст? Ruber Общие вопросы по Java, Java SE, Kotlin 0 05.06.2008 21:45