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

  • On-demand Event Event Date: March 27, 2014 Teams need to deliver quality software faster and need integrated agile planning, task tracking, source control, auto deploy with continuous builds and a configurable process to adapt to the way you work. Rational Team Concert and DevOps Services (JazzHub) have everything you need to build great software, integrated seamlessly together right out of the box or available immediately in the cloud. And with the Rational Team Concert Client, you can connect your …

  • Live Event Date: April 22, 2014 @ 1:00 p.m. ET / 10:00 a.m. PT Database professionals — whether developers or DBAs — can often save valuable time by learning to get the most from their new or existing productivity tools. Whether you're responsible for managing database projects, performing database health checks and reporting, analyzing code, or measuring software engineering metrics, it's likely you're not taking advantage of some of the lesser-known features of Toad from Dell. Attend this live …

Most Popular Programming Stories

More for Developers

Latest Developer Headlines

RSS Feeds