Спасибо большое за внимание.
этот код у меня ошибку выдаёт
With CreateObject("Scripting.FileSystemObject") :
.OpenTextFile("C:\index.htm", 2, True).Write Replace(.OpenTextFile("C:\code.txt",,,-1).ReadAll, "@", "") :
End With :нужную мне часть
В который раз повторяю: опишите принципы, по которым Вы определяете нужную Вам часть.
]]>DarkJoker1992, великолепно. Теперь дело осталось за малым:
2. Указали принципы — в деталях — по которым будет происходить поиск и отбор информации.
рассказать-таки — по каким принципам мы выбираем один определённый «npsa=4000213» среди прочих.
имеется сервер где расположены файлы и html файл, который в определённое время,генерирует данные и меняет часть кода, мне нужно забирать нужную мне часть.
]]>2. Указали принципы — в деталях — по которым будет происходить поиск и отбор информации.
рассказать-таки — по каким принципам мы выбираем один определённый «npsa=4000213» среди прочих.
]]>Чтобы «подсказать код» надо, чтобы:
1. Вы упаковали в архив и выложили на RGhost образец реального файла.
2. Указали принципы — в деталях — по которым будет происходить поиск и отбор информации.Пока мы вертимся всё вокруг да около непонятно чего.
реальный образец не могу показать, так как он служит для работы и абсолютно анонимный мы его купили.
Вот пример
<html class="no-js"
<!--
<globe-environment environment="prod" application="globe" dataCenter="ny" serverName="nyglobe1" />
<globe-server version="1.14.0" vendor="" title="Globe Server" />
<globe-resources version="1.14.0" loadStartTime="1416353282307" loadTimeTaken="1659" />
npsa=4000213
-->
=============================================
дальше идёт код который мне не нужен и там тоже есть
npsa=4000213
<head>1. Вы упаковали в архив и выложили на RGhost образец реального файла.
2. Указали принципы — в деталях — по которым будет происходить поиск и отбор информации.
Пока мы вертимся всё вокруг да около непонятно чего.
]]> With CreateObject("Scripting.FileSystemObject") :
.OpenTextFile("C:\index.htm", 2, True).Write Replace(.OpenTextFile("C:\code.txt",,,-1).ReadAll, "@", "") :
End With :Option Explicit
Dim strSourceFile
Dim strDestFile
Dim strContent
strSourceFile = "E:\Песочница\0409\0001.txt"
strDestFile = "E:\Песочница\0409\0002.txt"
With WScript.CreateObject("Scripting.FileSystemObject")
If .FileExists(strSourceFile) Then
If .FolderExists(.GetParentFolderName(strDestFile)) Then
With .OpenTextFile(strSourceFile)
strContent = .ReadAll()
.Close
End With
With WScript.CreateObject("VBScript.RegExp")
.Pattern = ".*?(<html>[\s\S]*4000213).*"
.IgnoreCase = True
If .Test(strContent) Then
strContent = .Execute(strContent).Item(0).Submatches.Item(0)
End If
End With
With .CreateTextFile(strDestFile, True)
.Write strContent
.Close
End With
Else
WScript.Echo "Destination folder [" & .GetParentFolderName(strDestFile) & "] not exists."
WScript.Quit 2
End If
Else
WScript.Echo "Source file [" & strSourceFile & "] not found."
WScript.Quit 1
End If
End With
WScript.Quit 0
Если нужен не «жадный» поиск (например, не последний найдённый «4000213», а первый), используйте «.Pattern = ".*?(<html>[\s\S]*?4000213).*"».
]]>