German IndexOf Problem

[so27]

Hallo zusammen,

ich habe einen String, welcher wie folgt aufgeteilt ist:
morgens / mittags / abends / nachts / bei Bedarf

Der Inhalt kann variieren z. B.:
morgens/nachts

Je nachdem was der User ausgewählt hat.

Nun möchte ich, dass wenn ich einen Button drücke, der String auf die Wörter "morgens", "mittags", "abends", "nachts" und "bei Bedarf" durchsucht wird. Wenn ein Wort gefunden wird, soll eine Checkbox ein Häkchen bekommen.

    If lblDarreichung.Text.Length > 0 Then
        Log("Text gefunden")
        If lblDarreichung.text.IndexOf("morgens") = 0 Then chkMorgens.Checked = True
        If lblDarreichung.text.IndexOf("mittags") = 0 Then chkMittags.Checked = True
        If lblDarreichung.text.IndexOf("abends") = 0 Then chkAbends.Checked = True
        If lblDarreichung.text.IndexOf("nachts") = 0 Then chkNachts.Checked = True
        If lblDarreichung.text.IndexOf("bei Bedarf") = 0 Then chkBedarf.Checked = True

    End If

 

[so27]

Oh ja, zu viel Code gesehen und natürlich muss da kein IndexOf sondern ein Contains rein. Sorry, wie war das mit dem Wald und den Bäumen.

    If lblDarreichung.Text.Length > 0 Then
        Log("Text gefunden")
        If lblDarreichung.text.Contains("morgens") = True Then chkMorgens.Checked = True
        If lblDarreichung.text.Contains("mittags") = True Then chkMittags.Checked = True
        If lblDarreichung.text.Contains("abends") = True Then chkAbends.Checked = True
        If lblDarreichung.text.Contains("nachts") = True Then chkNachts.Checked = True
        If lblDarreichung.text.Contains("bei Bedarf") = True Then chkBedarf.Checked = True

    End If

 

[MarkusR]

wäre das nicht kürzer?

chkMorgens.Checked = lblDarreichung.text.Contains("morgens")

 

[so27]

wäre das nicht kürzer?

chkMorgens.Checked = lblDarreichung.text.Contains("morgens")

Na klar, danke für den Hinweis.

 

[DonManfred]

If lblDarreichung.text.IndexOf("morgens") = 0 Then chkMorgens.Checked = True

If lblDarreichung.text.IndexOf("morgens") > -1 Then chkMorgens.Checked = True ' WENN text enthalten dann checkbox setzen.