Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ' Весь файл
- Set file = fso.OpenTextFile("C:\test.txt", 1)
- content = file.ReadAll
- ' Построчно
- Set dict = CreateObject("Scripting.Dictionary")
- Set file = fso.OpenTextFile ("c:\test.txt", 1)
- row = 0
- Do Until file.AtEndOfStream
- line = file.Readline
- dict.Add row, line
- row = row + 1
- Loop
- file.Close
- 'Loop over it
- For Each line in dict.Items
- WScript.Echo line
- Next
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement