0

我在对列表框中的项目进行数字排序时遇到问题。我所有带有“1”的文件名都组合在一起。示例 =（文件 1、文件 10、文件 11、文件 2、文件 3、文件 4 等​​）

我将列表框上的 Sorted 选项设置为 True，但似乎无法正常工作。

这是我目前添加我的项目的方式。

    Dim directoryInfo As New System.IO.DirectoryInfo(TextBox1_Path.Text)
    Dim fileInfos() As System.IO.FileInfo            
    fileInfos = directoryInfo.GetFiles()
    For Each fileInfo As System.IO.FileInfo In fileInfos
        ListBoxUPSFiles.Items.Add(fileInfo.Name)
    Next

我想将它们排序为 file1、file2、file3、file4 等。

对文件名进行排序的建议？

4

1 回答 1

2

删除列表框排序并执行以下操作：

For Each fileInfo As System.IO.FileInfo In fileInfos.OrderBy( _
    Function(fi) Integer.Parse(Regex.Match(fi.Name, "\d+").Value))
    ListBoxUPSFiles.Items.Add(fileInfo.Name)
Next
于 2013-12-09T19:36:39.530 回答