VB.NET- Wybieranie z listboxa

[Tomek0530]

Jeżeli mam dane w ".txt" w formacie

 

dana1:dana2

dana3:dana4

dana5:dana6

itp....

Jak mogę pobrać dana1 do jednego textboxa a dana2 do drugiego textboxa?

[Gość Pan Szymek]

Dim lista() As String = New System.IO.StreamReader("lista.txt").Split(vbNewLine)

Dim pierwszeElementy() As String = lista(0).Split(";")

tb1.Text = pierwszeElementy(0)

tb2.Text = pierwszeElementy(1)

[Tomek0530]

Dim lista() As String = New System.IO.StreamReader("lista.txt").Split(vbNewLine)

Dim pierwszeElementy() As String = lista(0).Split(";")

tb1.Text = pierwszeElementy(0)

tb2.Text = pierwszeElementy(1)

 

Chciałbym aby otwierał się openFileDialog

 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
	OpenFileDialog1.ShowDialog()
	Dim wczytaj As New IO.StreamReader(TextBox3.Text)
	While (wczytaj.Peek() > -1)
		ListBox2.Items.Add(wczytaj.ReadLine)
		Label4.Text = ListBox2.Items.Count
	End While
End Sub

Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
       TextBox3.Text = OpenFileDialog1.FileName
   End Sub

Jakieś pomysły na wrzucenie tego splita lub ewentualna zmiana tego kodu?

[Gość Pan Szymek]

Chciałbym aby otwierał się openFileDialog

 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
	OpenFileDialog1.ShowDialog()
	Dim wczytaj As New IO.StreamReader(TextBox3.Text)
	While (wczytaj.Peek() > -1)
		ListBox2.Items.Add(wczytaj.ReadLine)
		Label4.Text = ListBox2.Items.Count
	End While
End Sub

Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
	TextBox3.Text = OpenFileDialog1.FileName
End Sub

Jakieś pomysły na wrzucenie tego splita lub ewentualna zmiana tego kodu?

Dim wczytaj As New IO.StreamReader(OpenFileDialog1.FileName)

@edit

A co masz w textboxie3?

[Tomek0530]

Dim wczytaj As New IO.StreamReader(OpenFileDialog1.FileName)

@edit

A co masz w textboxie3?

Do textbox3 jest pobierana ścieżka pliku.

[Blat]

To otwierasz go w końcu OpenFileDialogiem czy po ścieżce z textboxa...?

[Tomek0530]

To otwierasz go w końcu OpenFileDialogiem czy po ścieżce z textboxa...?

OpenFileDialogiem.

[Tomek0530]

Poprawiłem i napsize to jeszcze raz.

 

Wygląd:

 

Kod: z buttona z +

Private Sub Zaladuj_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Zaladuj.Click
		    OpenFileDialog1.Title = "Open account file"
		    OpenFileDialog1.ShowDialog()
		    Dim wczytaj As New IO.StreamReader(OpenFileDialog1.FileName)
		    While (wczytaj.Peek() > -1)
				    konta.Items.Add(wczytaj.ReadLine)
				    ilosc.Text = konta.Items.Count
		    End While
    End Sub

 

Przy kliknięciu Start chcę aby do Textbox1 trafiała 1 pierwsza część do ":" czyli w przypadku screena "dassadasv" a do TextBox2 trafiała reszta linii czyli "davev12e21" i po ukonczeniu tego ma usunac ta linie z listboxa.

 

PS: Textboxy nie są widoczne ponieważ mają Visible = False

[Tomek0530]

@refresh