Vbscript I/O műveletek

From Joe

(Difference between revisions)
(Parancssori paraméterek olvasása)
 
(2 intermediate revisions not shown)
Line 4: Line 4:
Értékadás változóba kézzel. Input ablak jelenik meg, az aposztrófban megadott szöveggel. A második paraméterben az ablak szövege adható meg, a harmadik paraméter lesz a változó alapértelmezett értéke.A bevitt adatot a '''valtozo''' kapja meg
Értékadás változóba kézzel. Input ablak jelenik meg, az aposztrófban megadott szöveggel. A második paraméterben az ablak szövege adható meg, a harmadik paraméter lesz a változó alapértelmezett értéke.A bevitt adatot a '''valtozo''' kapja meg
  valtozo = InputBox("Kérem az adatot:","Adatveviteli ablak","Próbaadat")
  valtozo = InputBox("Kérem az adatot:","Adatveviteli ablak","Próbaadat")
 +
 +
===Parancssori paraméterek olvasása===
 +
A példa a parancssor két paraméterét olvassa, és ablakba teszi ki. Kevesebb paraméter megadása esetén hibaüzenet keletkezik.<br>
 +
'''Vbscipt program'''<br>
 +
run.vbs kódja:
 +
Set oWsh = CreateObject("WScript.Shell")
 +
Set oArgs = WScript.Arguments
 +
Wscript.Echo " 1.paraméter=" & oArgs(0) & " 2.paraméter=" & oArgs(1)
 +
'''Program hívása'''<br>
 +
Hívó parancssor: '''run.vbs param1 param2'''
 +
'''programfutás eredménye:'''<br>
 +
1.paraméter=param1 2.paraméter=param2
 +
 +
[[category:Vbscript]]

Current revision as of 20:05, 2 March 2008

[edit] Input ablak

Értékadás változóba kézzel. Input ablak jelenik meg, az aposztrófban megadott szöveggel. A bevitt adatot a valtozo kapja meg

valtozo = InputBox("Kérem az adatot:")

Értékadás változóba kézzel. Input ablak jelenik meg, az aposztrófban megadott szöveggel. A második paraméterben az ablak szövege adható meg, a harmadik paraméter lesz a változó alapértelmezett értéke.A bevitt adatot a valtozo kapja meg

valtozo = InputBox("Kérem az adatot:","Adatveviteli ablak","Próbaadat")

[edit] Parancssori paraméterek olvasása

A példa a parancssor két paraméterét olvassa, és ablakba teszi ki. Kevesebb paraméter megadása esetén hibaüzenet keletkezik.
Vbscipt program
run.vbs kódja:

Set oWsh = CreateObject("WScript.Shell")
Set oArgs = WScript.Arguments
Wscript.Echo " 1.paraméter=" & oArgs(0) & " 2.paraméter=" & oArgs(1)

Program hívása
Hívó parancssor: run.vbs param1 param2 programfutás eredménye:

1.paraméter=param1 2.paraméter=param2
Personal tools