Zuletzt geöffnete Dateien

Switcherlapp97 · 17. August 2013, 21:07

Hallo Community

Sehr viele Programme zeigen die zuletzt geöffneten Dateien/Dokumente an, um so schneller Zugriff auf diese zu haben. Das kann auch für eigene Programme recht nützlich sein (z.B. für ein Textverarbeitungsprogramm, etc.). Um so etwas zu realisieren, kann man auf verschiedene Art und Weise vorgehen. Bei jeder Variante muss auf jeden Fall die Information irgendwo gespeichert werden. Zum Beispiel:
- Textdatei
- typisiertes Dataset (kommt im nächsten Teil)

Textdatei

Vorteile dieser Methode:
- schnell und einfach zu programmieren
- hinterlässt keine Reste auf dem Rechner

Nachteile:
- auch Laien, die die Textdatei finden, können diese verändern, löschen, etc.
- die Datei muss in einem fixen Dateipfad sein und darf nicht verschoben werden

Beispiel für das Laden und Speichern der zuletzt geöffneten Dokumente mit einer Textdatei

Die Datei heißt "Files.txt" und liegt im AppData-Verzeichnis.
EDIT: Den Code habe ich angepasst, aufgrund der Kritik von @VincentTB (Danke nochmal :))

Die Imports:

VB.NET-Quellcode

Imports System.IO

Bei dieser Methode benötigen wir nur eine Konstante für die maximale Anzahl der zuletzt geöffneten, die angezeigt werden sollen. Dafür aber noch zwei Variablen

VB.NET-Quellcode

Const maxFiles As Integer = 5
Private LastFiles As New List(Of FileInfo)
Private textfile As New FileInfo(Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData), "Files.txt"))

Hier der Code, um die Dateinamen in die Listbox zu laden:

VB.NET-Quellcode

Private Sub GetLastFiles()
Dim textfile As New FileInfo(Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData), "Files.txt"))
'Überprüfen, ob die Textdatei existiert (im AppData-Verzeichnis)
If File.Exists(textfile.FullName) Then
'Die Zeilen der Textdatei auslesen
Dim files() As String = File.ReadAllLines(textfile.FullName)
'Die letzten Zeilen der Liste als erstes hinzufügen
For i As Integer = files.Count - 1 To 0 Step -1
If Not files(i) = "" Then
LastFiles.Add(New FileInfo(files(i)))
'Wenn die Liste die maximale Anzahl der Dateien erreicht hat )-> Schleife beenden
If LastFiles.Count = maxFiles Then
Exit For
End If
End If
Next
'LastFiles Liste an die Listbox binden
ListBox1.DataSource = LastFiles
'Nur den Namen der Datei anzeigen
ListBox1.DisplayMember = "Name"
End If
End Sub

So wird eine neue Datei der Textdatei hinzugefügt:

VB.NET-Quellcode

Public Sub AddFileToList(ByVal FilePath As String)
'Die Zeilen der Textdatei auslesen
Dim lines() As String = File.ReadAllLines(textfile.FullName)
Using sw As New StreamWriter(textfile.FullName)
'Alle Zeilen durchgehen
For i As Integer = 0 To lines.Count - 1
'Falls eine Zeile den Pfad enthält, der gerade hinzugefügt werden soll, wird die alte Zeile in der Textdatei mit dem Pfad entfernt
If Not lines(i) = FilePath Then
sw.WriteLine(lines(i))
End If
Next
'Pfad, der hinzugefügt werden soll in Textdatei schreiben.
sw.WriteLine(FilePath)
End Using
End Sub

Wir haben wieder die selbe Startform, wie im Registry-Beispiel und die Anwendung hat genau den gleichen Click-Event des Button und den selben DoubleClick-Event der Listbox, wie im Registry-Beispiel. Hier also der komplette Code der Form:

VB.NET-Quellcode

