Textbox -> Eintrag einzelnen loeschen?

[Suchfunktion]

Hallo,

ich habe eine Frage und zwar:
Kann ich irgendwie eine TextBox (Also das ding, wo die werte automatisch untereinander stehen) nach einem String (z.B. 'Max Muster') durchsuchen lassen und den eintrag loeschen?

Weil mit index-id gestaltet sich das ganze ziemlich schwierig.. aber darauf brauch ich glaube ich nich tiefer eingehen, spielt bei der Problemloesung (glaube ich) keine Rolle.

Naja also wenn jemand weiss wie ich einen Wert aus der TextBox anhand des inhalts finden und loeschen kann, dann immer her mit euren Ideen

mfg
Suchfunktion

P.S.:
Rechtschreibfehler sind Bugs im Board

 

[JensG]

Hallo,

wenn du deine Zeilen in der Textbox immer so hinzufügst

Text1.Text = "Das ist" & vbCrLf 
Text1.Text = Text1.Text & "ein Test." & vbCrLf

dann könnest du einzelne Zeilen so löschen.

Text1.Text = Replace(Text1.Text, "Das ist" & vbCrLf, "")

Gruß
Jens

 

[Suchfunktion]

Ouh sorry, ich habe einen Fehler gemacht..

Es handelt sich um eine ListBox!

Naja trotzdem danke erstmal..

Wer noch was weiss -> Bitte melden. danke.

 

[Orakel]

Hi Suchfunktion,

also wenn ich das alles richtig Verstanden habe, würde sich evtl. folgende Lösung anbieten:

    For nCounter = 0 To List1.ListCount - 1
        If List1.List(nCounter) = DeinSuchText Then
            List1.RemoveItem (nCounter)
        End If
    Next nCounter

Eine etwas komplexere Variante währe mittels API den gewünschten Eintrag zu suchen. Aber obige Funktion ist schnell genug, wenn die Einträge in der Listbox nicht sehr umfangreich sind.

Gruß
Das Orakel