Vbscript

From Joe

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

Contents 1 Parancssori paraméterek olvasása 1.1 Vbscipt program 1.2 Program hívása 2 Fájl létrehozása 3 Fájl létrehozása időbélyeggel 4 Fájl felolvasá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.

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

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