Visual Basic: [code] Dim strChars() As Char = sKanal.ToCharArray sKanal = "" For i As Int32 = 0 To strChars.GetUpperBound(0) sKanal = sKanal & strChars(i) & "*" Next
For j As Int32 = 3 To strProgramme.GetUpperBound(0) Dim strKanal As String = strProgramme(j).Substring(6, strProgramme(j).IndexOf(" - ") - 6) 'MsgBox(sKanal & "|" & strKanal) If sKanal.ToUpper Like strKanal Then Return strProgramme(j).Split("<")(0) ' Kanäle: ARD, ZDF etc. sKanal: A*R*D*, Z*D*F* etc. Next[/code]
Warum wird das If nicht aufgelöst?
BlAcKfINAl.aT Poster
Anmeldedatum: 26.07.2008 Beiträge: 162
Verfasst am: 17.09.2008, 19:27
versuch ma das letzte next vor die if zeile zu setzen , bin aber nich sicher
sollniss Überflieger
Anmeldedatum: 01.05.2008 Beiträge: 699
Verfasst am: 17.09.2008, 20:05
Ähh... wozu? Guck mal was bei Return steht. -.-'
LOL If String1 Like String2 != If String2 Like String1
Registrieren
Login
