콘솔에 대한 vbscript 출력

콘솔에 대한 vbscript 출력

vbscript를 사용하여 콘솔에 결과를 출력하는 가장 빠른 명령 또는 방법은 무엇입니까?

즉, 다음과 같습니다.

WScript.Echo "Like this?"

만약 당신이 그것을 아래에 실행한다면.wscript.exe(스크립트를 두 번 클릭하면 나타나는 .vbs 확장자의 기본 핸들러) 텍스트가 포함된 "MessageBox" 대화 상자가 나타납니다.만약 당신이 그것을 아래에 실행한다면.cscript.exe콘솔 창에 출력이 표시됩니다.

이 문제는 Dragon-IT Scripts 및 Code Repository에서 발견되었습니다.

다음을 사용하여 이 작업을 수행하고 cscript/wscript 차이를 피하면 배치 파일과 동일한 콘솔 출력을 얻을 수 있습니다.이 기능은 배치 파일에서 VBS를 호출하여 원활하게 만들어야 하는 경우에 유용합니다.

Set fso = CreateObject ("Scripting.FileSystemObject")
Set stdout = fso.GetStandardStream (1)
Set stderr = fso.GetStandardStream (2)
stdout.WriteLine "This will go to standard output."
stderr.WriteLine "This will go to error output."

당신은 wscript 대신 cscript만 강제하면 됩니다.저는 항상 이 템플릿을 사용합니다.ForceConsole() 함수는 vbs를 cscript로 실행하고 텍스트를 인쇄하고 스캔할 수 있는 좋은 별칭을 가지고 있습니다.

 Set oWSH = CreateObject("WScript.Shell")
 vbsInterpreter = "cscript.exe"

 Call ForceConsole()

 Function printf(txt)
    WScript.StdOut.WriteLine txt
 End Function

 Function printl(txt)
    WScript.StdOut.Write txt
 End Function

 Function scanf()
    scanf = LCase(WScript.StdIn.ReadLine)
 End Function

 Function wait(n)
    WScript.Sleep Int(n * 1000)
 End Function

 Function ForceConsole()
    If InStr(LCase(WScript.FullName), vbsInterpreter) = 0 Then
        oWSH.Run vbsInterpreter & " //NoLogo " & Chr(34) & WScript.ScriptFullName & Chr(34)
        WScript.Quit
    End If
 End Function

 Function cls()
    For i = 1 To 50
        printf ""
    Next
 End Function

 printf " _____ _ _           _____         _    _____         _     _   "
 printf "|  _  |_| |_ ___ ___|     |_ _ _ _| |  |   __|___ ___|_|___| |_ "
 printf "|     | | '_| . |   |   --| | | | . |  |__   |  _|  _| | . |  _|"
 printf "|__|__|_|_,_|___|_|_|_____|_____|___|  |_____|___|_| |_|  _|_|  "
 printf "                                                       |_|     v1.0"
 printl " Enter your name:"
 MyVar = scanf
 cls
 printf "Your name is: " & MyVar
 wait(5)

콘솔에 텍스트를 출력하는 다섯 가지 방법이 있습니다.

Dim StdOut : Set StdOut = CreateObject("Scripting.FileSystemObject").GetStandardStream(1)

WScript.Echo "Hello"
WScript.StdOut.Write "Hello"
WScript.StdOut.WriteLine "Hello"
Stdout.WriteLine "Hello"
Stdout.Write "Hello"

W스크립트.스크립트가 cscript.exe를 사용하여 시작된 경우에만 에코가 콘솔로 출력됩니다.wscript.exe를 사용하여 시작하면 메시지 상자에 출력됩니다.

W스크립트.StdOut.Write 및 WScript.StdOut.WriteLine은 항상 콘솔로 출력됩니다.

StdOut.Write 및 StdOut.또한 WriteLine은 항상 콘솔에 출력됩니다.추가 객체 생성이 필요하지만 WScript보다 약 10% 더 빠릅니다.메아리.

저는 이 게시물을 우연히 발견하고 얼마 전에 사용했던 @MadAntrax의 접근법과 유사한 접근법으로 돌아갔습니다.

주요 차이점은 VBScript 사용자 정의 클래스를 사용하여 CScript로 전환하고 텍스트를 콘솔로 출력하기 위한 모든 논리를 래핑하므로 메인 스크립트가 약간 깨끗해집니다.

이는 출력을 메시지 상자로 보내는 것이 아니라 콘솔로 출력을 스트리밍하는 것이 목적이라고 가정합니다.

cCONSOLE 클래스는 아래와 같습니다.이 클래스를 사용하려면 스크립트 끝에 전체 클래스를 포함한 다음 스크립트 시작 부분에서 인스턴스화합니다.다음은 예입니다.

    Option Explicit

'// Instantiate the console object, this automatically switches to CSCript if required
Dim CONS: Set CONS = New cCONSOLE

