当前位置：文江博客话题详情

vb.net - 从文件夹中随机选择 1000 个文件

发布于 2025-01-11 16:39:31 字数 469 浏览 0 评论 0原文

我有一个文件夹，里面有很多文件。大约在 1000 到 15000 之间。

我需要从此文件夹中随机挑选 1000 个文件并将其复制到另一个文件夹。我知道如何通过将文件列表插入到数组中然后随机选择一个来从文件夹中获取单个随机文件，但不知道如何获取多个文件，同时避免选择同一文件两次。

例如，如果我的文件夹中有 1001 个文件，那么获取前几个文件不会有任何问题，但到最后，很可能会选择一个已经复制过来的文件，并且需要多次尝试才能找到例如最后一个文件只是运气好...

我的第一个想法是将文件数除以 1000。例如 1500/1000 = 1.5。然后创建一个 0 到 1.5 之间的随机整数。这将返回 1。然后在第 n 个图像和第 n 个图像 * 1.5 之间执行下一个随机数。

如果文件夹有 15000 个文件，它会在 1 到 15 之间随机选择第一个文件，然后在 6 到 30 之间，依此类推。

但必须有一个更智能的解决方案。

感谢任何帮助

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

望她远 2025-01-18 16:39:31

您可以随机排序它们：

Dim allFiles = Directory.EnumerateFiles("path")
Dim rnd As New Random()
Dim random1000 = From f In allfiles
                 Order By rnd.Next()
                 Select f
                 Take 1000
Dim list = random1000.ToList()

这是使用 System.Linq

You can order them randomly:

Dim allFiles = Directory.EnumerateFiles("path")
Dim rnd As New Random()
Dim random1000 = From f In allfiles
                 Order By rnd.Next()
                 Select f
                 Take 1000
Dim list = random1000.ToList()

This is using System.Linq

回复收藏 0 原文

独留℉清风醉 2025-01-18 16:39:31

使用文件列表的索引

Private Shared prng As New Random

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    Dim ListOfiles() As String = IO.Directory.GetFiles(BasePath)
    Dim indices As IEnumerable(Of Integer)
    indices = Enumerable.Range(0, ListOfiles.Length).OrderBy(Function() prng.Next).Take(1000)

    For Each idx As Integer In indices
        Dim fn As String = ListOfiles(idx)
        Stop
    Next

End Sub

Using indices into the list of files

Private Shared prng As New Random

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    Dim ListOfiles() As String = IO.Directory.GetFiles(BasePath)
    Dim indices As IEnumerable(Of Integer)
    indices = Enumerable.Range(0, ListOfiles.Length).OrderBy(Function() prng.Next).Take(1000)

    For Each idx As Integer In indices
        Dim fn As String = ListOfiles(idx)
        Stop
    Next

End Sub

回复收藏 0 原文

~没有更多了~