about copying info from a ".txt" file to a listbox

about copying info from a ".txt" file to a listbox

• Terence Tung

  Where you have a listbox on your form named ListBox1

  Dim lines As New System.Collections.Specialized.StringCollection

  Dim rdr As System.IO.TextReader = System.IO.File.OpenText("MyTextFile.txt")

  While rdr.Peek <> -1

  lines.Add(rdr.ReadLine.Replace("""", ""))

  End While

  rdr.Close()

  Me.ListBox1.DataSource = lines

  
  

• tpiazza

  I'm not exactly sure how fileopen works but i'd do it as follows
  
  Try
  Dim sr As StreamReader = New StreamReader("My Cart.txt")
  Dim line As String
  
  Do
  line = sr.ReadLine()
  lstout.Items.Add(line.Replace("""", ""))
  Loop Until line Is Nothing
  
  sr.Close()
  Catch ex As Exception
  msgbox(Ex.tostring)
  End Try
  
  
  HTH
  Andrew
  
  

• Sean Hayes

  A fuller example

  Dim FileDiag As New System.Windows.Forms.OpenFileDialog()

  ' Filter on text files

  FileDiag.Filter = "Text files (*.txt)|*.txt"

  ' The lines we are going to read

  Dim lines As New System.Collections.Specialized.StringCollection()

  Dim rslt As System.Windows.Forms.DialogResult = FileDiag.ShowDialog

  If rslt <> Windows.Forms.DialogResult.Cancel Then

  Dim rdr As System.IO.TextReader = System.IO.File.OpenText(FileDiag.FileName)

  While rdr.Peek <> -1

  lines.Add(rdr.ReadLine.Replace("""", ""))

  ' Alternate for not using collection. Requires listbox

  ' Use either or as you are mving a line on each loop

  ' Drop datasource setting below if using this!

  ' Me.ListBox1.Items.Add(rdr.ReadLine.Replace("""", ""))

  End While

  rdr.Close()

  ' Note: Listbox is required

  Me.ListBox1.DataSource = lines

  End If

  
  

• arro239

  as far as I am aware of, VB.NET has no methods like FileOpen, unless it's a function in your project

  you need to know how to open and read a file using either a StreamReader (easier) or a FileStream:

  http://msdn2.microsoft.com/en-us/library/system.io.streamreader.aspx

  http://msdn2.microsoft.com/en-us/library/system.io.filestream.aspx

  How exactly do you want to add items to a listbox Just one row of data in the file per entry on the listbox

  
  
  

• Neotech

  

  Hi Darenko,

  In note of your assistance, please set the thread as answered/ closed and credit your assistor - as further above.

  Happy you have it working.

  Thanks,

  Martin.

  
  

• Thomas Ivarsson

  Thats fine so am I. However, It was the solution from BeanR that you used and he should be credited! I couldn't see his Username when responding to you.

  It is important to people, I am not trying to high and mighty.

  
  

• cruzn

  sorry im new here, not sure how things work... apologise greatly:S
  

• zdrae

  i got it working through codes as below

  Dim a As String
  FileOpen(2, "My Cart.txt", OpenMode.Input)
  Do While Not EOF(2)
  Input(2, a)
  lstOut.Items.Add(a)
  Loop
  FileClose(2)

  I dont really understand it, but my teacher tought me it and it works so everythings fine... thanks alot for yous reply!! very helpful this forum is :D cheeerz

  
  
• about copying info from a ".txt" file to a listbox