Vbscript
From Joe
Vbscript programozási példák alapvető példák
Contents |
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
