|
Read in file
Looks for line in fil and returns next line until line is empty.
Const ForReading = 1
Set objDictionary = CreateObject("Scripting.Dictionary")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile("c:\temp\test.txt", ForReading)
i = 0
Do Until objTextFile.AtEndOfStream
strNextLine = objTextFile.Readline
if strNextLine = "[OtherItems]" then
strNextLine =objTextFile.ReadLine
do While strNextLine <> ""
msgbox strNextLine
strNextLine =objTextFile.ReadLine
loop
end if
Loop
objTextFile.Close
|
