Read from a text file. 3

[Curtis360it]

How in vbscript do you go about reading from a textfile?

The file is an example textfile, it will be dynamic in the amount of lines:

cwilliams@williamsit.com
jdoe@aol.com
sdodd@yahoo.com
etc.
etc.
etc.

 

[PHV]

Have a look here:

http://msdn.microsoft.com/library/en-us/script56/html/af4423b2-4ee8-41d6-a704-49926cd4d2e8.asp

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[Curtis360it]

Awesome, was looking for docs on the subject! Thanks!

 

[sparkbyte]

Something like this maybe.

Dim arrFileLines()
i = 0

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\FSO\ScriptLog.txt", 1)

Do Until objFile.AtEndOfStream
     Redim Preserve arrFileLines(i)
     arrFileLines(i) = objFile.ReadLine
     i = i + 1
Loop

objFile.Close

For l = Lbound(arrFileLines) to UBound(arrFileLines) Step 1
    Wscript.Echo arrFileLines(l)
Next

Thanks

John Fuhrman
Titan Global Services

http://www.titangs.com

 

[PHV]

John, if you really prefer to deal with arrays, then I suggest you to use the ReadAll method and the Split function.

 

[sparkbyte]

PHV, I didn't explore splitting the text up because he only said he wanted a way to read a text file. And the script was one I had handy.

One question for you PHV, if his file gets quite large isn't the ReadAll method more memory hungry then the Do Until AtEndofStream? I haven't ever tried to use the ReadAll with a large file before.

As PHV points out there are many way to do what you ask and the best method will depend on how you want to use what is in the text file being read and on how big the file is or will get.

Thanks PHV, I could have commented better!

Thanks

John Fuhrman
Titan Global Services

http://www.titangs.com

 

[PHV]

Redim Preserve arrFileLines(i)

Who was talking about memory stress ? ;-)

 

[sparkbyte]

Ooops, should have looked before typing.

Dim arrFileLines()
i = 0

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\FSO\ScriptLog.txt", 1)

Do Until objFile.AtEndOfStream
	WScript.Echo objFile.ReadLine
Loop

objFile.Close

Skipped the array.

Thanks

John Fuhrman
Titan Global Services

http://www.titangs.com

 

[sparkbyte]

OK, One using ReadAll.
Very simple, No text manipulation. Just display the contents of the array from the ReadAll.

Thanks again PHV, I will have to play with this some more and see if this will work better in one of my FTP scripts rather than the exist read stream to OEF. (Using it to pass multiple command line options to another script multiple times.)

FTP file location,UserName,Password,Institution

There are currently 25 lines being parsed.

Oh and the script uses the API for CuteFTP. Simple but neat and works well.

dim filesys, text, readfile, contents
set filesys = CreateObject("Scripting.FileSystemObject")
set readfile = filesys.OpenTextFile("C:\FSO\ScriptLog.txt", 1, false)
contents = readfile.ReadAll
readfile.close
WScript.Echo "The file contains the following text - " & vbCrLf &_
contents

Thanks

John Fuhrman
Titan Global Services

http://www.titangs.com

 

[dm4ever]

sparkbyte,

You are correct about using the loop for large files...some interesting read:

http://www.4guysfromrolla.com/webtech/010401-1.shtml

For those that use the ReadAll in conjunction with the Split function to create an array...just remember empty lines will result in elements with no values...so sometimes it is just safer to loop through the lines and act accordingly. It really depends on what you're trying to do.

--------------------------------------------------------------------------------
dm4ever
My philosophy: K.I.S.S - Keep It Simple Stupid

 

[sparkbyte]

Thanks for the link, I will add to to my library.

Thanks

John Fuhrman
Titan Global Services

http://www.titangs.com

 

[sparkbyte]

Raead, that is cool, thanks!!

Thanks

John Fuhrman
Titan Global Services

http://www.titangs.com