How do you join two text files together ?

could anyone tell me how to join two text files in to one file.

My files are c:\test\testfile1.txt
and c:\test\testfile2.txt

I want one file at the end with the data from both files in called c:\test\testfile1.txt
(basically I am trying to append the data from testfile2 to testfile1. How do I go about this ? code would be great with a short explaination.

I use VB5 so don't have the filesystem object

Thanks
Locutus

[Edited by locutus on 07-27-2000 at 09:38 AM]

dim B() as byte
dim c() as byte

open file1 for input as #1
b() = input(lof(1),1)
close #1

open file2 for input as #1
b() = input(lof(1),1)
close #1

open file3 for output as #1
print #1, b()
print #1, c()
close #1

Code:

---


Private Sub Command1_Click()
  Dim myVar1 As String, myVar2 As String, myVar3 As String

  Open "c:\my documents\text1.Txt" For Input As #1
  myVar1 = Input(LOF(1), 1)
  Close #1

  Open "c:\my documents\text2.Txt" For Input As #1
  myVar2 = Input(LOF(1), 1)
  Close #1

  myVar3 = myVar1 & vbCrLf & myVar2

  Open "c:\my documents\text1.Txt" For Output As #1
  Print #1, myVar3
  Close
 
End Sub

---

Same thing as above, but mabye a little clearer (as requested in your Question)

Code:

---


 Dim iFile1 As Integer
    Dim iFile2 As Integer
    Dim iFile3 As Integer
    Dim strFileLine As String
    Dim PathToFile1 As String
    Dim PathToFile2 As String
    Dim PathToFile3 As String
   
    PathToFile1 = "c:\WINDOWS\Desktop\Testfile1.txt"
    PathToFile2 = "c:\WINDOWS\Desktop\Testfile2.txt"
    PathToFile3 = "c:\WINDOWS\Desktop\Testfile3.txt"
   
    iFile1 = FreeFile  'Get unused file number.
    Open PathToFile1 For Input As #iFile1  'Create file name.
   
    iFile2 = FreeFile
    Open PathToFile2 For Input As #iFile2
   
    iFile3 = FreeFile  'Note if this file exists it will be wiped clean (made & destroyed).
    Open PathToFile3 For Output As #iFile3  'Create file name.
   
    Do While Not EOF(iFile1)
      Line Input #iFile1, strFileLine
      Print #iFile3, strFileLine
    Loop
   
    Do While Not EOF(iFile2)
      Line Input #iFile2, strFileLine
      Print #iFile3, strFileLine
    Loop
   
    Close #iFile1
    Close #iFile2
    Close #iFile3

---

That worked a treat , thanks guys. Just one small detail I need to sort. When I copy contents of the second file I would like to lose the header row.so its one big block of data in one file.

ie:

"Name", "address", "age"
"Joe","10 the road","24"
"Joe","20 the road","27"
"Joe","55 the road","67"

"Name", "address", "age"
"mary","10 the road","24"
"bill","20 the road","27"
"ian","55 the road","67"

So to summarise when I read in the second file, I want to ignore the first row ( which is headings)

Please help again guys !

Locutus

Just skip the lines before entering the loop:

Code:

---

Line Input #iFile1, strFileLine
    Do While Not EOF(iFile1)
      Line Input #iFile1, strFileLine
      Print #iFile3, strFileLine
    Loop
   
    Line Input #iFile2, strFileLine
    Do While Not EOF(iFile2)
      Line Input #iFile2, strFileLine
      Print #iFile3, strFileLine
    Loop

---

if u used Do while Not Eof(#)

have a Line Input #?, xVAR command before the loop statement