Click here to Skip to main content
13,090,730 members (44,628 online)

Help on trying to write to a file

jamiebones asked:

Open original thread
Hello please i am trying to save the result of an operation where i modified some text in a sample application. The problem is i am having difficulty in trying to loop through all the data.Trying to print out my result to a file, i get only the last line of the file.My code simply refuse to loop and write all the data into a text file but it just writes the last data on the line.Please any help on how i can make this work will be highly appreciated.Once again thanks to all.Below is my code.

Using myreader As StreamReader = New StreamReader("C:\Users\Jamiebones\Desktop\ConsoleApplication1\ConsoleApplication1\PHONE NUMBERS.txt")
          While Not (myreader.EndOfStream)

              Dim line As String = myreader.ReadLine
              Dim strBuilder As New Text.StringBuilder
              If String.IsNullOrEmpty(line) = False AndAlso line.Length > 1 Then
                  strBuilder.Append(line.Remove(0, 1))
                  For i = 0 To strBuilder.Length - 1
                      Dim writer As StreamWriter = New StreamWriter("C:\phone numbers.txt")
                  Next i
              End If
          End While
      End Using
Tags: VB, VB.NET, string, IO


When answering a question please:
  1. Read the question carefully.
  2. Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
  3. 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.
Let's work to help developers, not make them feel stupid.
Please note that all posts will be submitted under the The Code Project Open License (CPOL).

Advertise | Privacy |
Web02 | 2.8.170813.1 | Last Updated 26 Mar 2009
Copyright © CodeProject, 1999-2017
All Rights Reserved. Terms of Service
Layout: fixed | fluid

CodeProject, 503-250 Ferrand Drive Toronto Ontario, M3C 3G8 Canada +1 416-849-8900 x 100