Понятно.
]]>]]>
.]]>Уж это, надеюсь, сможете додумать?! Если нет, боюсь, что Вам поможет только самостоятельное изучение WSH.
В довесок к Вашим словам. 
greg zakharov,
P.S Представил себе ситуацию, если бы так поступали программисты, создающие ПО для управления атомными реакторами.
А потом работники АС в этом ПО тыкали бы все кнопки подряд - авось сработает. Я конечно тоже многое делаю методом проб и ошибок, но всё-таки для получения базовых знаний [ПМСМ], лучше почитать литературу.
скопировал ваш код в папку, поменял название из Запуск.bat в bat.bat как у вас, запустил и вылезла вот такая ошибка http://gyazo.com/9d8f863f0ed268ac8b3a2b09bff29813]]>(function() {
with (new ActiveXObject('WScript.Shell')) {
var top = ExpandEnvironmentStrings('%programfiles%\\1C\\'),
log = top + 'log.txt',
bat = top + 'bat.bat',
str, raw;
with (new ActiveXObject('Scripting.FileSystemObject')) {
if (!FileExists(log)) {
WScript.echo("Error: file does not exists.");
WScript.Quit(1);
}
str = OpenTextFile(log);
raw = str.ReadAll();
str.Close();
}
if (/(?!\**\=)\d+(?!=m)/i.exec(raw) !== null) {
//WScript.echo("Если есть цифра");
Run(bat);
}
else {
WScript.echo("Если нет цифр");
}
}
}());Уж это, надеюсь, сможете додумать?! Если нет, боюсь, что Вам поможет только самостоятельное изучение WSH.
]]>Option Explicit
Dim strSourceFile
Dim strContent
Dim WshShell,objFSO
Set WshShell = CreateObject("WScript.Shell")
set WshShell = WScript.CreateObject("WScript.Shell")
otchet = .ExpandEnvironmentStrings("%programfiles%")
strSourceFile = (otchet & "\1C\log.txt")
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 = "=M"
If .Test(strContent) Then
WScript.Echo "Найдена ошибка"
WshShell.Run (otchet & "\1С\Запуск.bat"), ,true
Else
WScript.Echo "Отчёт успешно сформирован"
WScript.Quit 1
End If
End With
Else
End If
Set objFSO = Nothing
WScript.Quit 0(function() {
var str1 = '****.=125M',
str2 = '*********.=M',
reg = /(?!\**\=)\d+(?!=m)/i,
res1 = reg.exec(str1),
res2 = reg.exec(str2);
WScript.echo("res1: " + res1 + "; res2: " + res2);
}());В случае с res1 получим число, с res2 - null. Моя идея в том, чтобы "забирать" число между знаков, а если такого нет, то возвращать null.
]]>]]>Вот прошу ссылка http://rghost.ru/private/58314573/9c215 … 1f2a327e2a
Option Explicit
Dim strSourceFile
Dim objFSO
Dim strContent
strSourceFile = "E:\Песочница\0399\тест.txt"
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 = "=M"
If .Test(strContent) Then
WScript.Echo "Nothing found between [=] and [M] in [" & strContent & "]."
Else
WScript.Echo "Somthing found between [=] and [M] or not found [=] and [M] in [" & strContent & "]."
End If
End With
Else
WScript.Echo "Can't find source file [" & strSourceFile & "]."
WScript.Quit 1
End If
Set objFSO = Nothing
WScript.Quit 0эммм -_- простите, а где указать файл для обработки?
Пока нигде. Вы ведь не выложили образец файла.
+ вы поставили числа strSample = "(*****.=12415M)" но имеется ввиду что числа между = и М каждый раз разные могут быть.
Проставьте в примере разные Ваши числа вместо «12415» в «strSample = "(*****.=12415M)"» и проверьте. Вы путаете шаблон («.Pattern») и примеры строк в «strSample». Поскольку Вы не выложили файл — откуда мне знать, что там может или не может быть в реальности?!
]]>]]>