Solved

Read a file

Posted on 2006-11-15
5
175 Views
Last Modified: 2010-04-30
Hi guys,

I have a text file that has lines like these:

32/12/3312#__/__/____#__:__ __#__:__ __#1
31/23/123_#__/__/____#__:__ __#__:__ __#5
_3/12/312_#__/__/____#__:__ __#__:__ __#9

How can I read this file line by line?

Thanks.
0
Comment
Question by:RealSnaD
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
5 Comments
 
LVL 86

Accepted Solution

by:
Mike Tomlinson earned 500 total points
ID: 17951796
Something like...

    Dim ff As Long
    Dim fileName As String
    Dim inputLine As String
   
    ff = FreeFile
    fileName = "c:\someFile.txt"
    Open fileName For Input As #ff
    While Not EOF(ff)
        Line Input #ff, inputLine
       
        ' do something with "inputLine"...
        Debug.Print inputLine
    Wend
    Close #ff
0
 
LVL 1

Expert Comment

by:JReam
ID: 17951931

Dim fso As New FileSystemObject
Dim MyFile as File, inputLine$

Set MyFile = fso.OpenTextFile("c:\testfile.txt", ForReading)

While not MyFile.AtEndOfStream

   inputLine = MyFile.ReadLine

   Debug.Print inputLine

Wend

MyFile.Close


0
 
LVL 86

Expert Comment

by:Mike Tomlinson
ID: 17952024
For JReam's code to work, you need a reference to the Scripting Runtime.  Click on Project --> References and check the "Microsoft Scripting Runtime" entry.

Then you need to change the declaration for the "MyFile" variable as it should be a "TextStream" and not a "File":

    Dim fso As New FileSystemObject
    Dim MyFile As TextStream
    Dim inputLine As String
   
    Set MyFile = fso.OpenTextFile(("c:\testfile.txt", ForReading)
    While Not MyFile.AtEndOfStream
        inputLine = MyFile.ReadLine
        Debug.Print inputLine
    Wend
    MyFile.Close

~IM
0
 
LVL 92

Expert Comment

by:Patrick Matthews
ID: 17952736
Hi RealSnaD,

Using JReam's approach, but no reference required:

    Dim fso As Object
    Dim MyFile As Object
    Dim inputLine As String
   
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set MyFile = fso.OpenTextFile("c:\testfile.txt", ForReading)
    While Not MyFile.AtEndOfStream
        inputLine = MyFile.ReadLine
        Debug.Print inputLine
    Wend
    MyFile.Close

    Set MyFile = Nothing
    Set fso = Nothing

Regards,

Patrick
0
 
LVL 7

Author Comment

by:RealSnaD
ID: 17957888
Thanks you all. Idle_Mind you were first with a working solution.
0

Featured Post

On Demand Webinar: Networking for the Cloud Era

Ready to improve network connectivity? Watch this webinar to learn how SD-WANs and a one-click instant connect tool can boost provisions, deployment, and management of your cloud connection.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Article by: Martin
Here are a few simple, working, games that you can use as-is or as the basis for your own games. Tic-Tac-Toe This is one of the simplest of all games.   The game allows for a choice of who goes first and keeps track of the number of wins for…
If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
Get people started with the utilization of class modules. Class modules can be a powerful tool in Microsoft Access. They allow you to create self-contained objects that encapsulate functionality. They can easily hide the complexity of a process from…
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…

734 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question