Random "Zufall" aber keine doppelten Dateien, sofern nicht durchgelaufen.

Otti · 25. September 2024, 16:41

Hallo Ihr Lieben.

Kurze Frage:
Ich rufe mir eine beliebige Anzahl an Dateiinhalten per Zufall auf und lasse mir diese, in Labels anzeigen.
Wie kann ich es umgehen das die Dateiinhalte doppelt angezeigt werden, bevor nicht alle einmal durchlaufen sind? (Aktuell 250 *.txt)
Aktuell mach ich es so:

VB.NET-Quellcode

Dim files() As String = Directory.GetFiles("a\")
Dim r As New Random()
Dim zufallspath As String = files(r.Next(0, files.Length - 1))
Dim lesen As String = File.ReadAllText(zufallspath)
Dim parts = lesen.Split({";"}, StringSplitOptions.None)
Try
For Each zeile In parts
Label1.Text = parts(0)
Label2.Text = parts(1)
Label3.Text = parts(2)
Label4.Text = parts(3)
Next
Catch ex As Exception
End Try

Haudruferzappeltnoch · 25. September 2024, 16:51

Mach dir zwei List(Of FileInfo). In die Erste tust erstmal alle Files hinterlegen.

Dann greifst du dir aus der ersten Liste zufällig ein File. Das File wird aus der ersten Liste entfernt und in die zweite Liste zugefügt. Dann lädst du den Inhalt des Files
Repeat, wenn die erste Liste leer ist, vertauschst du die Listen.
Repeat

Otti · 25. September 2024, 16:59

@Haudruferzappeltnoch

Meinst du so?

VB.NET-Quellcode

Sub txt_Liste1()
Const txtfiles = "a\"
Dim d As DirectoryInfo
d = New DirectoryInfo(txtfiles)
End Sub

RodFromGermany · 25. September 2024, 18:04

@Otti indem Du Dir eine Liste mit den Zufallsindizes bereitstellst und diese dann abrufst:

VB.NET-Quellcode

Dim OriginalList = {0,1,2,3,4,5,6,7,8,9}
Dim rnd = New Random()
Dim RandomizedList = OriginalList.OrderBy(Function(x) rnd.Next()).ToList

Haudruferzappeltnoch · 25. September 2024, 18:45

Otti schrieb:

Meinst du so?

Was das angeht:

Haudruferzappeltnoch schrieb:

In die Erste tust erstmal alle Files hinterlegen

ja, wobei da fehlt noch: Dim DieErsteListe = d.GetFiles().ToList

Aber RFGs Vorschlag ist kürzer. Erst zufällig sortieren, dann einmal durchlaufen, dann wiederholen.
Würds auch so machen jetzt wo ichs sehe.

Otti · 25. September 2024, 21:43

Hallo zusammen...
Danke für Eure Tipps habe es nun so gelöst.
Ich schaue mir den Inhalt des Ordners an und lasse mir eine *.txt in Labels anzeigen, danach lösche ich diese und lade den Ordnerinhalt neu.

VB.NET-Quellcode

Dim r As New Random()
Dim zufallspath As String = ListBox1.Items(r.Next(0, ListBox1.Items.Count))
Dim lesen As String = File.ReadAllText("a\" & zufallspath)
Dim parts = lesen.Split({";"}, StringSplitOptions.None)
Try
For Each zeile In parts
Label0.Text = My.Computer.FileSystem.GetName(zufallspath)
Label1.Text = parts(0)
Label2.Text = parts(1)
Label3.Text = parts(2)
Label4.Text = parts(3)
Next
ListBox1.SelectedItem = Label0.Text
ListBox1.Items.Remove(ListBox1.SelectedItem)
Label8.Text = ListBox1.Items.Count.ToString()
Catch ex As Exception
End Try

VaporiZed · 25. September 2024, 21:51

Ich hoffe echt, dass das nur Pseudocode ist. r, zufallspath, lesen, parts, For Each zeile In parts, Label0 - Label8, ListBox1. Mir läuft es eiskalt den Rücken runter.
btw: Dim r As New Random(). Wenn die Sub mehrfach aufgerufen wird, dann sollte der Zufallsgenerator einmalig außerhalb der Methode instanziiert werden, sonst kommt ggf. die gleiche Zufallszahlenfolge raus.
Catch ex As Exception: Fange nur Exceptions ab, die Du kennst und sinnvoll bearbeiten kannst.

petaod · 25. September 2024, 22:16

Otti schrieb:

For Each zeile In parts

Wo verwendest du zeile? Du arbeitest in der Schleife mit parts!

Otti · 26. September 2024, 17:44

@VaporiZed
Hey ja ist nur runtergeschrieben, da kann ich dich beruhigen

Random "Zufall" aber keine doppelten Dateien, sofern nicht durchgelaufen.

Random "Zufall" aber keine doppelten Dateien, sofern nicht durchgelaufen.

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Otti schrieb:

Haudruferzappeltnoch schrieb:

VB.NET-Quellcode

Otti schrieb:

Benutzer online 2

Tags

Ähnliche Themen

5 Benutzer haben hier geschrieben