'// Now we can use the Consol object to write to and read from the console
With CONS

    '// Simply write a line
     .print "CSCRIPT Console demo script"

     '// Arguments are passed through correctly, if present
     .Print "Arg count=" & wscript.arguments.count

     '// List all the arguments on the console log
     dim ix
     for ix = 0 to wscript.arguments.count -1
        .print "Arg(" & ix & ")=" & wscript.arguments(ix)
     next

     '// Prompt for some text from the user
     dim sMsg : sMsg = .prompt( "Enter any text:" )

     '// Write out the text in a box
     .Box sMsg

     '// Pause with the message "Hit enter to continue"
     .Pause

End With     




'= =========== End of script - the cCONSOLE class code follows here

다음은 cCONSOLE 클래스의 코드입니다.

     CLASS cCONSOLE
 '= =================================================================
 '= 
 '=    This class provides automatic switch to CScript and has methods
 '=    to write to and read from the CSCript console. It transparently
 '=    switches to CScript if the script has been started in WScript.
 '=
 '= =================================================================

    Private oOUT
    Private oIN


    Private Sub Class_Initialize()
    '= Run on creation of the cCONSOLE object, checks for cScript operation


        '= Check to make sure we are running under CScript, if not restart
        '= then run using CScript and terminate this instance.
        dim oShell
        set oShell = CreateObject("WScript.Shell")

        If InStr( LCase( WScript.FullName ), "cscript.exe" ) = 0 Then
            '= Not running under CSCRIPT

            '= Get the arguments on the command line and build an argument list
            dim ArgList, IX
            ArgList = ""

            For IX = 0 to wscript.arguments.count - 1
                '= Add the argument to the list, enclosing it in quotes
                argList = argList & " """ & wscript.arguments.item(IX) & """"
            next

            '= Now restart with CScript and terminate this instance
            oShell.Run "cscript.exe //NoLogo """ & WScript.ScriptName & """ " & arglist
            WScript.Quit

        End If

        '= Running under CScript so OK to continue
        set oShell = Nothing

        '= Save references to stdout and stdin for use with Print, Read and Prompt
        set oOUT = WScript.StdOut
        set oIN = WScript.StdIn

        '= Print out the startup box 
            StartBox
            BoxLine Wscript.ScriptName
            BoxLine "Started at " & Now()
            EndBox


    End Sub

    '= Utility methods for writing a box to the console with text in it

            Public Sub StartBox()

                Print "  " & String(73, "_") 
                Print " |" & Space(73) & "|"
            End Sub

            Public Sub BoxLine(sText)

                Print Left(" |" & Centre( sText, 74) , 75) & "|"
            End Sub

            Public Sub EndBox()
                Print " |" & String(73, "_") & "|"
                Print ""
            End Sub

            Public Sub Box(sMsg)
                StartBox
                BoxLine sMsg
                EndBox
            End Sub

    '= END OF Box utility methods


            '= Utility to center given text padded out to a certain width of text
            '= assuming font is monospaced
            Public Function Centre(sText, nWidth)
                dim iLen
                iLen = len(sText)

                '= Check for overflow
                if ilen > nwidth then Centre = sText : exit Function

                '= Calculate padding either side
                iLen = ( nWidth - iLen ) / 2

                '= Generate text with padding
                Centre = left( space(iLen) & sText & space(ilen), nWidth )
            End Function



    '= Method to write a line of text to the console
    Public Sub Print( sText )

        oOUT.WriteLine sText
    End Sub

    '= Method to prompt user input from the console with a message
    Public Function Prompt( sText )
        oOUT.Write sText
        Prompt = Read()
    End Function

    '= Method to read input from the console with no prompting
    Public Function Read()
        Read = oIN.ReadLine
    End Function

    '= Method to provide wait for n seconds
    Public Sub Wait(nSeconds)
        WScript.Sleep  nSeconds * 1000 
    End Sub

    '= Method to pause for user to continue
    Public Sub Pause
        Prompt "Hit enter to continue..."
    End Sub


 END CLASS

다음 코드를 사용하여 .vbs를 생성하면 기본 .vbs가 열립니다.

Set objShell = WScript.CreateObject("WScript.shell") 
objShell.Run "cscript.exe ""C:\QuickTestb.vbs"""

여기 제 메인 .vbs가 있습니다.

Option Explicit
Dim i
for i = 1 To 5
     Wscript.Echo i
     Wscript.Sleep 5000
Next

이 스크립트를 실행하여 명령줄에서 에코할 수 있습니다.

set wshShell = createObject("wscript.shell")
    wshShell.run"cmd.exe /c echo something",1

콘솔 출력의 경우 잘못된 런타임에 실행되면 우아하게 종료되는 스니펫을 사용합니다. (그리고 인쇄는 입력하기에 더 짧습니다...)

Sub print(s) 
  On Error Resume Next
  WScript.stdout.WriteLine (s)  
  If  err= &h80070006& Then WScript.Echo " Please run this script with CScript": WScript.quit
End Sub
 
print "hello"

언급URL : https://stackoverflow.com/questions/4388879/vbscript-output-to-console