Visual Basic; System.NullReferenceException; For Each über Array-Elemente; If Abfrage;

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von FiLA85.

    Visual Basic; System.NullReferenceException; For Each über Array-Elemente; If Abfrage;

    Kann mir jemand sagen wieso der folgende Code immer einen Ausnahmefehler "System.NullReferenceException" liefert wenn ich mehrere Einträge (mit Leerzeichen getrennt) in txt_Allele eingebe. Wenn ich nur einen Wert eintrage funktioniert die Ausgabe.
    Der Fehler tritt in der If Abfrage in Zeile 11 auf.

    VB.NET-Quellcode

    1. Private Sub btn_search_Click(sender As Object, e As EventArgs) Handles btn_search.Click
    2. Dim allele() As String
    3. Dim i As Integer
    4. Dim Ende As Long
    5. Dim allel As String
    6. Dim space() As Char = {" "c}
    8. allele = txt_Allele.Text.Split(space)
    9. For i = 1 To 500
    10. For Each allel In allele
    11. If worksheet.Cells(i, 1).Value = allel Then
    12. ListBox1.Items.Add(worksheet.Cells(i, 11).Value)
    13. ListBox2.Items.Add(worksheet.Cells(i, 12).Value)
    14. End If
    15. Next
    16. Next
    17. End Sub

    @FiLA85 Willkommen im Forum. :thumbup:
    Das ist ein typischer Fehler, wo wir hier nicht so richtig helfen können, da wir keine Kenntnis von Deinen Objekten haben.
    Was Du machen kannst: Wenn es knallt, untersuche die Objekte, welche(s) davon Nothing ist.
    Dazu musst Du das tun, was hier jeder Programmierer macht: Debuggen, in Deinem Kämmerlein an Deinem Code.
    Gugst Du hier.
    Kandidaten wären zunächst Cells(i, 1). Warum fängt Deine Zählung bei 1 und nicht bei 0 an?
    Warum endet sie bei 500 und nicht bei der Anzahl der Objekte (-1)?

    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Du könntest uns mal mehr darüber erzählen was du genau vor hast. Da die NullReferenceException in Zeile 11 auftritt, ist Value oder allel null (Nothing) bzw. uninitialisiert.

    Vereinfachen könnte man den ganzen Code so:

    VB.NET-Quellcode

    1. For i As Integer = 1 To 500
    2. For Each allel in txt_Allele.Text.Split(" ")
    3. If worksheet.Cells(i, 1).Value = allel Then
    4. ListBox1.Items.Add(worksheet.Cells(i, 11).Value)
    5. ListBox2.Items.Add(worksheet.Cells(i, 12).Value)
    6. End If
    7. Next
    8. Next

    Ist letztenendes vom Sinn her das selbe was du da stehen hast. Ginge sogar noch schneller per Linq.
    Aber vielleicht hilfts dir ja.

    VB.NET-Quellcode

    1. Imports System.Runtime.InteropServices
    2. Imports Excel = Microsoft.Office.Interop.Excel
    4. Module Module1
    5. Dim APP As New Excel.Application
    6. Dim worksheet As Excel.Worksheet
    7. Dim workbook As Excel.Workbook
    8. Dim Allele() As String
    9. Dim wb As String, ws As String
    10. Dim Ende As Integer
    11. Sub Main()
    12. Console.WriteLine("Dateipfad:")
    13. wb = Console.ReadLine()
    15. workbook = APP.Workbooks.Open(wb)
    16. worksheet = workbook.ActiveSheet
    18. With worksheet
    19. Ende = .Range("A" & .Rows.Count).End(Excel.XlDirection.xlUp).Row
    20. End With
    22. Console.Write("Allele:")
    23. Allele = Console.ReadLine().Split(" ")
    24. Console.WriteLine()
    25. Console.WriteLine("--------------------------------------------------------")
    26. For i = 2 To Ende
    27. For Each allel In Allele
    28. If worksheet.Cells(i, 1).Value = allel Then
    29. If worksheet.Cells(i, 11).Value = [String].Empty Then
    30. Console.Write(allel & " " & " ")
    31. Else Console.Write(allel & " " & worksheet.Cells(i, 11).Value & " ")
    32. End If
    33. If worksheet.Cells(i, 12).Value = [String].Empty Then
    34. Console.WriteLine(" ")
    35. Else Console.WriteLine(worksheet.Cells(i, 12).Value)
    36. End If
    37. End If
    38. Next
    39. Next
    40. Console.ReadLine()
    41. workbook.Close()
    42. APP.Close()
    43. Marshal.ReleaseComObject(workbook)
    44. Marshal.ReleaseComObject(APP)
    45. End Sub
    46. End Module


    Hallo,
    das ist der Code. Musste alles noch etwas ändern, da eine Kommandozeilenausgabe gewünscht war. Funktioniert jetzt soweit. Allerdings macht APP.Close() Probleme. Bekomme da die Fehlermeldung "System.MissingMemberException". Wenn ich den Befehl weglasse, wird der Excel Prozess dann nicht geschlossen? Bzw. gibt ne andere/ bessere Möglichkeit um die Excel Prozesse zu killen?
    Danke im voraus!

Facebook
Telefonspende