Option Strict On
Imports System.IO
Public Class Form1
Const maxFiles As Integer = 5
Private LastFiles As New List(Of FileInfo)
Private textfile As New FileInfo(Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData), "Files.txt"))
Private Sub GetLastFiles()
Dim textfile As New FileInfo(Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData), "Files.txt"))
'Überprüfen, ob die Textdatei existiert (im AppData-Verzeichnis)
If File.Exists(textfile.FullName) Then
'Die Zeilen der Textdatei auslesen
Dim files() As String = File.ReadAllLines(textfile.FullName)
'Die letzten Zeilen der Liste als erstes hinzufügen
For i As Integer = files.Count - 1 To 0 Step -1
If Not files(i) = "" Then
LastFiles.Add(New FileInfo(files(i)))
'Wenn die Liste die maximale Anzahl der Dateien erreicht hat )-> Schleife beenden
If LastFiles.Count = maxFiles Then
Exit For
End If
End If
Next
'LastFiles Liste an die Listbox binden
ListBox1.DataSource = LastFiles
'Nur den Namen der Datei anzeigen
ListBox1.DisplayMember = "Name"
End If
End Sub
Public Sub AddFileToList(ByVal FilePath As String)
'Die Zeilen der Textdatei auslesen
Dim lines() As String = File.ReadAllLines(textfile.FullName)
Using sw As New StreamWriter(textfile.FullName)
'Alle Zeilen durchgehen
For i As Integer = 0 To lines.Count - 1
'Falls eine Zeile den Pfad enthält, der gerade hinzugefügt werden soll, wird die alte Zeile in der Textdatei mit dem Pfad entfernt
If Not lines(i) = FilePath Then
sw.WriteLine(lines(i))
End If
Next
'Pfad, der hinzugefügt werden soll in Textdatei schreiben.
sw.WriteLine(FilePath)
End Using
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Using ofd As New OpenFileDialog
If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
AddFileToList(ofd.FileName)
Process.Start(ofd.FileName)
End If
End Using
End Sub
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
GetLastFiles()
End Sub
Private Sub ListBox1_DoubleClick(sender As Object, e As System.EventArgs) Handles ListBox1.DoubleClick
If Not ListBox1.SelectedItems.Count = 0 Then
Process.Start(ListBox1.SelectedItem.ToString)
End If
End Sub
End Class

Welche Variante ihr wählt ist auch überlassen. Eine Methode mit nur Vorteilen gibt es denke ich nicht.

Das ist mein erstes Tutorial und ich hoffe ich konnte euch helfen. Es ist hauptsächlich für Anfänger gedacht, um zu lernen Daten zu speichern und zu laden aus Textdateien oder aus der Registry. Seit nicht so streng mit mir, falls mein Code nicht ganz sauber ist

Für Kritik und Verbesserungen bin ich stets offen.

Gruß
Switcherlapp97

EiPott · 17. August 2013, 23:35

Ich frage mich ernsthaft, wieso du die Registry als erste Option nennst. Ich seh's kommen, dass die nächsten Texteditoren hier im Showroom die Registry zumüllen. Bitte rate von der Nutzung der Registry ab. Die zuletzt genutzen Dateien haben dort _nichts_ zu suchen.

VincentTB · 18. August 2013, 10:27

Switcherlapp97 schrieb:

VB.NET-Quellcode

File.Create(Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData)))

Was soll das denn?

Und den Pfad gibst du fast 10x ein. Wieso keine FileInfo als Memberobjekt? Generell: [VB.NET] Keine Strings in die File-Listbox!

Und Registry geht ja mal für ein Programm ohne Installer/Uninstaller gar nicht. So ein Programm würde ich niemals starten. Und eine Möglichkeit, die viel einfacher ist als die anderen beiden ist mit einem typisierten Dataset. Da könnte man dann auch noch andere Informationen speichern wie zB. die Häufigkeit, ... speichern.

Trade · 19. August 2013, 11:03

Wie ich dir schon per PN mitgeteilt habe:
Schmeiß das mit der Registry gleich ganz raus. Nicht, dass einige Anfänger nich auf die Idee kommen das so zu lösen!
Damit zerschießt du die Registry schneller als du gucken kannst. Dort sollten nur Werte verändert werden.

Für sowas würde ich noch andere Methoden hernehmen: Gute sind Serialisierung, DataTable oder auch normale JSON-Dateien! Schreib das dazu und lösch das andere, dann biste auf der sicheren Seite. Ggf. Kann man sich auch selbst was schreiben!

Switcherlapp97 · 19. August 2013, 14:42

Hallo,

Die zuletzt geöffneten Dateien können auch mit einem typisierten Dataset geladen und gespeichert werden. (Danke an @VincentTB für die Idee)

Vorteile:
- Es können viele Informationen einfach gespeichert und verarbeitet werden
- Das Binding vereinfacht das Programmieren
- ...

Nachteile:
- Die Infos werden wieder in eine Datei geschrieben -> beim Verschieben oder Löschen dieser Datei, kann die Datei nicht mehr verwendet werden.
- Die XML-Datei kann vom Benutzer verändert werden -> Datei ruinieren oder falsche Werte eingeben

Als erstes muss ein typisertes Dataset erstellt werden. Das geht so:

typisiertes Dataset erstellen

1. In der Menüleiste auf Projekt>Neues Element hinzufügen ... und im sich öffnenden Fenster Dataset auswählen
2. In der Namenleiste den gewünschten Namen des Datasets eingeben (bei meinem Beispiel LastFiles.xsd) und mit einem Klick auf Hinzufügen bestätigen. Dann öffnet sich der DataSet-Designer
3. Aus der Toolbox einen DataTable auf den DataSet-Designer ziehen und umbenennen so wie es gewünscht ist (bei meinem Beispiel Files)
4. Dem DataTable drei Spalten hinzufügen (Dateipfad, zuletzt geöffnet am und wie oft die Datei geöffnet wurde). Spalten werden mit einem Rechtsklick auf den DataTable dann Hinzufügen>Spalte und den Namen eingeben. Ich habe die Spalten Dateipfad,Datum und Anzahl benannt (es sollte dan ausschauen, wie das erste Bild im Anhang)
5. Nun müsst ihr das Datenquellenfenster einblenden. Dafür muss man auf Menü auf Daten>Datenquellen anzeigen gehen. Dort sollte der Name, den ihr für euer DataSet gewählt habt, stehen. Wenn man diesen Eintrag aufklappt, kommt die Tabelle, die wir vorhin erstellt haben. Diese Tabelle ziehen wir per Drag und Drop auf unsere Form. Auf der Form ist jetzt ein BindingNavigator und ein DataGridView. Das können wir beides löschen. Genauso wie in der Leiste unter der Form die FilesBindingSource. (Es sollte ausschauen, wie in Bild2 im Anhang)

Das war es dann auch schon mit dem Erstellen des Typisierten Datasets und wir können uns an den Code machen.

EDIT: Den Code habe ich jetzt verbessert aufgrund des Hinweises von @ErfinderDesRades (Danke nochmal :))

Wir fügen unserer Form nun eine Listbox für die Liste der zuletzt geöffneten Dateien (Listbox1) hinzu und ein Button (Button1), um neue Dateien zu öffnen. Nun müssen wir noch einen Import durchführen:

VB.NET-Quellcode

Imports System.IO

Wir brauchen auch noch zwei Variablen und eine Konstante:

VB.NET-Quellcode

'Speicherort der XML-Datei
Private _Datafile As New FileInfo("LastFiles.xml")
'Liste mit Fileinfos über die zuletzt geöffneten Dateien
Private Files As New List(Of FileInfo)
'Anzahl der zuletzt gesöffneten Dateien, die angezeigt werden sollen
Const maxFiles As Integer = 5

Hier zwei Subs, um die Daten im DataTable zu speichern bzw. zu laden:
EDIT: Ich habe hier nur beim Reload-Code etwas verändert. Und zwar, dass die Liste nach zuletzt geöffnetem Datum geordnet wird und dass im Reload-Code überprüft wird, dass nicht mehr wie maxFiles Dateien in der Listbox angezeigt werden.

VB.NET-Quellcode

Private Sub Reload()
'Die Einträge des Datasets leeren
LastFiles.Clear()
'Die FileInfo-Liste leeren
Files.Clear()
'Wenn die Datei existiert, wird die XML-Datei ausgelesen und dem Dataset die Werte zugewiesen
If _Datafile.Exists Then LastFiles.ReadXml(_Datafile.FullName)
'Der FileInfo-Liste, werden die Pfade aus der XML-Datei hinzugefügt und als LastAccessTime wird das zuletzt geöffnete Datum der Datei gesetzt
Dim lf = From rwFile In LastFiles.Files Order By rwFile.Datum Descending Take maxFiles Select New FileInfo(rwFile.Dateipfad) With {.LastAccessTime = rwFile.Datum}
Files.AddRange(lf)
'Die Listbox mit der Files-Liste verbinden
ListBox1.DataSource = Files
'In Listbox nur den Namen der Dateien anzeigen
ListBox1.DisplayMember = "Name"
End Sub
Private Sub Save()
Me.Validate()
LastFiles.WriteXml(_Datafile.FullName)
End Sub

