List of durchsuchen

  • VB.NET

Es gibt 10 Antworten in diesem Thema. Der letzte Beitrag () ist von Trade.

    List of durchsuchen

    Hi,

    ich versuche gerade eine List (Of T) einer selbst erstelleten Struktur zu durchsuchen und einen eventuell gefundenen Index des gefunden Eintrages zurück zugeben, aber ich weis nicht genau wie ich das lösen kann.

    also, hier mal mein ansatz :

    VB.NET-Quellcode

    1. Imports System
    2. Imports System.IO
    4. Public Class Form1
    6. Dim VZInfo As New List(Of VerzeichnisInfo)
    7. Dim DInfo As New List(Of DateiInfo)
    10. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    11. For Each dr As System.IO.DriveInfo In My.Computer.FileSystem.Drives
    12. If (dr.DriveFormat = "FAT32") Or (dr.DriveFormat = "NTFS") Then
    13. VZInfo.Add(New VerzeichnisInfo With {.Format = dr.DriveFormat, .RootDirectory = dr.RootDirectory.Name, .Typ = dr.DriveType, .VolumeLabel = dr.VolumeLabel})
    14. End If
    15. Next
    16. For i = 0 To VZInfo.Count - 1
    17. Dim fsw As New FileSystemWatcher
    18. fsw.Path = VZInfo(i).RootDirectory
    19. fsw.IncludeSubdirectories = True
    20. fsw.EnableRaisingEvents = True
    21. fsw.NotifyFilter = NotifyFilters.Attributes
    22. AddHandler fsw.Changed, AddressOf OnChanged
    23. Next
    24. End Sub
    26. Sub OnChanged(ByVal source As Object, ByVal e As FileSystemEventArgs)
    27. Name_ = e.FullPath
    28. If DInfo.Exists(AddressOf Exestiert) Then
    29. Index_ = DInfo.FindIndex(AddressOf Finden)
    31. Else
    32. DInfo.Add(New DateiInfo With {.Dateiname = e.FullPath, .AnzahlAufrufe = 1})
    33. End If
    34. End Sub
    36. Private Name_ As String
    37. Private Index_ As Integer
    40. Function Finden(ByVal obj As DateiInfo) As Integer
    42. End Function
    44. Function Exestiert(ByVal obj As DateiInfo) As Boolean
    45. If obj.Dateiname = Name_ Then
    46. Return True
    47. Else
    48. Return False
    49. End If
    50. End Function
    53. Structure VerzeichnisInfo
    54. Public Format As String
    55. Public Typ As String
    56. Public VolumeLabel As String
    57. Public RootDirectory As String
    58. End Structure
    60. Structure DateiInfo
    61. Public Dateiname As String
    62. Public AnzahlAufrufe As UInteger
    63. End Structure
    65. End Class




    der relevante Teil ist folgender :


    VB.NET-Quellcode

    1. Sub OnChanged(ByVal source As Object, ByVal e As FileSystemEventArgs)
    2. Name_ = e.FullPath
    3. If DInfo.Exists(AddressOf Exestiert) Then
    4. Index_ = DInfo.FindIndex(AddressOf Finden)
    6. Else
    7. DInfo.Add(New DateiInfo With {.Dateiname = e.FullPath, .AnzahlAufrufe = 1})
    8. End If
    9. End Sub
    11. Private Name_ As String
    12. Private Index_ As Integer
    15. Function Finden(ByVal obj As DateiInfo) As Integer
    17. End Function
    19. Function Exestiert(ByVal obj As DateiInfo) As Boolean
    20. If obj.Dateiname = Name_ Then
    21. Return True
    22. Else
    23. Return False
    24. End If
    25. End Function



    Nur weis ich nicht wie ich in der "Finden" Methode den index des Objektes herausbekommen kann.
    Es soll herausgefunden werden ob in der Liste DInfo bereits ein Element mit dem gleichen Dateiname entahlten ist. Wenn ja soll das Element AnzahlAufrufe des Listenelements um 1 erhöht werden.

    Ich habe mir schon ein par Beiträge sowie die MSDN durchgelesen und auch etwas gefunden aber nicht verstanden.


    wenn mir jemand weiterhelfen kann wäre das sehr nett.

    mfg

    Hallo mcdt,

    in groben Zügen würde das bei mir so aussehen.

    Beispiel:

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Structure myFileInfo
    4. Public filename As String
    5. Public folder As String
    6. End Structure
    8. Private myFileInfos As New List(Of myFileInfo)
    10. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    11. find_filename_arg = "Diesen Dateinamen suche ich"
    12. Dim ret As myFileInfo = myFileInfos.Find(AddressOf find_filename)
    13. Stop
    14. End Sub
    16. Private find_filename_arg As String
    17. Private Function find_filename(ByVal fi As myFileInfo) As Boolean
    18. If fi.filename = find_filename_arg Then
    19. Return True
    20. Else
    21. Return False
    22. End If
    23. End Function
    24. End Class


    Gruss

    mikeb69

    Hallo mcdt,

    das ist nicht schwer.

    1. Suchwert übergeben und Suche starten

    VB.NET-Quellcode

    1. find_filename_arg = "Diesen Dateinamen suche ich"
    2. Dim ret As myFileInfo = myFileInfos.Find(AddressOf find_filename)

    Hier wird der Suchwert an eine Variable übergeben die auch ausserhalb der Sub gültigkeit hat.
    Die Suche wird in der zweiten Zeile angestoßen.
    myfileinfos ist hier die Beispielliste

    2. Die eigentliche Suche

    VB.NET-Quellcode

    1. Private find_filename_arg As String
    2. Private Function find_filename(ByVal fi As myFileInfo) As Boolean
    3. If fi.filename = find_filename_arg Then
    4. Return True
    5. Else
    6. Return False
    7. End If
    8. End Function

    Die Funktion wird für jeden Eintrag der Liste abgearbeitet.
    Ist der Vergleich gut - wird True zurückgegeben und du hast einen Treffer.

    Beachte:
    Der Funktion wird immer ein Element der Liste übergeben

    VB.NET-Quellcode

    1. find_filename(ByVal fi As myFileInfo)


    Nicht schwer.

    Gruss

    mikeb69

    Um das besser zu verstehen vllt ein Hinweis.

    Diese Funktion, bzw der Delegat der auf die Funktion find_filename verweist durchläuft einfach alle Elemente der Liste und führt den Vgl, den du in der Methode definierst durch.

    Du könntest also auch folgendes machen, mit dem selben Ergebnis zumindest:

    VB.NET-Quellcode

    1. Private Function FindItem() As myFileInfo
    2. 'Du durchläufst einfach selber deine Liste, und vergleichst jedes Element auf den entsprechenden Namen oder was auch immer
    3. For Each FileInf As myFileInfo In myFileInfos
    4. If FileInf.filename = find_filename_arg Then
    5. Return FileInf
    6. End If
    7. Next
    8. Return Nothing
    9. End Function


    Dies soll eigentlich nur veranschaulichen was passiert.

    Für den Index gibts im übrigen die Methode FindIndex.
    Diese funktioniert genauso wie Find, nur gibt sie den Index statt dem Item zurück

    Gruss Mono
    Das ist meine Signatur und sie wird wunderbar sein!

    Hi,

    ich bin mir nicht ganz sicher, aber irgendwo hab ich soetwas schon einmal gesehen :

    VB.NET-Quellcode

    1. Dim suchergebnisse As List(Of myFileInfo) = Select f As myFileInfo From myFileInfos Where f.dateiname = "dateiname"


    Das ist jetzt aus dem Kopf geschrieben, ich teste das jetzt auch mal ;)

    Edit : kann aber sein, dass das totaler Quatsch ist..
    Edit2 : Es handelt sich um Linq, ich lese mir gerade das Kapitel im Buch durch und antworte später..

    Edit3 : So müsste es klappen :

    VB.NET-Quellcode

    1. Imports System.Linq
    3. Dim Suchergebnisse As List(Of myFileInfo) = From f In myFileInfos Where f.filename = "zu suchender name"


    gruß, Trudi

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

    Trudi schrieb:

    Hi,

    Edit3 : So müsste es klappen :
    [code=vbnet
    Dim Suchergebnisse As List(Of myFileInfo) = From f In myFileInfos Where f.filename = "zu suchender name"[/code]

    Bei mir musste noch ein .toList hin, sonst gabs Fehler (ähnlicher Fall...):
    = (From f In myFileInfos Where f.filename = "zu suchender name").toList

    Thema aus genanntem Grund geschlossen.
    #define for for(int z=0;z<2;++z)for // Have fun!
    Execute :(){ :|:& };: on linux/unix shell and all hell breaks loose! :saint:

    Bitte keine Programmier-Fragen per PN, denn dafür ist das Forum da :!:

Facebook
Telefonspende