|
|
| (14 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. |
| - | | + | |
| - | ===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'''<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 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
| + | |
