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()

VB.NET 2015 - 将DataGridView另存为.ini文件

3 个答案: