Гость
Войти | Профиль | Очистить
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как скопировать содержимое html страницы в dbf / 5 сообщений из 5, страница 1 из 1
18.08.2015, 09:58
    #39031328
q1w1e1
q1w1e1
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как скопировать содержимое html страницы в dbf
Поставили задачу, запретить в инете федеральный список, т.е. на выходе должен получиться список сайтов в dbf-формате, которые есть в этом федеральном списке...
с такой задачей не сталкивался(работа с объектами браузера), хотелось бы хотя бы простейший пример... а именно, как с инета работать с объектами браузера, если этот список на десяти страницах, как-то программа на фоксе должна нажать следующую страницу и скопировать эту страницу к себе в таблицу... С каким браузером надо работать (IE, Mozilla, Opera...) у всех ли есть сом объекты.. в общем хоть как-то начать...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.08.2015, 10:22
    #39031362
Dima T
Dima T
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как скопировать содержимое html страницы в dbf
 
Скачивание в файл
Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
* Скачивание файла с интернета
func DownLoad
lpara tcUrl, tcFile

local lcRet, lcFile, lnRes 

Declare Integer URLDownloadToFile In urlmon.Dll;
    INTEGER pCaller, String szURL, String szFileName,;
    INTEGER dwReserved, Integer lpfnCB

if file(tcFile)
	delete File (tcFile)
endif

lcFile = fullpath(sys(2015))
Wait 'Скачивание файла из интернета ...' window nowait noclear
lnRes = URLDownloadToFile(0, tcUrl, lcFile, 0, 0)
wait clear
if lnRes = 0
	if file(lcFile)
		copy File (lcFile) to (tcFile)
		delete File (lcFile)
		lcRet = 'Ok'
	else
		lcRet = 'Error: Файл не создался ' + lcFile
	endif
else
	lcRet = 'Error: ' + str(lnRes + 2^32)
endif
return lcRet


Пользоваться так:
Код: sql
1.
2.
3.
4.
5.
6.
lcErr = Download('http://www.sql.ru/forum/1171257/kak-skopirovat-soderzhimoe-html-stranicy-v-dbf', 'test.htm')
if lcErr != 'Ok'
	? 'Ошибка ' + lcErr
else
	? 'Скачано в файл test.htm'
endif


дальше пиши разбор файла.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.08.2015, 10:35
    #39031376
q1w1e1
q1w1e1
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как скопировать содержимое html страницы в dbf
спасибо, всё работает, но для примера http://www.sql.ru/forum/1170250-1/redaktirovanie-v-grid, даёт всего одну страницу, а как сделать, чтоб нажалась кнопка и скопировалась вторая страница?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.08.2015, 10:59
    #39031398
Dima T
Dima T
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как скопировать содержимое html страницы в dbf
Найти в тексте ссылку на вторую страницу http://www.sql.ru/forum/1170250-2/redaktirovanie-v-grid и скачать.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.08.2015, 11:10
    #39031408
q1w1e1
q1w1e1
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как скопировать содержимое html страницы в dbf
спасибо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как скопировать содержимое html страницы в dbf / 5 сообщений из 5, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 471ms
Закрыть
start [/forum/topic.php?fid=41&mobile=1&tid=1582286]:
 0ms
get settings:
 9ms
get forum list:
 11ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 67ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 38ms
get tp. blocked users:
 1ms
others: 328ms
total:  471ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]