Hier der Code, um einen Dateipfad in den DataTabled zu schreiben und die Anzahl zu verändern:
EDIT: Der Code war wirklich ziemlicher Crap und auch viel zu lang :whistling:. Ich habe ihn jetzt verbessert. Falls es immer noch Verbesserungsvorschläge gibt einfach posten

VB.NET-Quellcode

Private Sub AddFileToLastFilesList(ByVal FilePath As String)
Dim rwLastFile = LastFiles.Files.FirstOrDefault(Function(r) r.Dateipfad = FilePath)
If rwLastFile Is Nothing Then
LastFiles.Files.AddFilesRow(FilePath, Now, 1)
Else
rwLastFile.Anzahl += 1
rwLastFile.Datum = Now
End If
Save()
End Sub

In den FormLoad-Event schreiben wir dann noch:

VB.NET-Quellcode

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Reload()
End Sub

In den ButtonClick-Code muss noch folgender Code hinien, damit man der Dateiliste mit den zuletzt geöffneten Dateien neue Dateien hinzufügen kann:

VB.NET-Quellcode

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Using ofd As New OpenFileDialog
If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
AddFileToList(ofd.FileName)
Process.Start(ofd.FileName)
End If
End Using
End Sub

Hier noch der Code der kompletten Klasse

VB.NET-Quellcode

Option Strict On
Imports System.IO
Public Class Form1
Private _Datafile As New FileInfo("LastFiles.xml")
Private Files As New List(Of FileInfo)
Const maxFiles As Integer = 5
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Using ofd As New OpenFileDialog
If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
AddFileToLastFilesList(ofd.FileName)
'Process.Start(ofd.FileName)
End If
End Using
End Sub
Private Sub AddFileToLastFilesList(ByVal FilePath As String)
'Übeprüfen, ob die Datei bereits im DataTable vorhanden ist
If LastFiles.Files.Any(Function(r) r.Dateipfad = FilePath) Then
'Wenn ja wird die Zeile mit dem neuen Dateipfad gesucht und die Werte verändert
For Each rw In LastFiles.Files
If rw.Dateipfad = FilePath Then
rw.Anzahl += 1
rw.Datum = Now
End If
Next
Else
'Wenn nicht wird dem Dataset eine neue Zeile hinzugefügt
LastFiles.Files.AddFilesRow(FilePath, Now, 1)
End If
Save()
End Sub
Private Sub Reload()
'Die Einträge des Datasets
LastFiles.Clear()
'Die FileInfo-Liste leeren
Files.Clear()
'Wenn die Datei existiert, wird die XML-Datei ausgelesen und dem Dataset die Werte zugewiesen
If _Datafile.Exists Then LastFiles.ReadXml(_Datafile.FullName)
'Der FileInfo-Liste, werden die Pfade aus der XML-Datei hinzugefügt und als LastAccessTime wird das zuletzt geöffnete Datum der Datei gesetzt
For Each rw In LastFiles.Files
Dim fi As New FileInfo(rw.Dateipfad) With {.LastAccessTime = rw.Datum}
Files.Add(fi)
Next
'Die Liste wird nachdem Datum sortiert
Files.Sort(New System.Comparison(Of FileInfo)(Function(fi1 As FileInfo, fi2 As FileInfo) fi2.LastAccessTime.CompareTo(fi1.LastAccessTime)))
'So lange Einträge löschen bis die Liste nur noch maxFiles oder weniger Einträge beinhaltet
Do Until Files.Count <= maxFiles
Files.RemoveAt(Files.Count - 1)
Loop
'Die Listbox mit der Files-Liste verbinden
ListBox1.DataSource = Files
'In Listbox nur den Namen der Dateien anzeigen
ListBox1.DisplayMember = "Name"
End Sub
Private Sub Save()
Me.Validate()
LastFiles.WriteXml(_Datafile.FullName)
End Sub
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Reload()
End Sub
Private Sub ListBox1_DoubleClick(sender As Object, e As System.EventArgs) Handles ListBox1.DoubleClick
Process.Start(ListBox1.SelectedItem.ToString)
End Sub
End Class

