Stringcollection - Kann keinen String hinzufügen

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von hamog.

    Stringcollection - Kann keinen String hinzufügen

    Hey, habe mal wieder ein seltsames Problem.

    Ich kann zu meiner StringCollection keine String hinzufügen. Sehr seltsam. Er meint das die Objektinstanz "Zeile" garnicht exestiert, obwol ich sie kurz vor dem hinzufügen des Strings bestimmt wird.

    Hier der Code, ich habe echt keinen Plan was ich falsch mache :(

    VB.NET-Quellcode

    1. Public Function orm21_alle_sender(ByVal pfad As String) As StringCollection
    2. Dim newCollection As StringCollection = Nothing
    3. Dim DateiReader As New StreamReader(pfad)
    4. Dim lesen As Boolean = False
    5. Do While Not DateiReader.EndOfStream
    6. Dim zeile As String = DateiReader.ReadLine.ToString
    7. If lesen = True Then
    8. If zeile = "" Then
    9. zeile = zeile
    10. ElseIf zeile = " " Then
    11. zeile = zeile
    12. Else
    13. newCollection.Add(zeile.ToString)
    14. End If
    15. End If
    16. If zeile = "#sender" Then
    17. lesen = True
    18. ElseIf zeile = "#ende" Then
    19. lesen = False
    20. End If
    21. Loop
    22. orm21_alle_sender = newCollection
    23. End Function