merging two txt files into one txt file

Expand Post »

Hi,

Actully i wanted to merge two txt files into one txt file. (i.e. second file has to be appended to the first file). please give me some solution for my problem. I am new to vb.net, so pls elaborate the solution.

Thanks in advance.

Similar Threads

Getting size of all files in folder, and finding out some offsets.. in Python
merging two files and removing duplicates in Perl
Sorting in Java
Merging two files? in C
Sorting in Java

nmakkena

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

14 posts
since Dec 2008

Permalink

Jan 5th, 2009

Re: merging two txt files into one txt file

VB.Net makes a task like that quite simple:

VB.NET Syntax (Toggle Plain Text)
    Public Sub text_combine( _
        ByVal path_to_read_file As String, _
        ByVal path_to_append_file As String _
    )
        System.IO.File.AppendAllText( _
            path_to_append_file, _
            System.IO.File.ReadAllText(path_to_read_file) _
        )
    End Sub
    Public Sub text_combine( _
        ByVal path_to_read_file As String, _
        ByVal path_to_append_file As String _
    )
        System.IO.File.AppendAllText( _
            path_to_append_file, _
            System.IO.File.ReadAllText(path_to_read_file) _
        )
    End Sub

A little error checking may prevent hangups:

VB.NET Syntax (Toggle Plain Text)
    Public Function text_combine( _
        ByVal path_to_read_file As String, _
        ByVal path_to_append_file As String _
    ) As Boolean
        If ( _
            (IO.File.Exists(path_to_read_file)) _
            And (IO.File.Exists(path_to_append_file)) _
        ) Then
            Try
                System.IO.File.AppendAllText( _
                    path_to_append_file, _
                    System.IO.File.ReadAllText(path_to_read_file) _
                )
                text_combine = True
            Catch ex As Exception
                text_combine = False
            End Try
        Else
            text_combine = False
        End If
    End Function
    Public Function text_combine( _
        ByVal path_to_read_file As String, _
        ByVal path_to_append_file As String _
    ) As Boolean
        If ( _
            (IO.File.Exists(path_to_read_file)) _
            And (IO.File.Exists(path_to_append_file)) _
        ) Then
            Try
                System.IO.File.AppendAllText( _
                    path_to_append_file, _
                    System.IO.File.ReadAllText(path_to_read_file) _
                )
                text_combine = True
            Catch ex As Exception
                text_combine = False
            End Try
        Else
            text_combine = False
        End If
    End Function

robert_c_guy

Reputation Points: 22

Solved Threads: 1

Newbie Poster

Offline

4 posts
since Dec 2008

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in VB.NET Forum Timeline: combobox

Next Thread in VB.NET Forum Timeline: Listview Column data to XML file

DaniWeb Message

Cancel Changes

User Name
Password