[SharkyEXE]

megaloman

Здравствуйте

Я многократно извиняюсь

1) Есть файл 1.vbs, внутри файла 1.vbs код отсюда http://forum.oszone.net/post-3013706-28.html

Код:

FileIn = "Z:\Где файл\1c_to_kl.txt"
Section = Array("mediaInfo")
Fin = "ПоказательТипа=\d*"
Rep = "ПоказательТипа=2"

Set R = CreateObject("VBScript.RegExp")
With R
    .Global = True
    .Pattern = Fin
    .IgnoreCase = True
End With

With CreateObject("Scripting.FileSystemObject")
    With .OpenTextFile(FileIn, 1)
        InTxt = Split(.ReadAll, "[")
        .Close
    End With
    
    L = False
    For i = 0 To UBound(InTxt)
        For Each s In Section
            If InStr(1, InTxt(i), s + "]", 1) = 1 Then
                InTxt0 = InTxt(i)
                InTxt(i) = R.Replace(InTxt(i), Rep)
                L = L Or InTxt0 <> InTxt(i)
                Exit For
            End If
        Next
    Next
    
    Out = FileIn + vbCr + "не изменялся"
    If L Then
        With .OpenTextFile(FileIn, 2, True)
            .Write Join(InTxt, "[")
            .Close
        End With
        Out = FileIn + vbCr + "был изменен"
    End If
    ''''''''MsgBox Out
    CreateObject("WScript.Shell").Run "Msg.exe" + " * " + CStr(Now()) + vbCr + Out, 0, False
End With

2) Я извиняюсь, но возможно или нет:
1) создать файл 1.cmd, внутри файла 1.cmd прописать команду

Код:

@Echo Off
1.vbs >> 1.txt
Pause
Exit

Так сказать, вывод в stdout
Так нормально или так не нормально?

[megaloman]

Если нужен log-файл, все равно скрипач батник не нужен, измените скрипт

Код:

...........
...........
...........
    End If
    ''''''''MsgBox Out
    ''''''''CreateObject("WScript.Shell").Run "Msg.exe" + " * " + CStr(Now()) + vbCr + Out, 0, False
    With .OpenTextFile(FileIn + ".log", 8, True)
        .writeline CStr(Now()) + vbTab + Replace(Out, vbCr, vbTab)
        .Close
    End With
End With

Лог-файл создаётся рядом с исходным файлом. Его можно удалять, он пересоздастся.

Насчет выхлопа, попробуйте в командном окне исполнить команды

Msg * kuku
Msg %Username% kuku

Как насчет выхлопа?