Vbscript
From Joe
(Difference between revisions)
(→Fájl felolvasása) |
|||
| Line 29: | Line 29: | ||
Wscript.Echo strNextLine | Wscript.Echo strNextLine | ||
Loop | 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 | ||
Revision as of 10:33, 2 February 2008
Vbscript programozási példák alapvető példák
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
