Vbscript
From Joe
(Difference between revisions)
| Line 3: | Line 3: | ||
===Parancssori paraméterek olvasása=== | ===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. | 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. | ||
| - | + | '''Vbscipt program''' | |
run.vbs kódja: | run.vbs kódja: | ||
Set oWsh = CreateObject("WScript.Shell") | Set oWsh = CreateObject("WScript.Shell") | ||
Set oArgs = WScript.Arguments | Set oArgs = WScript.Arguments | ||
Wscript.Echo " 1.paraméter=" & oArgs(0) & " 2.paraméter=" & oArgs(1) | Wscript.Echo " 1.paraméter=" & oArgs(0) & " 2.paraméter=" & oArgs(1) | ||
| - | + | '''Program hívása''' | |
Hívó parancssor: '''run.vbs param1 param2''' | Hívó parancssor: '''run.vbs param1 param2''' | ||
| + | '''programfutás eredménye:''' | ||
| + | 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 15:05, 4 February 2008
Vbscript programozási példák alapvető példák
Contents |
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. Vbscipt program 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 Hívó parancssor: run.vbs param1 param2 programfutás eredménye:
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 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
