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

  • Java developers know that testing code changes can be a huge pain, and waiting for an application to redeploy after a code fix can take an eternity. Wouldn't it be great if you could see your code changes immediately, fine-tune, debug, explore and deploy code without waiting for ages? In this white paper, find out how that's possible with a Java plugin that drastically changes the way you develop, test and run Java applications. Discover the advantages of this plugin, and the changes you can expect to see …

  • Hybrid cloud platforms need to think in terms of sweet spots when it comes to application platform interface (API) integration. Cloud Velocity has taken a unique approach to tight integration with the API sweet spot; enough to support the agility of physical and virtual apps, including multi-tier environments and databases, while reducing capital and operating costs. Read this case study to learn how a global-level Fortune 1000 company was able to deploy an entire 6+ TB Oracle eCommerce stack in Amazon Web …

Most Popular Programming Stories

More for Developers

Latest Developer Headlines

RSS Feeds