Follow @dporton

JustCode : Loop File a character at a time

This JustCode script shows us how to open a file in read-only mode and loop through it a character at a time.

 ' ****************************************
' Designed by : Smarter Dimensions
' Last Updated : 24th July 2009
' Loop File a character at a time.
' ****************************************

Dim oFSO, oFile

Set oFSO = CreateObject("Scripting.FileSystemObject")

Set oFile = oFSO.OpenTextFile("C:\temp\test.txt",1,false,0)

Do While oFile.AtEndOfStream = false
debug.Log(oFile.Read(1))
Loop


oFile.Close()
%d bloggers like this: