Append Text at a Particular Position in Text File

Question

4.00/5 (1 vote)

See more:

I have created a Text File (.txt).Whose Structure is as Below

1. qwerty^^saasd^^^adadasd^^
2. asdasdas^^adasdasd^^^asasdasd^^
3. weqweqwew^^^dasdadasd^^^asdasd^^^

it goes on accordingly
I want to pass a text through a Textbox
and want it to append at the last Postion of
First line.

Let the text to be passed is 1234567

so that my new TextFile should be like as below

1. qwerty^^saasd^^^adadasd^^1234567
2. asdasdas^^adasdasd^^^asasdasd^^
3. weqweqwew^^^dasdadasd^^^asdasd^^^

I have tried as

VB

Dim Filepath As String = "E:\F26Q2V1.txt"
        Dim strFileName As String = Filepath

        Dim lines() As String
        lines = File.ReadAllLines(Filepath)
        'Dim cnt As Integer = lines.Count
        'MsgBox(cnt)
        Dim newFile(65535) As String
        newFile(0) = lines(0) & "1234567"
        File.WriteAllLines("E:\F26Q2V1c.txt", newFile)

F26Q2V1.txt is the Original txt file and F26Q2V1c.txt is the result file after appending..
but I am getting the result in F26Q2V1c.txt
as

1. qwerty^^saasd^^^adadasd^^1234567

the rest of the lines are getting deleted
but i want all the lines also.
Help needed

Posted 6-May-12 19:03pm

Karwa_Vivek

Updated 6-May-12 20:35pm

v2

Add a Solution

2 solutions

Solution 1

Take a look here:
http://msdn.microsoft.com/en-us/library/3zc0w663.aspx[^]
http://www.homeandlearn.co.uk/net/nets8p5.html[^]

It looks like you want to write data into ini file.
IniFile Class using VB.NET[^]

Posted 6-May-12 20:23pm

Maciej Los

Comments

Karwa_Vivek 7-May-12 2:33am

No its not InI file.I Just working on .txt
file.

Maciej Los 7-May-12 2:49am

Ini file is a text file. The only one difference is in extension of file...
In my opinion, the way in which you are trying to achive that is not optimal. Take a look here

Maciej Los 7-May-12 2:54am

And one more think... If you have found a solution, mark each helpful answer as "solved".

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

phil.o · Accepted Answer · 2012-05-06T20:35:00

There's no need to have another array here.

Simply :

VB

Dim Filepath As String = "E:\F26Q2V1.txt"
Dim strFileName As String = Filepath

Dim lines() As String
lines = File.ReadAllLines(Filepath)
lines(0) = string.Concat(lines(0), "1234567")
File.WriteAllLines("E:\F26Q2V1c.txt", lines)

Or, if you want another array :

VB

Dim Filepath As String = "E:\F26Q2V1.txt"
Dim strFileName As String = Filepath
 
Dim lines() As String
lines = File.ReadAllLines(Filepath)
Dim count As Integer = lines.Count
Dim newFile(count) As String = Array.Copy(lines, 0, count)
newFile(0) = string.Concat(newFile(0), "1234567")
File.WriteAllLines("E:\F26Q2V1c.txt", newFile)