CMD/BAT - [решено] скрипт, который брал бы урл из переменной и сохралял исходный код веб страницы

Iska · Отправлено: **21:01, 17-11-2011** | #11

campbell, я же Вас спрашивал… Пробуйте (WSH):

Код:

Option Explicit

Dim strUrl
Dim strOriginalCharset

Dim objHTMLDocument
Dim objHTMLHeaderElement
Dim objHTMLElement

Dim strCity
Dim strDegree
Dim strBar
Dim strWind
Dim strHum


strUrl             = "http://www.gismeteo.ru/city/daily/4368/"
strOriginalCharset = "UTF-8"

Set objHTMLDocument = GetDocumentFromURL(strUrl, strOriginalCharset)


For Each objHTMLHeaderElement In objHTMLDocument.getElementsByTagName("h3")
	If objHTMLHeaderElement.className = "typeC" Then
		strCity = objHTMLHeaderElement.firstChild.nodeValue
		
		Set objHTMLElement = objHTMLHeaderElement.nextSibling.nextSibling.nextSibling
		strDegree = objHTMLElement.firstChild.nodeValue
		
		Set objHTMLElement = objHTMLElement.nextSibling
		strBar = objHTMLElement.title & " " & objHTMLElement.firstChild.nodeValue & " " & objHTMLElement.firstChild.nextSibling.firstChild.nodeValue
		
		Set objHTMLElement = objHTMLElement.nextSibling
		strWind = objHTMLElement.firstChild.title & " " & _
			objHTMLElement.firstChild.firstChild.nextSibling.firstChild.nodeValue & " " & _
			objHTMLElement.firstChild.firstChild.nextSibling.firstChild.nextSibling.firstChild.nodeValue
		
		Set objHTMLElement = objHTMLElement.nextSibling
		strHum = objHTMLElement.title & " " & objHTMLElement.firstChild.nodeValue & objHTMLElement.firstChild.nextSibling.firstChild.nodeValue
		
		WScript.Echo strCity
		WScript.Echo strDegree
		WScript.Echo strBar
		WScript.Echo strWind
		WScript.Echo strHum
		
		Exit For
	End If
Next

WScript.Quit 0
'=============================================================================

'=============================================================================
Function GetDocumentFromURL(strURL, strCharset)
	Const adModeReadWrite = 3
	
	Const adTypeBinary    = 1
	Const adTypeText      = 2
	
	Dim objHTMLDocument
	Dim objHTMLBaseElement
	Dim arrHtmlText
	Dim strUrlDomain
	Dim strContent
	
	
	Set objHTMLDocument = WScript.CreateObject("HTMLFile")
	
	With WScript.CreateObject("VBScript.RegExp")
		.Pattern = "^(http://.*?/).*"
		
		strUrlDomain = .Execute(strUrl).Item(0).SubMatches(0)
	End With
	
	With WScript.CreateObject("MSXML2.XMLHTTP")
		.open "GET", strURL, False
		.send
		arrHtmlText = .responseBody
	End With
	
	With WScript.CreateObject("ADODB.Stream")
		.Mode     = adModeReadWrite
		.Type     = adTypeBinary
		.Open
		.Write arrHtmlText
		
		.Position = 0
		.Type     = adTypeText
		.Charset  = strCharset
		
		
		strContent = Replace(.ReadText, "<head>", "<head><base href=""" & strUrlDomain & """>", 1, -1, vbTextCompare)
		
		With WScript.CreateObject("VBScript.RegExp")
			.Global     = True
			.IgnoreCase = True
			.Pattern = "(<script[^>]*)"
			
			objHTMLDocument.open
			objHTMLDocument.write .Replace(strContent, "<script type='text/plain'")
			objHTMLDocument.close
		End With
	End With
	
	Set GetDocumentFromURL = objHTMLDocument
	Set objHTMLDocument = Nothing
End Function
'=============================================================================

Цитата:

Код:

Москва
+3°C
Давление 741 мм рт.ст.
Ветер западный 1 м/с
Влажность 96%

campbell · Отправлено: **11:27, 18-11-2011** | #12

Так закопался в возможности bat/cmd что забыл посмотреть форум
Iska, огромное спасибо

вот только для меня cmd еще в процессе познания а vbs и подавно,
если можно вставьте комментарии, что за что отвечает.
задание сайта и кодировки я разобрал, а вот как, в последствии, происходит обработка полученного исходного кода.

и вывод происходит в окно, а как направить в файл

Iska · Отправлено: **14:41, 18-11-2011** | #13

campbell, код достаточно сложен, если Вы не знаете самой технологии, так что сами по себе комментарии вряд ли помогут.

Если вкратце, то:

1. При помощи регулярного выражения выделяем из URL основной домен.
2. При помощи объекта «MSXML2.XMLHTTP» получаем исходный код страницы.
3. Посредством объекта «ADODB.Stream» конвертируем полученный массив байт в текст (поскольку «MSXML2.XMLHTTP» всегда получает содержимое в кодировке UTF-8 — дополнительно конвертируем в оригинальную кодировку; в данном случае сие необязательно, поскольку оригинал и так в UTF-8, но я оставил данный приём для демонстрации).
4. При помощи вставки тэга «BASE» корректируем относительные ссылки в документе.
5. Чтобы избежать исполнения скриптов — посредством регулярного выражения корректируем тип тэгов «SCRIPT».
6. Посредством DOM (Использование HTML DOM (Document Object Model) в скриптах на базе Windows Script Host) делаем разбор получившегося html-документа:
а). Получаем коллекцию тэгов «H3».
б). Ищем среди них тэг с классом «typeC».
в). Далее опять же, посредством DOM, продвигаемся по дереву элементов, выделяем потребные нам элементы, получаем их значения.

Цитата campbell:

и вывод происходит в окно, а как направить в файл »

Например, используя обработчик «cscript.exe» (вместо «wscript.exe») и перенаправление вывода в файл:

Код:

cscript.exe //nologo "E:\Песочница\0091\0001.vbs" >Result.txt

А какова у Вас глобальная цель?

Delirium · Отправлено: **05:43, 19-11-2011** | #14

Цитата campbell:

топик просто для вопросов (глупых и не очень )) ) я бы регулярно пользовался, а то часто пытаясь разобрать скрипт упираешься в пару знаков и часами ищешь инфу, а зачем оно там стоит. »

Правила форума - одна проблема-одна тема. Если проблема будет с одним и тем же продуктом, создай тему с соответствующим названием и спрашивай сколько угодно