将每个Datagrid单元格写入唯一文本文件

Question

我的VB.NET应用程序有一个datagridview（Named =“DGV”），它有4列。 我想用数据网格行写多个文本文件。 文本文件的名称应该是第1列单元格的值，文本文件的文本应该是第3列单元格的值。 附图将清除每件事。 请帮忙。

Answer 1

这是一种方式。首先，我从DataGridView创建DataTable以简化任务。然后我使用Linq-To-DataTable来获取我需要的内容（dir是您目录的路径。）

Dim table = New DataTable()
For i As Int32 = 0 To dgv.Columns.Count - 1
    table.Columns.Add(dgv.Columns(i).Name)
Next

For Each gvRow As DataGridViewRow In dgv.Rows
    Dim row = table.Rows.Add()
    For col As Int32 = 0 To dgv.Columns.Count - 1
        row(col) = gvRow.Cells(col).Value
    Next
Next

Dim fileInfos = From r In table
                Select New With {
                   .File = New FileInfo(Path.Combine(dir, r.Field(Of String)(0))),
                   .Content = r.Field(Of String)(2)
                }

现在创建文本文件并编写文本：

For Each fileInfo In fileInfos
    Try
        fileInfo.File.Create()
        Using writer = fileInfo.File.CreateText()
            writer.Write(fileInfo.Content)
        End Using
    Catch ex As Exception
        ' log etc.
    End Try
Next

---

  

我正在使用.NET 2.0版，我无法改变它

这是.NET 2版本：

For Each row As DataRow In table.Rows
    If Not row.IsNull(0) AndAlso row(0).ToString().Length <> 0 Then
        Dim path = IO.Path.Combine(dir, row(0).ToString())
        Dim file = New IO.FileInfo(path)
        Try
            file.Create()
            Using writer = file.CreateText()
                Dim content = ""
                If Not row.IsNull(2) Then content = row(2).ToString()
                writer.Write(content)
            End Using
        Catch ex As Exception
            ' log etc.
        End Try
    End If
Next

Answer 2

我设计了这个代码，我想知道它的工作正常。 首先，在“公共类Form1”

之后，在代码顶部创建一个布尔属性

Public Property SelectedIdexLock As Boolean = False

现在Datagride1选择已更改：

If SelectedIdexLock = True Then
            My.Computer.FileSystem.WriteAllText("C:\Users\YOUR USER NAME HERE\Desktop\" & Datagride1.SelectedCells(0).Value.ToString & ".txt", Datagride1.SelectedCells(2).Value.ToString, False)
        End If

确定这是最后一步，在测试按钮（Button1）中单击：

        Dim RowsCount As Integer = Datagride1.Rows.Count.ToString
        Datagride1.Rows(0).Selected = True
        Datagride1.Rows(0).Selected = False

        For Each row In Datagride1DataSet.Table1.Rows

            Dim i As Integer
            For i = 0 To RowsCount
                If i = RowsCount Then
                    SelectedIdexLock = False
                    Exit Sub
                Else
                    SelectedIdexLock = True
                    Datagride1.Rows(i).Selected = True
                End If

            Next

        Next

你做完了！