Vbscript

From Joe

Revision as of 17:52, 15 March 2008 (edit) 88.209.199.162 (Talk) (→Külső program indítása) ← Previous diff		Revision as of 04:20, 19 December 2011 (edit) (undo) 94.198.60.30 (Talk) (→Szöveg mezőkre bontása) Next diff →
Line 4:		Line 4:
	* [[Vbscript I/O műveletek]]		* [[Vbscript I/O műveletek]]
-	===Szöveg mezőkre bontása===	+	Well put, sir, well put. I'll cetrlainy make note of that.
-	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===		===Külső program indítása===

---

Revision as of 04:20, 19 December 2011

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

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

Well put, sir, well put. I'll cetrlainy make note of that.

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