Kirjautuminen

Haku

Tehtävät

Keskustelu: Koodit: VB.NET: CHOICE -käsky vb:llä

ErroR++ [30.06.2011 10:52:10]

#

Eli kun tätä yksinkertaista ohjelmaa kutsuu vaikka komentoriviltä/batista, niin pitäisi sen sitten kirjoittaa komentoriville ensimmäinen sille annettu parametri ja verrata käyttäjän painamiin näppäimiin sille seuraavina annettuja parametreja (käyttöesimerkki myöhemmin).
Tämä on konsoliohjelma.

 Sub Main()
    Dim parametrit() As String = System.Environment.GetCommandLineArgs() 'parametrit
    System.Console.Write(Replace(parametrit(1), "_", " ")) 'korvataan ekasta parametrista alayhdysviivat välilyönneillä ja printataan koko homma
    Dim k As System.ConsoleKeyInfo 'nappula mitä on painettu
    Do
        k = System.Console.ReadKey() 'odotetaan näppäimenpainallusta
        For i = 2 To parametrit.Length - 1 'käydään silmukassa läpi loput parametrit
            If k.KeyChar = parametrit(i) Then System.Environment.Exit(i - 1) 'jos nappula löytyy parametreista, poistutaan ja käyttäydytään choicen tavoin
        Next
    Loop 'loopataan jos ei tullut oikeaa näppäintä
End Sub

Käyttö:

@ECHO OFF
Choice Valitse_kyllä_(k)_tai_ei_(e). k e
ECHO.
IF %ERRORLEVEL% == 1 ECHO Valitsit kyllä.
IF %ERRORLEVEL% == 2 ECHO Valitsit ei.
PAUSE >NUL

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Tietoa sivustosta