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
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
- Public Function orm21_alle_sender(ByVal pfad As String) As StringCollection
- Dim newCollection As StringCollection = Nothing
- Dim DateiReader As New StreamReader(pfad)
- Dim lesen As Boolean = False
- Do While Not DateiReader.EndOfStream
- Dim zeile As String = DateiReader.ReadLine.ToString
- If lesen = True Then
- If zeile = "" Then
- zeile = zeile
- ElseIf zeile = " " Then
- zeile = zeile
- Else
- newCollection.Add(zeile.ToString)
- End If
- End If
- If zeile = "#sender" Then
- lesen = True
- ElseIf zeile = "#ende" Then
- lesen = False
- End If
- Loop
- orm21_alle_sender = newCollection
- End Function