vb.net - 将多个名为 XX 的文件插入字符串中

Question

使用以下代码创建文件夹中所有图像的表格。

VB：

Sub Page_Load(sender as Object, e as EventArgs)
    If Not Page.IsPostBack then
      Dim dirInfo as New DirectoryInfo(Server.MapPath("/images"))
      articleList.DataSource = dirInfo.GetFiles("*.jpg")
      articleList.DataBind()
    End If
  End Sub

正文：

<asp:DataGrid runat="server" id="articleList" AutoGenerateColumns="False" ShowHeader="false">
    <Columns>
      <asp:BoundColumn DataField="Name" />
    </Columns>
  </asp:DataGrid>

结果如下所示：

aa_01.jpg
aa_02.jpg
aa_03.jpg
bb_01.jpg
bb_02.jpg
cc_01.jpg
cc_02.jpg
cc_03.jpg
cc_04.jpg
...

我现在想做的是将所有这些按前两个字符分组，并获取每个字符的总数并将它们插入到单独的字符串中。因此，对于上面的示例，它会类似于：

Dim aa As String = 3
暗淡 bb 作为字符串 = 2
Dim cc As String = 4

有什么想法吗？

Answer 1

您可以使用 Linq 来完成此操作。试试这个。

dim q = From p in articles _
        Group By Name = p.Name.SubString(0,2) into g = group _
        Select GroupName = Name, _
               Count = g.Count()

更新（根据评论提供一些背景信息）

Sub Page_Load(sender as Object, e as EventArgs)

    If Not Page.IsPostBack then
      Dim dirInfo as New DirectoryInfo(Server.MapPath("/images"))
      Dim articles = dirInfo.GetFiles("*.jpg")

      articleList.DataSource = articles
      articleList.DataBind()

      Dim groupings = From p in articles _
                      Group By Name = p.Name.SubString(0,2) into g = group _
                      Select GroupName = Name, _
                             Count = g.Count()

      ' do whatever you like with the groupings '
    End If

End Sub

Answer 2

在 C# 中，使用 LINQ：

groupedArticleList = (from a in articleList
                      group a by a.Name.Substring(0, 2) into g
                      select new
                      {
                          GroupName = g.Key,
                          ArticleCount = g.Count()
                      });

您无法真正将它们提取到单独的变量中，但您可以按原样使用 groupedArticleList 并循环遍历它或将其转换为 Dictionary< /代码>。

抱歉，我不知道 VB 语法，但希望这会有所帮助。