Vbscript

From Joe

Revision as of 23:03, 8 March 2008 (edit) R-Joe (Talk | contribs) (→Szöveg mezőkre bontása) ← Previous diff		Revision as of 17:52, 15 March 2008 (edit) (undo) 88.209.199.162 (Talk) (→Külső program indítása) Next diff →
Line 25:		Line 25:
	Set futtato = CreateObject("WScript.Shell")		Set futtato = CreateObject("WScript.Shell")
	Set objExec = futtato.Exec("notepad")		Set objExec = futtato.Exec("notepad")
		+
		+	===Külső program indítása és várakozás a bezárásra===
		+	A Vbscript program a mindenkori bejelentkezett felhasználó jogosultságával fut. A példa egy egyszerű szöveges szerkesztőt a '''Notepad'''-ot indítja el. Az előző példa azzal a funkcióval bővült, hogy 100ms időközönként várakozik az elindított külső program státuszára. Amíg az fut, az értéke 0. Ha a státusz érték megváltozik, egy ablakban megjelenik a változó értéke.
		+
		+	Set futtato = CreateObject("WScript.Shell")
		+	Set objExec = futtato.Exec("notepad")
		+	Do While objExec.Status = 0
		+	WScript.Sleep 100
		+	Loop
		+	WScript.Echo "Visszatérési érték: " & objExec.Status
	[[category:Vbscript]]		[[category:Vbscript]]

---

Revision as of 17:52, 15 March 2008

Vbscript programozási példák alapvető példák

• Vbscript fájl műveletek
• Vbscript I/O műveletek

Szöveg mezőkre bontása

Szintaxis:

tömbváltozó = Split(szövegváltozó[, mezőválasztó[, szetetszám[, komparálási_mód]]])

szövegváltozó: string változó, amelyet mezőkre kell bontani mezőválasztó: Mezőket elválasztó karakter, melyek mentén a szöveg szétbomlik szetetszám: Megadja hogy hány részre bontsuk a szöveget. ha az érték -1, akkor a teljes szöveg szétbomlik. komparálási_mód: 0 esetén bináris komparálás, 1 esetén szöveges komparálás történik.

Példa:

Dim szoveg, tomb
szoveg = "Példa;VBScript;szöveg"
tomb = Split(szoveg, ";", -1, 1)
' tomb(0) tartalma: "Példa"
' tomb(1) tartalma: "VBScript"
' tomb(2) tartalma: "szöveg"

Külső program indítása

A Vbscript program a mindenkori bejelentkezett felhasználó jogosultságával fut. A példa egy egyszerű szöveges szerkesztőt a Notepad-ot indítja el.

Set futtato = CreateObject("WScript.Shell")
Set objExec = futtato.Exec("notepad")

Külső program indítása és várakozás a bezárásra

A Vbscript program a mindenkori bejelentkezett felhasználó jogosultságával fut. A példa egy egyszerű szöveges szerkesztőt a Notepad-ot indítja el. Az előző példa azzal a funkcióval bővült, hogy 100ms időközönként várakozik az elindított külső program státuszára. Amíg az fut, az értéke 0. Ha a státusz érték megváltozik, egy ablakban megjelenik a változó értéke.

Set futtato = CreateObject("WScript.Shell")
Set objExec = futtato.Exec("notepad")
Do While objExec.Status = 0
 WScript.Sleep 100
Loop
WScript.Echo "Visszatérési érték: " & objExec.Status