Das wars dann auch schon. Falls ihr noch Ideen für weitere Varianten außer DataSet, Registry und Textdatei, dann antwortet diese bitte oder schreibt sie mir per PN. Auch Hinweise auf schlechten Code oder zu komplizierten Code wären sehr hilfreich für mich.

Gruß
Switcherlapp97

RodFromGermany · 19. August 2013, 14:50

Ich halte es für merkwürdig, dass es da kein .NET-Konzept vorrätig gibt.
Unter C++ mit der MFC wurde bei der Projekt-Erstellung einer Document-View-Applikation gefragt, wieviele Einträge zuletzt geöffneter Dateien berücksichtigt werden sollen, maximum war da wohl 16. Und feddich.
Allerdings wurden diese Einträge halt in der Registry abgelegt.

Trade · 19. August 2013, 21:32

Hab mir das jetzt nochmal durchgelesen.
Jetzt wäre noch ein Tut mit Serialisierung gut, da es einfach eine nützliche Funktion ist und einfach gut funktioniert!
Noch was unwichtiges: Wenn du vielleicht nochmal was mit ner anderen Klasse machst, dann könntest du die Variablen gleich als "Public" deklarieren, damit du sie dort gleich wieder verwenden kannst.
Ansonsten sieht das echt gut aus!

Switcherlapp97 · 23. August 2013, 18:49

Hallo,

In diesem Thread geht es hauptsächlich, um Daten zu laden, speichern und verarbeiten, verpackt in einem Beispiel zu den zuletzt geöffneten Dateien. Eine weitere Möglichkeit ist die Serialisierung (Danke an @Trade für die Idee). Die Serialisierung kann ein im Speicher befindliches Objekt in ein bestimmtes Format konvertieren und in einer Datei auf der Festplatte schreiben. Dieses Objekt in der Datei in sein ursprüngliches Format zurückkonvertiert werden. Es gibt 3 Serialisierungsverfahren. Ich verwende die XML-Serialisierung. Diese Methode ist etwas aufwendiger zu programmieren, dafür aber plattformunabhängig.

Nun wieder das Beispiel mit den zuletzt geöffneten Dateien. Wir legen zwei Klassen an. Eine Klasse für eine Datei in der der Dateipfad, der Zeitpunkt an dem die Datei zuletzt geöffnet wurde und wie oft diese Datei schon geöffnet wurde. Hier der Code:
EDIT: Danke an @RodFromGermany für das Feedback. Ich habs nun verbessert

VB.NET-Quellcode

Public Class Datei
Public Property Datum As Date
Public Property Anzahl As Integer
Public Property Fileinfo As String
End Class

Die zweite Klasse ist für die zuletzt geöffneten Dateien. Diese Klasse enthält eine Property, die die Liste der zuletzt geöffneten Dateien beinhaltet:

VB.NET-Quellcode

Public Class LastFiles
Public Property Files As List(Of Datei)
Public Property maxFiles As Integer = 5
End Class

Zwei Variable brauchen wir noch. Eine um den Namen der XML-File zu speichern und eine um die LastFiles zu speichern:

VB.NET-Quellcode

Private _Datafile As New FileInfo("LastFiles.xml")
Private _LastFiles As New LastFiles With {.maxFiles = 5}

Unsere Form hat wie in den vorherigen Posts wieder einen Button (Button1) und eine Listbox(Listbox1). Zusätzlich brauchen wir noch zwei Imports:

VB.NET-Quellcode

Option Strict On
Imports System.IO
Imports System.Xml.Serialization

Nun brauchen wir noch zwei Subs, um die Daten serialisieren und um die Infos wieder deserialisieren (Dieser Code kommt in die LastFiles-Class):

VB.NET-Quellcode

