Append into file

[baburk]

Hi

I want to append one text from textbox1 only at beginning and textbox2 at the end of the file. How do i Do?

[lotus18]

Hi

I want to append one text from textbox1 only at beginning and textbox2 at the end of the file. How do i Do?

What do you mean by file? As a filename? or a as a file itself? What version of vb are you using?

Rey Sean

[baburk]

I am working in VB.Net

The file type is .txt

[debasisdas]

Append means to add to the end of the file with existing data. Since your requirement is different.

1. Read the content of the entire file.
2. Concatenate the text1 at the beginning and text2 at the end and then
3. Overwrite the file.

[baburk]

I did like this

        Dim FILE_NAME As String
        Dim objFile As System.IO.File
        Dim objRead As System.IO.StreamReader
        'Dim objWrite As System.IO.StreamWriter
        'Dim intFileNum As Integer
 
        FILE_NAME = My.Application.Info.DirectoryPath & "\test.txt"
        Dim LineAll As New System.Text.StringBuilder(CInt(New System.IO.FileInfo(FILE_NAME).Length + txtBefore.Text.Length + txtAfter.Text.Length))
 
        ' intFileNum = FreeFile()
 
        If objFile.Exists(FILE_NAME) Then
            objRead = objFile.OpenText(FILE_NAME)
            If txtBefore.Text <> String.Empty Then
                LineAll.Append(txtBefore.Text & vbNewLine)
            End If
            While objRead.Peek <> -1
                LineAll.Append(objRead.ReadLine() & vbNewLine)
            End While
            If txtAfter.Text <> String.Empty Then
                LineAll.Append(txtAfter.Text & vbNewLine)
            End If
            'FileClose(intFileNum)
            objRead.Close()
 
            'Clear the text in the file and write into the file
            objFile.WriteAllText(FILE_NAME, LineAll.ToString())
        End If
 
        If (LineAll.Length > 0) Then
            RichTextBox1.Text = LineAll.ToString()
        End If