konsola vbscript çıkışı


Yanıtlar:


311

Diyorsun ki:

Wscript.Echo "Like this?"

Bunu wscript.exe(.vbs uzantısı için varsayılan işleyici altında çalıştırırsanız , komut dosyasını çift tıklarsanız ne elde edersiniz), metninizle birlikte bir "MessageBox" iletişim kutusu alırsınız. Bunu altında çalıştırırsanız cscript.exekonsol pencerenizden çıktı alırsınız.


1
Doğrudan WScript.exe işlevi kullanabilir MsgBox("text")veya MsgBox(object.property)ancak Wscript.Echoyazma daha kolaydır. Teşekkürler.
m3nda

22
Kasıtsız olarak benim için, veya üzerinden koşuyor olmanız WScript.Echo gerekir . Olduğunu, orada değil bir , durumda gelecek Google'cılar merak ediyorum. ( Msgboxes [ile çalıştırıldığında ] gitti çok mutlu , ancak; teşekkürler.)WScriptCScriptCScript.Echocscript
ruffin

1
@GabrielStaples - Stokta yok WScript.Echo. Tamamen WScript içinde kalmak istiyorsanız, MessageBox'ı kapatmak için üst sürece bir "SendKeys" yapmak için başka bir işlem yürütme gibi korkunç bir şey yapabileceğinizi varsayalım.
Evan Anderson

4
Aslında bu popupyöntemi buldum . Çok benzer, echoancak açılır pencereyi otomatik olarak kapatacak bir zaman aşımı belirtmenize izin verir. Çok kullanışlı ve kullanımı kolay: technet.microsoft.com/en-us/library/ee156593.aspx
Gabriel Staples

63

Bu, Dragon-IT Scriptleri ve Kod Deposunda bulundu .

Bunu aşağıdakilerle yapabilir ve cscript / wscript farklılıklarından uzak durabilir ve toplu iş dosyasıyla aynı konsol çıktısını elde etmenizi sağlar. Bu toplu iş dosyasından VBS arama ve sorunsuz görünmesi gerekiyorsa yardımcı olabilir.

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."

5
Komut dosyası çift tıklatılarak başlatılır ve bu nedenle wscript ile açılırsa, komut dosyası bir hata iletisiyle sonuçlanır: "Geçersiz İşlemci".
Bernhard Hiller

6
@Bernhard: Komut dosyasını wscript.exe kullanarak çalıştırırsanız bu hatayı alıyorsunuz. Wscript, pencere yönelimlidir ve konsol akışı yoktur. Bunun yerine cscript.exe'yi kullanın: technet.microsoft.com/en-us/library/bb490816.aspx
Axel Kemper

20
@BernhardHiller geçerli bir noktaya sahip. Bu cevabın itici gücü stdout kullanmanın CScript / WScript farklılıklarından kaçınmasıdır. Bu yanlış. Bu çözüm hala yalnızca CScript.exe altında çalışır, bu yüzden sadece kullanmanın fazla bir yararı yoktur WScript.Echo. Aslında, fark büyütülür, çünkü komut dosyası artık WScript altında çalışmaz. Kullanımları olan geçerli bir tekniktir, örneğin StdErr'e yazmak gerekiyorsa, ancak bu cevap bağlamında yanıltıcıdır.
Tim Long

3
Ben biraz üzerinde bu yöntemin yararı kadar hafif istiyoruz WScript.Echo: cscript //b foobar.vbs çalıştırır foobar.vbsherhangi konsol çıkışı olmadan, ama geçerken Rob yöntemiyle hatta çıkış olabilir \\biçincscript.exe
S. Razi

24

Sadece wscript yerine cscript'i zorlamanız gerekir. Her zaman bu şablonu kullanıyorum. ForceConsole () işlevi vbs'nizi cscript'e uygulayacaktır, ayrıca metin yazdırmak ve taramak için güzel bir takma adınız vardır.

 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)

Asıl soruyu cevapladığından emin misiniz ?
dakab

Evet, yalnızca ForceConsole'u () çağırın ve ardından çıktı konsolundaki metni yazdırmak için printf () öğesini kullanın. Ayrıca ekranı temizlemek, metni taramak ve beklemek (uyku) için başka takma
adınız da var

1
Şimdiye kadarki en iyi çözüm, teşekkür ederim, ancak yalnızca "ForceConsole" işlevi önemlidir, "printf" ve geri kalanı tamamen gereksizdir, çünkü Wscript.exe örneğindeki geçerli komut dosyasını kapatmaya zorlarsanız ve ardından yeni bir cscript.exe örneği çalıştırırsanız geçerli betiği, ardından Wscript.Echo bu konsol örneğine çıktı verecektir ...
ElektroStudios

6

Bu yazıyla karşılaştım ve bir süre önce @ MadAntrax'ınkine benzeyen bir yaklaşıma geri döndüm.

Ana fark, CScript'e geçmek ve konsola metin çıkışı için tüm mantığı sarmak için VBScript kullanıcı tanımlı bir sınıf kullanmasıdır, böylece ana komut dosyasını biraz daha temiz hale getirir.

Bu, hedefinizin çıktıyı ileti kutularına gitmek yerine konsola iletmek olduğunu varsayar.

CCONSOLE sınıfı aşağıdadır. Kullanmak için, sınıfın tamamını komut dosyanızın sonuna ekleyin ve ardından komut dosyasının başlangıcında hemen başlatın. İşte bir örnek:

    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

İşte cCONSOLE sınıfının kodu

     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

3

Konsola metin çıkışı için beş yol vardır:

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"

WScript.Echo, yalnızca komut dosyası cscript.exe kullanılarak başlatılırsa konsola çıkacaktır. Wscript.exe kullanılarak başlatılırsa ileti kutularına gönderilir.

WScript.StdOut.Write ve WScript.StdOut.WriteLine her zaman konsola gönderilir.

StdOut.Write ve StdOut.WriteLine de her zaman konsola gönderilir. Ekstra nesne oluşturma gerektirir, ancak WScript.Echo'dan yaklaşık% 10 daha hızlıdır.


1
... ve önceki yanıtların yorumunda belirtildiği gibi, bu wscript.exe ile yürütülürken çalışmaz: stackoverflow.com/questions/4388879/…
maxxyme

Ayrıca GetStandardStream () vs WScript.StdIn / .StdOut / .StdErr hakkında bir açıklama da bulundu: "Özetle VBScript: Masaüstü Hızlı Başvuru (2. Baskı)" books.google.fr/books?id=NLpuZSatG3QC sayfa 298 diyor ki " işlev eşdeğeri ".
maxxyme
Sitemizi kullandığınızda şunları okuyup anladığınızı kabul etmiş olursunuz: Çerez Politikası ve Gizlilik Politikası.
Licensed under cc by-sa 3.0 with attribution required.