Private Sub SerializeToXML(ByVal LFs As LastFiles, ByVal XmlPath As String)
With New XmlSerializer(LFs.GetType)
Using writeStream As New StreamWriter(XmlPath)
.Serialize(writeStream, LFs)
End Using
End With
End Sub
Private Function DeserializeFromXML(ByVal XmlPath As String) As LastFiles
Dim LFs As New LastFiles
If File.Exists(XmlPath) Then
With New XmlSerializer(LFs.GetType)
Using readStream As New StreamReader(XmlPath)
LFs = CType(.Deserialize(readStream), LastFiles)
End Using
End With
End If
Return LFs
End Function

Nun der Code um eine neue Datei den zuletzt geöffneten Dateien hinzufügen kann und anschließend die Informationen mit dem XML-Serializer zu serialisieren (auch in der LastFiles-Klasse):

VB.NET-Quellcode

''' <summary>
''' Fügt der Zuletzt-geöffneten-Dateien-Liste eine neu Datei hinzu
''' </summary>
''' <param name="FilePath">Dateipfad der Datei, die hinzugefügt werden soll</param>
''' <param name="XmlPath">Pfad der XML-Datei, in der die Informationen gespeichert werden</param>
''' <remarks></remarks>
Public Sub AddFileToList(ByVal FilePath As String, ByVal XmlPath As String)
'Alte LastFiles-Liste aus der XML-Datei
Dim LastFiles As LastFiles = Me.DeserializeFromXML(XmlPath)
'Neue LastFiles-Liste (ist nötig, da in einer Schleife keine Items aus einer Liste gelöscht werden dürfen und damit die Datei, die hinzugefügt werden will, beim nächsten Start der erste Eintrag in der Liste ist
Dim NewLastFiles As New LastFiles
'Der neuen Liste die neue Datei als ersten Eintrag hinzufügen
NewLastFiles.Files.Add(New Datei With {.Anzahl = 1, .Datum = Now, .Fileinfo = FilePath})
'Alle Dateien in der alten Liste
For Each File As Datei In LastFiles.Files
'Wenn die Datei den selben Pfad hat, wie die neue Datei wird beim bereits vorhandenen Eintrag in der neuen Liste die Anzahl um 1 erhöht
'Dafür wird diese Datei nicht mehr hizugefügt, damit nicht zwei selbe Dateien in der Liste vorhanden sind
If File.Fileinfo = FilePath Then
NewLastFiles.Files(0).Anzahl += 1
Else
'Sonst wird der neuen Liste die Datei aus der alten Liste hinzugefügt
NewLastFiles.Files.Add(File)
End If
'Wenn die neue Liste 5 Einträge hat wird die Schleife verlassen
If NewLastFiles.Files.Count = maxFiles Then Exit For
Next
'Die neue LastFiles-Liste serialisieren
Me.SerializeToXML(NewLastFiles, XmlPath)
End Sub

Hier noch die Funktion, die die zuletzt geöffneten Dateien returnt (auch in der LastFiles-Klasse):

VB.NET-Quellcode

''' <summary>
''' Liest die Informationen aus der XML-Datei aus und schreibt sie in eine List(Of FileInfo)
''' </summary>
''' <param name="XmlPath">Pfad der XML-Datei, aus der die Informationen gelesen werden</param>
Public Function GetLastFiles(ByVal XmlPath As String) As List(Of FileInfo)
Dim LFs As New List(Of FileInfo)
'Aus der XML-Datei die Informationen holen
Dim LF As LastFiles = Me.DeserializeFromXML(XmlPath)
'Die Files in der XML durchgehen und der FileInfo List hinzufügen
For Each F As Datei In LF.Files
LFs.Add(New FileInfo(F.Fileinfo))
Next
Return LFs
End Function

Das führen wir dann im Form-Load Event aus:

VB.NET-Quellcode

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
'Die Dateien aus der XML einer FileInfo-Liste hinzufügen
Dim FileInfos As List(Of FileInfo) = _LastFiles.GetLastFiles(_Datafile.FullName)
'Die FileInfosList an die Listbox binden
ListBox1.DataSource = FileInfos
'Den Namen der Datei in der FileInfo-Liste in der Listbox anzeigen
ListBox1.DisplayMember = "Name"
End Sub

