Checken ob String = Listbox.Item gibt

GirlOnFire · 14. Februar 2013, 15:56

Hallo,

ich kann das so Irgendwie nicht erklären als Text dann mach ich das einfach so.

Ich habe 1 String(Dim a as String) und eine Listbox
In dieser Listbox sind nun mal z.B folgende Items drin: Hallo, Servus, Grüßgott
Nun wird ein Pfad ausgelesen z.B "C:\bla.txt" danach "C:\bla.txt" und immer so weiter. (b = My.Computer.FileSystem.ReadAllText(a) )
Wenn nun in den "String" (a) sich ein Wort was auch in der Listbox sich befindet da ist, sollte dieses Item
selectiert werden.

Ich hoffe ihr versteht was ich meine.
Danke

ThuCommix · 14. Februar 2013, 16:01

Einfach mit einer Schleife durchlaufen, und schauen ob der Name den Suchstring gleicht, danach den Listbox.SelectedIndex setzen.

GirlOnFire · 14. Februar 2013, 16:01

Ja, aber ich wüsste leider nicht wie das gehen soll.

lurker · 14. Februar 2013, 16:03

Schon einmal mit google probiert?

ThuCommix · 14. Februar 2013, 16:04

Dann wird es Zeit, das du dich mal zum Thema schleifen beliest.

GirlOnFire · 14. Februar 2013, 16:05

Schon einmal mit google probiert?

Ja aber leider kein erfolg

Dann wird es Zeit, das du dich mal zum Thema schleifen beliest.

Hmm, eigentlich möchte ich nur wissen wie das geht, ich lerne aus jeden Code :thumbsup:

ThuCommix · 14. Februar 2013, 16:07

Ist mir bis jetzt nicht aufgefallen. Du solltest deine Google suche wiederholen, da ich dir jetzt ein Tipp gegeben habe, wie man die Sache angeht.

LaMiy · 14. Februar 2013, 16:09

VB.NET-Quellcode

Option Strict On
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
With ListBox1.Items
.Add("Apfel")
.Add("Kuchen")
.Add("Nutella")
End With
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' Dim a As String = My.Computer.FileSystem.ReadAllText("pfad")
Dim a As String = "Ich esse jeden tag einen Apfel"
For Each item In ListBox1.Items
If a.Contains(item.ToString) Then
ListBox1.SelectedItem = item
Exit For
End If
Next
End Sub
End Class

Ein einfaches Beispiel, was man sicherlich auch per Google finden könnte.

Alternativ:

VB.NET-Quellcode

For Each item In ListBox1.Items
If CBool(ListBox1.Items.IndexOf(a)) Then
ListBox1.SelectedItem = item
Exit For
End If
Next

lurker · 14. Februar 2013, 16:11

So kannst du prüfen ob es vorhanden ist, und wo: ListBox1.Items.IndexOf(a). Falls es nicht vorhanden ist, dann kommt -1 zurück.

Eine For-Schleife ist die hoffentlich bekannt.

Edit: Zu Langsam...

GirlOnFire · 14. Februar 2013, 16:19

Cool, danke

LaMiy · 14. Februar 2013, 16:24

@GirlOnFire
Jetzt habe ich aber noch ein paar Fragen an dich, weil ich mich sonst ärgern muss, dass ich dir C&P Code gegeben habe.
1. Ich schreibe ja ListBox1.SelectedIndex = item Aber "item" sind doch eigentlich mehrere Sachen, denn bei jedem Schleifendurchlauf ist "item" etwas anderes.
2. Wieso schreibe ich "Exit for" ?
Falls du es nicht weiß überleg und recherchiere es, denn das sind absolut wichtige Grundlagen

GirlOnFire · 14. Februar 2013, 16:29

Soweit ich weiß ist das dafür da, das man die Schleife beendet dann.

RodFromGermany · 14. Februar 2013, 17:22

LaMiy schrieb:

VB.NET-Quellcode

If CBool(ListBox1.Items.IndexOf(a)) Then

Was machst Du denn hier mit Gewalt zu einem Boolean :?:

LaMiy · 14. Februar 2013, 17:32

@RodFromGermany
Es ist ein Integer, war ich wieder zu schnell.
Die IDE hatte mir die Konvertierung vorgeschlagen.

RodFromGermany · 14. Februar 2013, 17:49

@LaMiy: Da musst Du auf ( <> -1) testen.
Dein Code versagt da leider, probier es mal aus.
CBool(-1) ist gleich True, so ein Relikt aus der Steinzeit, da in BASIC (Not False) = -1 war. (True = (Not False)).

Checken ob String = Listbox.Item gibt

Checken ob String = Listbox.Item gibt

VB.NET-Quellcode

VB.NET-Quellcode

LaMiy schrieb:

VB.NET-Quellcode

Ähnliche Themen

5 Benutzer haben hier geschrieben