Easy Method of Writing And Reading Small Text Files

In a production application, every time you want to access a file for reading or writing, you have to retrieve a free handle using the FreeFile() function to make sure that you do not overwrite an existing handle. Not only this, but you have to remember to close the file after you are done with it.

In some specific cases, you can avoid the trouble by wrapping this functionality inside utility functions.

For example, I wrote the following two functions to go between strings and text files in my apps.


public Function ReadFile(FileName as string) as string

    Dim i as Integer
    i = FreeFile

    on error GoTo ErrorTrap

    Open FileName for input as #i
    ReadFile = input(LOF(i), i)
    Close #i

    Exit Function

ErrorTrap:

    ReadFile = ""

End Function


public Sub WriteFile(FileName as string, Contents as string)

    Dim i as Integer
    i = FreeFile

    Open FileName for Output as #i

    print #i, Contents
    Close #i

End Sub

Once these functions are in your project, you have a quick way of reading and writing text files. For example, the following code is a weird way of copying text files:


Call WriteFile("c:\b.txt", ReadFile("c:\a.txt"))



Comments

  • overwriting

    Posted by steved3298 on 09/17/2004 09:35pm

    Is there any way to stop the program from writing to the first line and instead writing to the next line w/o text?

    Reply
  • how to implement this code

    Posted by Legacy on 06/14/2003 12:00am

    Originally posted by: Danny Pryor

    this question has already been answered , but here is the answer once again ;
    
    

    Call WriteFile("c:\myfile.txt")

    Call ReadFile("c:\myfile.txt")

    Reply
  • Your code returned false ; this code returns true

    Posted by Legacy on 04/02/2003 12:00am

    Originally posted by: Danny

    Function OpenText(FileDir As String)
    
    Dim i As Integer
    i = FreeFile
    FileExist = Dir(FileDir)
    If FileExist = "" Then
    MsgBox "File Not Found!", vbCritical + vbSystemModal, "Error"
    Exit Function
    End If
    Open (FileDir) For Input As #i
    OpenText = Input(LOF(i), i)
    Close #i
    End Function

    Reply
  • File write

    Posted by Legacy on 03/02/2003 12:00am

    Originally posted by: rahaman

    I am having a doubt in file sysyem object.can you please clarify it please. I have to create a text file in which the datas should be written in specified location and printed using vb code.Please help me.
    

    Reply
  • Reading and Writing text Files in VB

    Posted by Legacy on 01/28/2002 12:00am

    Originally posted by: Ignacio Diaz

    Tried it and like it very good code. Made my life simpler.
    Thanks...

    Reply
  • Flaw

    Posted by Legacy on 03/21/2000 12:00am

    Originally posted by: Aaron Wacker

    If you read using input, then write using print, you are adding 2 characters to the file so it would be different than the original file. Try running the procedures recursively and you will see what I mean..

    Reply
Leave a Comment
  • Your email address will not be published. All fields are required.

Top White Papers and Webcasts

  • Thanks to wide spread cloud hosting and innovations small businesses can meet and exceed the legacy systems of goliath corporations. Explore the freedom to work how you want, with a phone system that will adapt to your evolving needs and actually save you lots of expense—read Get an Enterprise Phone System without High Cost and Complexity. The article clearly illustrates: The only hardware you'll need is phone equipment for advanced voice and fax. How to join all your employees, mobile devices, …

  • Companies undertaking an IT project need to find the right balance between cost and functionality. It's important to start by determining whether to build a solution from scratch, buy an out-of-the-box solution, or a combination of both. In reality, most projects will require some system tailoring to meet business requirements. Decision-makers must understand how much software development is enough and craft a detailed implementation plan to ensure the project's success. This white paper examines the different …

Most Popular Programming Stories

More for Developers

RSS Feeds

Thanks for your registration, follow us on our social networks to keep up-to-date