VB.NET 2015-將DataGridView另存為.ini文件

Question

我有一個將Excel文件加載到DataGridView，然后將該DataGridView數據保存到“ .ini”文件的項目。 因此，由於我是VB.net的新手，所以希望得到您的幫助。

這是我的代碼。 我已經設法在DataGridView中讀取Excel文件並將其另存為文本文件。 我從教程中無法理解如何將其另存為ini文件。 我需要幫助...謝謝大家。

Imports System
Imports System.IO
Imports Microsoft.Win32

Public Class Form1

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

        If TextBox1.Text = "password" Then
            Form2.Show()
        Else
            MessageBox.Show("Please Enter The Correct Password", "Information")
        End If
        Try
                Dim MyConnection As OleDb.OleDbConnection
                Dim Ds As System.Data.DataSet
                Dim MyAdapter As System.Data.OleDb.OleDbDataAdapter
                MyConnection = New System.Data.OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='C:\Users\Pratto_lp3\Documents\Visual Studio 2015\SCHEDULE.xlsx';Extended Properties='Excel 12.0 Xml;HDR=YES;'")
                MyAdapter = New System.Data.OleDb.OleDbDataAdapter("Select * from [S-BOTTOM_(1)$]", MyConnection)
                Ds = New System.Data.DataSet
                MyAdapter.Fill(Ds)
                Me.DataGridView1.DataSource = Ds.Tables(0)
            Catch ex As Exception
                'MsgBox(ex.Message)
                MsgBox("ExcelFile File Loaded")
            End Try


    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        If (FolderBrowserDialog1.ShowDialog() = DialogResult.OK) Then
            TextBox1.Text = FolderBrowserDialog1.SelectedPath
        End If
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

        Dim writer As TextWriter = New StreamWriter("c:\users\pratto_lp3\documents\visual studio 2015\projects\DtgrdToText.ini")

        For i As Integer = 0 To DataGridView1.Rows.Count - 2 Step +1
            For j As Integer = 0 To DataGridView1.Columns.Count - 1 Step +1
                writer.Write(vbTab & DataGridView1.Rows(i).Cells(j).Value.ToString & vbTab & "|")
            Next
            writer.WriteLine("")
            writer.WriteLine("....................................")
        Next
        writer.Close()
        MessageBox.Show("Data Saved")

        'Dim result As String = ""
        ''go through all rows
        'For rownumber As Integer = 0 To DataGridView1.Rows.Count - 1
        '    'this gets just column 0 (the first column)
        '    result &= DataGridView1.Rows(rownumber).Cells("f10").Value & vbCrLf
        '    'result += datagridview1.item(0, rownumber).tostring
        'Next
        ''write out the string
        'File.WriteAllText("c:\users\pratto_lp3\documents\visual studio 2015\projects\datagrid1", result)
        'MessageBox.Show("file saved")
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

End Class

Answer 1

嘗試這個：

Dim writer As System.IO.StreamWriter
writer = My.Computer.FileSystem.OpenTextFileWriter("c:\users\pratto_lp3\documents\visual studio 2015\projects\DtgrdToText.ini", True)

For i As Integer = 0 To DataGridView1.Rows.Count - 2 Step +1
    For j As Integer = 0 To DataGridView1.Columns.Count - 1 Step +1
        writer.Write(vbTab & DataGridView1.Rows(i).Cells(j).Value.ToString & vbTab & "|")
    Next
    writer.WriteLine("")
    writer.WriteLine("....................................")
Next
writer.Close()
MessageBox.Show("Data Saved")

Answer 2

datagridview是二維的，具有行和列。 您的結果必須是：

[row1]
col1=some data
col2=soma data

[row2]
col1=some data1
col2=soma data2

這是你的目標嗎？

Answer 3

好的，試試這個：

Dim writer As System.IO.StreamWriter
    writer = My.Computer.FileSystem.OpenTextFileWriter("c:\users\pratto_lp3\documents\visual studio 2015\projects\DtgrdToText.ini", True)

    For i As Integer = 0 To DataGridView1.Rows.Count - 2 Step +1
        'write row
        writer.WriteLine(String.Format("[row{0}]", i))
        For j As Integer = 0 To DataGridView1.Columns.Count - 1 Step +1
            'write columns title and value
            writer.WriteLine(String.Format("{0}={1}", DataGridView1.Columns(j).Name, DataGridView1.Rows(i).Cells(j).Value.ToString))
        Next
        writer.WriteLine(String.Empty)
    Next
    writer.Close()