Visual Basic .NET - English

Appending Text to a File in VB .NET

This lesson is part of an ongoing tutorial. The first part is here: How
to open a Text File in VB .NET

There will be times when you won’t want to erase all the text from your file.
You’ll only want to add text to what you currently have. In which case you need
to Append.

Appending text to your file is quite easy.

When you set up the object variable for the StreamWriter, which
you did here, you just typed the name and path of the file:

Dim objWriter As New System.IO.StreamWriter( FILE_NAME
)

To append text to a file, you type a comma after your file name then type the
word True:

Dim objWriter As New System.IO.StreamWriter( FILE_NAME,
True )

If you want to add some text to the file, you need that True value. If you
leave out the True or False, a new file is not created.

Here some code we wrote to that appends text to
the file:

Dim FILE_NAME As String = “C:UsersOwnerDocumentstest.txt”
Dim i As Integer
Dim aryText(4) As String

aryText(0) = “Mary WriteLine”
aryText(1) = “Had”
aryText(2) = “Another”
aryText(3) = “Little”
aryText(4) = “One”

Dim objWriter As New System.IO.StreamWriter(
FILE_NAME, True )

For i = 0 To 4

objWriter.WriteLine(aryText(i))

Next

objWriter.Close()

MessageBox.Show(“Text Appended to the File”)

The lines that have changed are in bold. But, as you can see, not much has
changed! But try both version and see how they work.

 

Creating a file if it doesn’t exist

If you want to create a file if one doesn’t exist, the process is again quite
simple:

Dim objWriter As New System.IO.StreamWriter( FILE_NAME, False)

This time, we’ve just added the word “False” to the end of FILE_NAME.
This will ensure that a new text file is created if one doesn’t exist.

In the next part, we’ll see how to copy a file in VB .NET.

.medrectangle-1-multi-102{border:none!important;display:block!important;float:none!important;line-height:0;margin-bottom:2px!important;margin-left:0!important;margin-right:0!important;margin-top:2px!important;min-height:250px;min-width:300px;padding:0;text-align:center!important}

Kaynak : https://www.homeandlearn.co.uk/NET/nets8p5.html ‘sitesinden alıntı

Yorum Yap