[Iska]

Образец файла «Full.log» в архиве покажите. С данной строкой, разумеется.

[bugmenot3]

Образец файла «Full.log» в архиве покажите. С данной строкой, разумеется.

http://ge.tt/33KCwZ12/v/0

[Iska]

bugmenot3, не могу никаким боком загрузить файл оттуда. Выложите, пожалуйста, на RGhost.

[bugmenot3]

Как скажите
http://rghost.ru/58515442

[Iska]

bugmenot3, получил. Пробуйте:

Код:

Option Explicit

Dim strSourceFile

Dim objFSO
Dim strContent
Dim strValue


strSourceFile = "E:\Песочница\0401\Full.log"

Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")

If objFSO.FileExists(strSourceFile) Then
	With objFSO.OpenTextFile(strSourceFile)
		strContent = .ReadAll()
		.Close
	End With
	
	With WScript.CreateObject("VBScript.RegExp")
		.Pattern = "\(\)#4(.*?)\r\n"
		
		If .Test(strContent) Then
			strValue = .Execute(strContent).Item(0).Submatches.Item(0)
			
			WScript.Echo "Found value [" & strValue & "]."
			' Здесь Ваш код по отправке найденного текста
		Else
			WScript.Echo "Can't find pattern [" & .Pattern & "] in content of [" & strSourceFile & "]."
		End If
	End With
Else
	WScript.Echo "Can't find source file [" & strSourceFile & "]."
	WScript.Quit 1
End If

Set objFSO = Nothing

WScript.Quit 0

Учтите — в выложенном файле найденное значение содержит в начале пробел:

Код:

Found value [ 39383196].

Он значим для Вас, или убрать возможные пробелы с начала/конца найденного текста?

[bugmenot3]

Извиняюсь за наглость, помогите пожалуйста эти два кода склеить, что-то у меня проблемы с синтаксисом

[Iska]

Пробуйте:

читать дальше »

Код:

Option Explicit

Dim strSourceFile
Dim strUrl

Dim objFSO
Dim strContent
Dim strValue


strSourceFile = "E:\Песочница\0401\Full.log"
strUrl        = "http://www.site.ru/gate.php?id= "

Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")

If objFSO.FileExists(strSourceFile) Then
	With objFSO.OpenTextFile(strSourceFile)
		strContent = .ReadAll()
		.Close
	End With
	
	With WScript.CreateObject("VBScript.RegExp")
		.Pattern = "\(\)#4\s*?(\S.*\S)\s*?\r\n"
		
		If .Test(strContent) Then
			strValue = .Execute(strContent).Item(0).Submatches.Item(0)
			
			WScript.Echo "Found value [" & strValue & "]."
			
			With WScript.CreateObject("WinHttp.WinHttpRequest.5.1")
				.Open "GET", Replace(strUrl, " ", strValue), False
				.Send
				
				If .Status = 200 Then
					WScript.Echo "Send successfully. Status: " & CStr(.Status)
				Else
					WScript.Echo "Error send. Status: " & CStr(.Status)
				End If
			End With
		Else
			WScript.Echo "Can't find pattern [" & .Pattern & "] in content of [" & strSourceFile & "]."
		End If
	End With
Else
	WScript.Echo "Can't find source file [" & strSourceFile & "]."
	WScript.Quit 1
End If

Set objFSO = Nothing

WScript.Quit 0

А что с этим:

Учтите — в выложенном файле найденное значение содержит в начале пробел: Код: Found value [ 39383196]. Он значим для Вас, или убрать возможные пробелы с начала/конца найденного текста? »

вопросом? Я своей волей убрал. Вернуть прежнее поведение?

И, по-хорошему, надо делать «decodeURI()» для отсылаемой строки — как раз на случай пробелов, всяких «/» и т.п. Что скажете?

[bugmenot3]

возвращать прежнее поведение не нужно, меньше пробелов, меньше непонятных проблем

[Iska]

возвращать прежнее поведение не нужно, меньше пробелов, меньше непонятных проблем »

Лады. А как насчёт:

И, по-хорошему, надо делать «decodeURI()» для отсылаемой строки — как раз на случай пробелов, всяких «/» и т.п. Что скажете? »

На самом деле, encodeURI(), конечно . «Совсем плохой стал» (с), encodeURIComponent .