Read Text from File

[jaylaban]

I am looking for a sample script. I am trying to read a text file line by line (parse) and spit each line into a different variable using vbs. Can anyone Help.

Thanks in Advance,
Jayson

 

[PerlIsGood]

Set fso = Application.CreateObject("Scripting.FileSystemObject")
strFile = "C:\Path\To\File\File.txt"

    If fso.FileExists(strFile) Then
         Set FilePath = fso.GetFile(strFile)
         Set OpenFile = FilePath.OpenAsTextStream(1)
             Do While Not OpenFile.AtEndOfStream
                 tmpStr = OpenFile.ReadLine
                 varArray = Split(tmpStr, "'--insert delimiter--'")
                 '--Do stuff with array here--'
             Loop
         OpenFile.Close
     End If

Hope that helped!

Oh wait...I think I misread that. Are you trying to put each individual Line into a separate value? Or break up each line...?

 

[jaylaban]

This looks great! I am trying to put each individual line into a seperate value.

 

[PerlIsGood]

Well, I'm sure someone will slap me if I'm wrong, but the code above is accomplishing what you'd like it to. Every time the Do Loop runs it pulls one line from the file and assigns it to the tmpStr variable.

While within the Do Loop, you can manipulate and test that variable all you want:

Do While Not OpenFile.AtEndOfStream
    tmpStr = OpenFile.ReadLine

' If you're testing each line as a complete
' string, you can omit the varArray line.

        If tmpStr(Test1) Then
        --do something--
        ElseIf tmpStr(Test2) Then
        --do something else--
        ElseIf tmpStr(Test3) Then
        --etc.--
        End If
Loop