[Pytanie] Gdzie jest bląd w kodzie

[d'emploi]

Tak wyglada kod:

 

Imports System.Text

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim lista As New List(Of String)(TextBox1.Text.Split(Environment.NewLine))

Dim sb As New StringBuilder

For Each linia In lista

If (linia.Contains("1")) Then

sb.AppendLine(linia)

ElseIf (Not linia.Contains("2")) Then

sb.AppendLine(linia)

End If

Next

TextBox1.Text = sb.ToString

End Sub

End Class

Błąd się pojawia, kiedy dodaję "Elseif"

Gdzie robie blad ?

[JacoH]

a tam nie ma być "else if" ? (nie znam tego języka zbyt dobrze, ale wydaje mi się, że tak powinno być)

 

Albo zobacz samo "else"

[d'emploi]

Ma być elseif

[Sopelek997]

a jaki błąd

[Maciek2699]

U mnie wszystko działa, co nie zmienia faktu, że gdy zadanie do wykonania jest to samo a amienia sie tylko warunek możesz skrócic

 

For Each linia In lista

If linia.Contains("1") Or Not linia.Contains("2") Then

sb.AppendLine(linia)

End If

Next

[d'emploi]

No ok, a jak przerabiam to na:

If Not linia.Contains("1") Or Not linia.Contains("2") Then

 

To wtedy po wpisaniu 1 nic sie nie dzieje, a jak wpisze 2 to ono znika. Dlaczego 1 rowniez nie znika ?

[Maciek2699]

If not (linia.contains("1") or linia.contains("2"))

[Shojacz.]

Nie bo można to jeszcze zawinąć pentelką napisz na pw to ci podam :]