code to read two text files, concatenate one......

dgr7 · March 28th, 2007, 10:48 AM

hello,
what would be the code that would allow me to read in two text files, concatenate the second one to the end of the first one, then output the file as a new third text file?
thanks in advance,
david

gbianchi · March 28th, 2007, 10:58 AM

hi there..

you could investigate the filesystemobject that would allow you to open a file as a textstream and then you could open the two files, and read one after another into the third file....

HTH

Gonzalo

================================================== =========
Read this if you want to know how to get a correct reply for your question:
http://www.catb.org/~esr/faqs/smart-questions.html
^^Took that from dparsons signature and he Took that from planoie's profile
================================================== =========
My programs achieved a new certification (can you say the same?):
WORKS ON MY MACHINE
http://www.codinghorror.com/blog/archives/000818.html
================================================== =========

dgr7 · April 18th, 2007, 03:24 PM

this code I was given by a user on another site works well for me, at least it did well in a test run with the largest text files I'll probably be doing with.
thanks,
david

Code:

Sub JoinFiles(ByVal File1 As String, ByVal File2 As String, ByVal SaveAs As String)
    Dim intFF As Integer, strBuffer As String
    Dim lonL1 As Long, lonL2 As Long

    lonL1 = FileLen(File1)
    lonL2 = FileLen(File2)

    'Allocate space for the 2 files.
    strBuffer = Space$(lonL1 + lonL2)

    intFF = FreeFile

    Open File1 For Input As #intFF
        Mid$(strBuffer, 1, lonL1) = Input(LOF(intFF), intFF)
    Close #intFF

    intFF = FreeFile

    Open File2 For Input As #intFF
        Mid$(strBuffer, lonL1 + 1) = Input(LOF(intFF), intFF)
    Close #intFF

    intFF = FreeFile

    'Write new file.
    Open SaveAs For Output As #intFF
        Print #intFF, strBuffer
    Close #intFF

    strBuffer = ""
End Sub