Vbscript

From Joe

(Difference between revisions)
(vWWsnVbcDhkfTdIJVt)
 
(16 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====
+
-
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
+

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