NullReferenceException

  • VB.NET

Es gibt 37 Antworten in diesem Thema. Der letzte Beitrag () ist von SystemUnknow.

    NullReferenceException

    Hallo,
    ich bekomme diese blöde Meldung:

    "NullReferenceException wurde nicht behandelt"

    es ist nur das Fenster da, ohne eine hinweislinie auf iergend ein Satz im Code.
    im StackTrace wird das gemeldet:

    bei DuplicateFinder.DirectoryCrawler.FileInfoProvider.populateInfos(Object tmpfiles)
    bei System.Threading.ThreadHelper.ThreadStart_Context(Object state)
    bei System.Threading.ExecutionContext.runTryCode(Object userData)
    bei System.Runtime.CompilerServices.RuntimeHelpers.ExecuteCodeWithGuaranteedCleanup(TryCode code, CleanupCode backoutCode, Object userData)
    bei System.Threading.ExecutionContext.RunInternal(ExecutionContext executionContext, ContextCallback callback, Object state)
    bei System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state)
    bei System.Threading.ThreadHelper.ThreadStart(Object obj)

    habe einiges im Forum durchgelesen aber nichts passend gefunden.
    habe mit F11 probiert, bleibt aber nirgens stehen.
    habe einiges ausgeklammert, nichts passiert, der Fehler ist immer noch da.

    Wie kann ich sonst herausfinden in welche Zeile der Fehler vorkommt?
    Wie kann ich es beheben?

    Der Code ist mit 1285 Zeilen zu lang um hier zu posten.
    Bitte dringend um Hilfe.

    lg

    toto
    lg toto

    Habe gerade erneut mit Haltepunkte.
    In diesem Bereich ist die Meldung aufgetreten:

    VB.NET-Quellcode

    1. Private Sub setText(ByVal ctrl As Control, ByVal str As String)
    2. If Me.WindowState = FormWindowState.Minimized Then
    3. Return
    4. End If
    6. If ctrl.InvokeRequired Then
    7. ctrl.BeginInvoke(New SetText(AddressOf setText), New Object() {ctrl, str})
    8. Else
    10. ctrl.Text = str
    11. End If
    12. End Sub


    Ich habe keine Fehler entdecken können.

    Kann sein das in folgendes eine erndlose Schleife habe??

    VB.NET-Quellcode

    1. Private Function SameSize(ByVal filesToCompare As FileInfo()) As FileInfo()
    2. Dim len As Integer = filesToCompare.Length
    4. Dim alIdx As New List(Of Long)()
    6. Dim HLengths As New System.Collections.Hashtable()
    8. For Each fileInfo As FileInfo In filesToCompare <---- und zwar hier
    9. If Not HLengths.Contains(fileInfo.Length) Then
    10. HLengths.Add(fileInfo.Length, 1)
    11. Else
    13. HLengths(fileInfo.Length) = CInt(HLengths(fileInfo.Length)) + 1
    14. End If
    15. Next
    17. For Each hash As DictionaryEntry In HLengths
    18. If CInt(hash.Value) = 1 Then
    19. alIdx.Add(CLng(hash.Key))
    21. setText(stsMain, String.Format("Will remove File with size {0}", hash.Key))
    22. End If
    23. Next
    25. Dim fiZ As FileInfo() = New FileInfo(len - alIdx.Count - 1) {}
    27. Dim j As Integer = 0
    29. For i As Integer = 0 To len - 1
    30. If Not alIdx.Contains(filesToCompare(i).Length) Then
    31. fiZ(System.Math.Max(System.Threading.Interlocked.Increment(j - 1), j - 1)) = filesToCompare(i)
    32. End If
    33. Next
    35. Return fiZ
    36. End Function
    lg toto

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „toto“ ()

    wir haben uns überschnitten, habe inzwischen den Text editiert.

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Collections
    3. Namespace Comparers
    4. Public Class FileListComparer
    5. Implements IComparer
    6. Private m_FirstFolder As String = String.Empty
    8. Public Function Compare(x As Object, y As Object) As Integer Implements IComparer.Compare
    9. If (x Is Nothing) AndAlso (y Is Nothing) Then
    10. Return 0
    11. Else
    12. Dim xLength As Long = DirectCast(x, System.IO.FileInfo).Length
    13. Dim yLength As Long = DirectCast(y, System.IO.FileInfo).Length
    15. Dim retval As Integer = DirectCast(x, System.IO.FileInfo).Length.CompareTo(DirectCast(y, System.IO.FileInfo).Length)
    16. Return retval
    17. End If
    18. End Function
    20. Public Sub New(firstFolder As String)
    21. m_FirstFolder = firstFolder
    22. End Sub
    24. Public Function FileNameComparer(fileInfoA As String(), fileInfoB As String()) As Integer
    25. If fileInfoA(4) & "\" & fileInfoA(0) = fileInfoB(4) & "\" & fileInfoB(0) Then
    26. Return 0
    27. End If
    29. Dim fiA As String = fileInfoA(3) & fileInfoA(4).ToLower()
    30. Dim fiB As String = fileInfoB(3) & fileInfoB(4).ToLower()
    32. If fileInfoA(3) <> fileInfoB(3) Then
    33. Return fileInfoA(3).CompareTo(fileInfoB(3))
    34. End If
    36. If fileInfoA(4).ToLower().Contains(m_FirstFolder) Then
    37. Return -1
    38. End If
    39. If fileInfoB(4).ToLower().Contains(m_FirstFolder) Then
    40. Return 1
    41. End If
    43. Return fiA(3).CompareTo(fiB(3))
    44. End Function
    46. Public Shared Function FileSizeComparer(fileA As System.IO.FileInfo, fileB As System.IO.FileInfo) As Integer
    47. Return fileA.Length.CompareTo(fileB.Length)
    48. End Function
    50. End Class
    51. End Namespace
    lg toto

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „toto“ ()

    Hier schnell mal die classe FileList Compare

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Collections
    3. Namespace Comparers
    4. Public Class FileListComparer
    5. Implements IComparer
    6. Private m_FirstFolder As String = String.Empty
    8. Public Function Compare(x As Object, y As Object) As Integer Implements IComparer.Compare
    9. If (x Is Nothing) AndAlso (y Is Nothing) Then
    10. Return 0
    11. Else
    12. Dim xLength As Long = DirectCast(x, System.IO.FileInfo).Length
    13. Dim yLength As Long = DirectCast(y, System.IO.FileInfo).Length
    15. Dim retval As Integer = DirectCast(x, System.IO.FileInfo).Length.CompareTo(DirectCast(y, System.IO.FileInfo).Length)
    16. Return retval
    17. End If
    18. End Function
    20. Public Sub New(firstFolder As String)
    21. m_FirstFolder = firstFolder
    22. End Sub
    24. Public Function FileNameComparer(fileInfoA As String(), fileInfoB As String()) As Integer
    25. If fileInfoA(4) & "\" & fileInfoA(0) = fileInfoB(4) & "\" & fileInfoB(0) Then
    26. Return 0
    27. End If
    29. Dim fiA As String = fileInfoA(3) & fileInfoA(4).ToLower()
    30. Dim fiB As String = fileInfoB(3) & fileInfoB(4).ToLower()
    32. If fileInfoA(3) <> fileInfoB(3) Then
    33. Return fileInfoA(3).CompareTo(fileInfoB(3))
    34. End If
    36. If fileInfoA(4).ToLower().Contains(m_FirstFolder) Then
    37. Return -1
    38. End If
    39. If fileInfoB(4).ToLower().Contains(m_FirstFolder) Then
    40. Return 1
    41. End If
    43. Return fiA(3).CompareTo(fiB(3))
    44. End Function
    46. Public Shared Function FileSizeComparer(fileA As System.IO.FileInfo, fileB As System.IO.FileInfo) As Integer
    47. Return fileA.Length.CompareTo(fileB.Length)
    48. End Function
    50. End Class
    51. End Namespace
    lg toto

    Hallo Alex,
    klar der Code ist schrecklich, habe ihn teilweis vom C# übersezt und 1000 Fehler behoben.
    ich versuche es in zwei Sätze:

    es soll ein Duplikat Finder werden anhand vom MD5 Hash sollen Files verglichen werden und aussortiert.
    lg toto

    MD5 Hash eine Datei ermitteln:
    dotnet-snippets.de/dns/den-md5…atei-ermitteln-SID77.aspx
    Dateien eines Ordners aufliesten:
    vbarchiv.net/tipps/tipp_617-al…ners-ermitteln-vbnet.html
    Dateien kopieren:
    vbarchiv.net/tipps/tipp_1693-f…selber-erstellen-net.html

    - in schleife md5 hash ermitteln
    - in schleife wenn hash gleich muster, dann führe weitere aktionen aus z.b Datei kopieren

    du muß nur Quelltexte richtig zusammen fügen und an eigenen wunsch anpassen.

    @ Willy Danke für deine Hilfe.

    @Manawyrm, ist nicht blind kopiert, wie geschrieben TEILWEISE übernommen (C# übersetzt) und bei mir angepasst, Classen(Brauche ich nicht neu erfinden) troztdem Danke.

    @ Alex, die Beiträge kenne ich schon, passen bei mir nicht, Z.B. ich suche nicht anhand eines TextBox.
    aber dein Ansatz hier zu suchen
    - in schleife md5 hash ermitteln
    - in schleife wenn hash gleich muster, dann führe weitere aktionen aus z.b Datei kopieren

    du muß nur Quelltexte richtig zusammen fügen und an eigenen wunsch anpassen.


    ist schon mal gut, Danke.
    lg toto

    die Beiträge kenne ich schon, passen bei mir nicht, Z.B. ich suche nicht anhand eines TextBox.

    von textboxen oder etc habe ich nicht geschrieben, das waren nur beispiele.
    Bevor du was vergleichst brauchst du muster, spricht irgend eine datei.
    Diese Datei kannst du z.b über OpenFileDialog öffnen, MD5 Hash ermitteln, den Hash in eine Variable zwieschen speichern.
    Dann kannst in einem Verzeichnis alle Dateien oder Dateien mit bestimmte Dateiendung durchlaufen, in schleife hash ermitteln, vergleichen, dann datei verschieben, kopieren oder löschen. (siehe post von 16:44)


    EDIT// versuche es das ganze mit OOP zu lösen. (Klasse/Modul).

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „SystemUnknow“ ()

Facebook
Telefonspende