[PYTANIE] VB10 AutoSelect ListBox

[Grzesiek94]

Siema mam programik, który działa następująco. Otwieram plik tekstowy do ListBox'a, przykładowy wiersz wygląda "blabla, blablala", potem klikam w button'a i do RichTextBox'a wrzuca mi tylko to co jest przed przecinkiem. Moje pytanie brzmi, jak zrobić żebym nie musiał manualnie klikać w każdy wiersz (jest ich sporo), tylko, żeby automatycznie zaznaczało je po kolei i wrzucało do tego RichTextBox'a. Kombinowałem trochę, ale nie bardzo coś mi wychodziło.

Mam nadzieję, że ktoś znajdzie rozwiązanie.

[Gość]

For Each item As String In ListBox1.Items

MessageBox.Show(item)

Next

[Grzesiek94]

Nie che, żeby wyskakiwał mi komunikat z tymi item'ami.

 

Wstawie mój kod, ktory wykonuje czynnosc do której dąze.

 

For Each item As String In ListBox2.Text.Split(",")
            If item.Contains("@") Then

                RichTextBox3.Text = RichTextBox3.Text & item & Environment.NewLine

            End If
        Next

 

Powyższa funkcja odpowiada za usunięcie, wszystkiego po przecinku i przekopiowania do RichTextBox'a, tych rzeczy, które zawierają "@" w sobie. Kod działa, ale tylko gdy zaznacze manualnie dany Item w ListBox'ie, co chciałbym zautomatyzować. Dąże do tego by sam zaznaczał po kolei itemy z ListBox'a. Myślę, że teraz problem wygląda bardziej przejrzyście.

[Gość]

ListBox1.SelectionMode = SelectionMode.MultiExtended

 

For i As Integer = 0 To ListBox1.Items.Count - 1

Dim item As String = ListBox1.Items(i).ToString()

If item.Contains("@") Then

RichTextBox1.Text += String.Format("{0}{1}", item, vbNewLine)

ListBox1.SetSelected(i, True)

End If

Next

Przejdzie po każdym elemencie ListBoxa i zaznaczy oraz doda do RTB odpowiednie rzeczy.

[Grzesiek94]

Ok kod niby zaznacza i dodaje elementy do RTB, ale nie tylko te co zawierają w sobie "@", ale cały tekst.

[Gość]

Sprawdziłem i działa poprawnie

 

Ale pokaż cały kod.

[Grzesiek94]

Button (laduje plik)

 

Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        OpenFileDialog1.ShowDialog()

        streamer = IO.File.OpenText(OpenFileDialog1.FileName)

        Dim delimiters() As Char = New Char() {vbCr, vbLf}

        Dim mystring() As String = streamer.ReadToEnd.Split(delimiters, StringSplitOptions.RemoveEmptyEntries)
        ListBox2.Items.AddRange(mystring)

 

I ten kod co mi podesłałes

 

ListBox2.SelectionMode = SelectionMode.MultiExtended

        For i As Integer = 0 To ListBox2.Items.Count - 1
            Dim item As String = ListBox2.Items(i).ToString()
            If item.Contains("@") Then
                RichTextBox3.Text += String.Format("{0}{1}", item, vbNewLine)
                ListBox2.SetSelected(i, True)
            End If
        Next

Kod sam w sobie działa, tylko mogłbyś jeszcze dodać, by do RTB kopiowało tekst bez tego po przecinku. Chodzi mi o to co miałem wcześniej ze Splitem:

 

For Each item As String In ListBox2.Text.Split(",")

Właśnie nie za bardzo wiem jak i gdzie wrzucic i przerobic tego Splita.

[Gość]

Button (laduje plik)

 

Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        OpenFileDialog1.ShowDialog()

        streamer = IO.File.OpenText(OpenFileDialog1.FileName)

        Dim delimiters() As Char = New Char() {vbCr, vbLf}

        Dim mystring() As String = streamer.ReadToEnd.Split(delimiters, StringSplitOptions.RemoveEmptyEntries)
        ListBox2.Items.AddRange(mystring)

 

I ten kod co mi podesłałes

 

ListBox2.SelectionMode = SelectionMode.MultiExtended

        For i As Integer = 0 To ListBox2.Items.Count - 1
            Dim item As String = ListBox2.Items(i).ToString()
            If item.Contains("@") Then
                RichTextBox3.Text += String.Format("{0}{1}", item, vbNewLine)
                ListBox2.SetSelected(i, True)
            End If
        Next

Kod sam w sobie działa, tylko mogłbyś jeszcze dodać, by do RTB kopiowało tekst bez tego po przecinku. Chodzi mi o to co miałem wcześniej ze Splitem:

 

For Each item As String In ListBox2.Text.Split(",")

Właśnie nie za bardzo wiem jak i gdzie wrzucic i przerobic tego Splita.

 

 

RichTextBox3.Text += String.Format("{0}{1}", item, vbNewLine)

zmień na

 

RichTextBox3.Text += String.Format("{0}{1}", item.Substring(0, item.IndexOf(",")), vbNewLine)

[Grzesiek94]

Ok wszystko działa poprawnie, wielkie dzieki. Temat do zamknięcia