In den ButtonClick-Code muss noch folgender Code hinien, damit man der Dateiliste mit den zuletzt geöffneten Dateien neue Dateien hinzufügen kann:

VB.NET-Quellcode

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Using ofd As New OpenFileDialog
If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
AddFileToList(ofd.FileName)
Process.Start(ofd.FileName)
End If
End Using
End Sub

Und jetzt noch der Code für den Listbox-DoubleClick-Event:

VB.NET-Quellcode

Private Sub ListBox1_DoubleClick(sender As Object, e As System.EventArgs) Handles ListBox1.DoubleClick
If Not ListBox1.SelectedItems.Count = 0 Then
_LastFiles.AddFileToList(ListBox1.SelectedItem.ToString, _Datafile.FullName)
Process.Start(ListBox1.SelectedItem.ToString)
End If
End Sub

Der komplette Code

VB.NET-Quellcode

Option Strict On
Imports System.IO
Imports System.Xml.Serialization
Public Class Form1
Private _Datafile As New FileInfo("LastFiles.xml")
Private _LastFiles As New LastFiles With {.maxFiles = 5}
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Using ofd As New OpenFileDialog
If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
'Ausgewählte Datei in XML schreiben
_LastFiles.AddFileToList(ofd.FileName, _Datafile.FullName)
'Datei öffnen
Process.Start(ofd.FileName)
End If
End Using
End Sub
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
'Die Dateien aus der XML einer FileInfo-Liste hinzufügen
Dim FileInfos As List(Of FileInfo) = _LastFiles.GetLastFiles(_Datafile.FullName)
'Die FileInfosList an die Listbox binden
ListBox1.DataSource = FileInfos
'Den Namen der Datei in der FileInfo-Liste in der Listbox anzeigen
ListBox1.DisplayMember = "Name"
End Sub
Private Sub ListBox1_DoubleClick(sender As Object, e As System.EventArgs) Handles ListBox1.DoubleClick
If Not ListBox1.SelectedItems.Count = 0 Then
_LastFiles.AddFileToList(ListBox1.SelectedItem.ToString, _Datafile.FullName)
Process.Start(ListBox1.SelectedItem.ToString)
End If
End Sub
End Class
Public Class LastFiles
Public Property Files As New List(Of Datei)
Public Property maxFiles As Integer = 5
Private Sub SerializeToXML(ByVal LFs As LastFiles, ByVal XmlPath As String)
With New XmlSerializer(LFs.GetType)
Using writeStream As New StreamWriter(XmlPath)
.Serialize(writeStream, LFs)
End Using
End With
End Sub
Private Function DeserializeFromXML(ByVal XmlPath As String) As LastFiles
Dim LFs As New LastFiles
If File.Exists(XmlPath) Then
With New XmlSerializer(LFs.GetType)
Using readStream As New StreamReader(XmlPath)
LFs = CType(.Deserialize(readStream), LastFiles)
End Using
End With
End If
Return LFs
End Function
''' <summary>
''' Fügt der Zuletzt-geöffneten-Dateien-Liste eine neu Datei hinzu
''' </summary>
''' <param name="FilePath">Dateipfad der Datei, die hinzugefügt werden soll</param>
''' <param name="XmlPath">Pfad der XML-Datei, in der die Informationen gespeichert werden</param>
''' <remarks></remarks>
Public Sub AddFileToList(ByVal FilePath As String, ByVal XmlPath As String)
'Alte LastFiles-Liste aus der XML-Datei
Dim LastFiles As LastFiles = Me.DeserializeFromXML(XmlPath)
'Neue LastFiles-Liste (ist nötig, da in einer Schleife keine Items aus einer Liste gelöscht werden dürfen und damit die Datei, die hinzugefügt werden soll, beim nächsten Start der erste Eintrag in der Liste ist
Dim NewLastFiles As New LastFiles
'Der neuen Liste die neue Datei als ersten Eintrag hinzufügen
NewLastFiles.Files.Add(New Datei With {.Anzahl = 1, .Datum = Now, .Fileinfo = FilePath})
'Alle Dateien in der alten Liste
For Each File As Datei In LastFiles.Files
'Wenn die Datei den selben Pfad hat, wie die neue Datei wird beim bereits vorhandenen Eintrag in der neuen Liste die Anzahl um 1 erhöht
'Dafür wird diese Datei nicht mehr hizugefügt, damit nicht zwei selbe Dateien in der Liste vorhanden sind
If File.Fileinfo = FilePath Then
NewLastFiles.Files(0).Anzahl += 1
Else
'Sonst wird der neuen Liste die Datei aus der alten Liste hinzugefügt
NewLastFiles.Files.Add(File)
End If
'Wenn die neue Liste 5 Einträge hat wird die Schleife verlassen
If NewLastFiles.Files.Count = maxFiles Then Exit For
Next
'Die neue LastFiles-Liste serialisieren
Me.SerializeToXML(NewLastFiles, XmlPath)
End Sub
''' <summary>
''' Liest die Informationen aus der XML-Datei aus und schreibt sie in eine List(Of FileInfo)
''' </summary>
''' <param name="XmlPath">Pfad der XML-Datei, aus der die Informationen gelesen werden</param>
Public Function GetLastFiles(ByVal XmlPath As String) As List(Of FileInfo)
Dim LFs As New List(Of FileInfo)
'Aus der XML-Datei die Informationen holen
Dim LF As LastFiles = Me.DeserializeFromXML(XmlPath)
'Die Files in der XML durchgehen und der FileInfo List hinzufügen
For Each F As Datei In LF.Files
LFs.Add(New FileInfo(F.Fileinfo))
Next
Return LFs
End Function
End Class
Public Class Datei
Public Property Datum As Date
Public Property Anzahl As Integer
Public Property Fileinfo As String
End Class

