FSO -FileSystemObject... Reading word by word. 1

[annanathan]

Hi All,
Does anyone know how to read word by word from a file using FSO?

Another question... Is there a rewind or some similar function in FSO to go back to the line just read?

Thanks in advance.

 

[CCLINT]

Dim sChar As String
Dim sWord As String
Dim sCurrLine As String
Dim sPrevLine As String

Set f = fspenTextFile(sPATHandNAME_TFINI, IOMode:=ForReading)
Do Until f.AtEndOfStream = True
sChar = f.Read(1)

If sChar = " " Then

Debug.Print sWord

sWord = vbNullString

ElseIf sChar = vbCr Then
Debug.Print sWord

sWord = vbNullString
sPrevLine = sCurrLine
sCurrLine = vbNullString
sWord = vbNullString

ElseIf sChar = vbLf Or sChar = vbCrLf Then

Else
sWord = sWord & sChar
sCurrLine = sCurrLine & sChar
End If
Loop
f.Close
Set f=Nothing
Set fso=Nothing