Vbscript

From Joe

Revision as of 19:52, 2 March 2008 (edit) R-Joe (Talk | contribs) ← Previous diff		Revision as of 19:53, 2 March 2008 (edit) (undo) R-Joe (Talk | contribs) (→Parancssori paraméterek olvasása) Next diff →
Line 19:		Line 19:
	' tomb(2) tartalma: "szöveg"		' 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===		===Fájl létrehozása===
	Log.txt fájl létrehozása:		Log.txt fájl létrehozása:

---

Revision as of 19:53, 2 March 2008

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

• Vbscript I/O műveletek

Contents 1 Szöveg mezőkre bontása 2 Fájl létrehozása 3 Fájl létrehozása időbélyeggel 4 Fájl másolása 5 Fájl törlése 6 Fájl felolvasása

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"

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