Das wars dann auch schon. Falls ihr noch Ideen für weitere Varianten habt teilt mir das bitte mit. Auch Hinweise auf schlechten Code oder zu komplizierten Code wären sehr hilfreich für mich.

Gruß
Switcherlapp97

RodFromGermany · 24. August 2013, 08:09

Switcherlapp97 schrieb:

Die zweite Klasse ist für die zuletzt geöffneten Dateien. Diese Klasse enthält eine Property, die die Liste der zuletzt geöffneten Dateien beinhaltet

Was soll das?
Diese Klasse schreit doch danach, die Serialisation und die Deserialisation mit aufzunehmen. So könntest Du diese Klasse sogar in eine DLL packen und anderen Usern zur Verfügung stellen. Parameter: XmlPath As String, als Properties die FileInfo-Liste.
-----
So etwa:

VB.NET-Quellcode

Public Class LastFiles
Public Property Files As List(Of Datei)
Public Sub SerializeToXML(XmlPath As String)
' ...
End Sub
Public Sub DeserializeToXML(XmlPath As String)
' ...
End Sub
End Class

Switcherlapp97 · 25. August 2013, 11:21

Hallo,

EDIT: Ich lösche die DLL und den zugehörigen Beitrag, da eine DLL in einem Tutorial eigentlich keinen Sinn macht. Aus einer DLL kann man nix lernen. Stattdessen lade ich hier Beispielprojekte und die Sources für die einzelnen Methoden hoch. Falls jemand doch Interesse hat an der DLL (was ich nicht glaube :)) kann man mich per PN anschreiben.

@RodFromGermany
Ich habe nun den Code der XML-Serialisierung noch abgeändert. Nochmals Danke für deine Rückmeldung

@All
Ich bedanke mich für die bisherigen Rückmeldungen und Feedbacks. Ihr habt mir echt geholfen meine Programmierkünste zu verbessern

Weitere Vorschläge, für Möglichkeiten der Datenverarbeitung sind erwünscht. Genauso wie Kritik und Feedback zu meinem bisherigen Code.

Gruß
Switcherlapp97

Zuletzt geöffnete Dateien

Zuletzt geöffnete Dateien

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Switcherlapp97 schrieb:

VB.NET-Quellcode

Zuletzt geöffnete Dateien Teil 2 - Typisiertes Dataset

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Zuletzt geöffnete Dateien Teil 3 - XML Serialisierung

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Switcherlapp97 schrieb:

VB.NET-Quellcode

Zuletzt geöffnete Dateien Teil 4 - Beispielprojekt und Sources

Benutzer online 1

Ähnliche Themen

5 Benutzer haben hier geschrieben