From Joe
(Difference between revisions)
|
|
| Line 1: |
Line 1: |
| | '''Vbscript programozási példák''' alapvető példák | | '''Vbscript programozási példák''' alapvető példák |
| | | | |
| | + | * [[Vbscript fájl műveletek]] |
| | * [[Vbscript I/O műveletek]] | | * [[Vbscript I/O műveletek]] |
| | | | |
| Line 19: |
Line 20: |
| | ' tomb(2) tartalma: "szöveg" | | ' 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
| |
| | | | |
| | [[categories:Vbscript]] | | [[categories:Vbscript]] |
Revision as of 19:55, 2 March 2008
Vbscript programozási példák alapvető példák
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"
categories:Vbscript
