|
|
| (One intermediate revision not shown) |
| Line 1: |
Line 1: |
| - | '''Vbscript programozási példák''' alapvető példák
| + | You can always tell an expert! Thanks for cnotirtbuing. |
| - | | + | |
| - | * [[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
| + | |
| - | | + | |
| - | [[category:Vbscript]]
| + | |
