Vbscript

(Difference between revisions)

Current revision as of 04:20, 19 December 2011

You can always tell an expert! Thanks for cnotirtbuing.

@@ Line 1: / Line 1: @@
-'''Vbscript programozási példák''' alapvető példák
+You can always tell an expert! Thanks for cnotirtbuing.
-===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