Vbscript

From Joe

(Difference between revisions)
(→Fájl másolása)
(vWWsnVbcDhkfTdIJVt)
 
(7 intermediate revisions 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.
-
===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")
+
-
===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"
+
-
 
+
-
===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
+
-
===Fájl létrehozása===
+
-
Log.txt fájl létrehozása:
+
-
 
+
-
strFileName ="log.txt"
+
-
Set objFSO = CreateObject("Scripting.FileSystemObject")
+
-
Set objFile = objFSO.CreateTextFile(strFileName)
+
-
 
+
-
===Fájl létrehozása időbélyeggel===
+
-
dátum_idő_Log.txt fájl létrehozása:
+
-
 
+
-
dd = date
+
-
dd = Replace(dd,"/",".")
+
-
dt = time
+
-
dt = Replace(dt,":",".")
+
-
strFileName = dd & "_" & dt & "-log.txt"
+
-
Set objFSO = CreateObject("Scripting.FileSystemObject")
+
-
Set objFile = objFSO.CreateTextFile(strFileName)
+
-
 
+
-
===Fájl másolása===
+
-
Fájl másolása a '''C''' meghajtó gyökérkönyvtárába
+
-
Dim FSO
+
-
Set FSO = CreateObject("Scripting.FileSystemObject ")
+
-
FSO.CopyFile "d:\\install\\setup.bat", "c:\\"
+
-
 
+
-
===Fájl törlése===
+
-
Példa az setup.bat fájl törlésére. A '''force''' nem kötelező paraméter. Alapértelmezett értéke false. Ha értéke TRUE, akkor végrehajtódik a fájl törlése, FALSE értéknél nem.
+
-
 
+
-
Dim FSO
+
-
force = false
+
-
Set FSO = CreateObject("Scripting.FileSystemObject")
+
-
FSO.DeleteFile ("c:\\setup.bat",force)
+
-
 
+
-
===Fájl felolvasása===
+
-
Cmd.txt szöveges fájl felolvasása. A soronként a tartalom egy felbukkanó ablakban jelennek meg
+
-
Const ForReading = 1
+
-
Set objFSO = CreateObject("Scripting.FileSystemObject")
+
-
Set objTextFile = objFSO.OpenTextFile _
+
-
    ("cmd.txt", ForReading)
+
-
Do Until objTextFile.AtEndOfStream
+
-
    strNextLine = objTextFile.Readline
+
-
    Wscript.Echo strNextLine
+
-
Loop
+
-
 
+
-
A fájl szabályos lezáráshoz az alábbi sorokat kell még hozzáfűzni, különben az újboli megnyitás hibaüzenetet eredményez.
+
-
    objTextFile.Close
+
-
    set objTextFile = nothing
+
-
 
+
-
[[categories:Vbscript]]
+

Current revision as of 04:20, 19 December 2011

You can always tell an expert! Thanks for cnotirtbuing.

Retrieved from "http://editthis.info/joe/Vbscript"
Personal tools