[VBNET] [Control] Listview - 조회 데이터 CSV 파일로 저장

* VBNET Listview 조회 데이터 CSV 파일로 저장 하기 예제...

 

Main

 

 

-사용한 컨트롤: Button 1개, Listview 1개

 

전체 소스 코드

Form1.vb

 

Public Class Form1

    Protected Overrides Sub OnLoad(ByVal e As System.EventArgs)
        MyBase.OnLoad(e)

        Dim iCount As Integer
        For iCount = 0 To 10 - 1 Step iCount + 1
            Dim lvi As ListViewItem = New ListViewItem()
            lvi.Text = (iCount + 1).ToString()
            lvi.SubItems.Add("Col1")
            lvi.SubItems.Add("Col2")
            lvi.SubItems.Add("Col3")
            lvi.SubItems.Add("Col4")

            listView1.Items.Add(lvi)

        Next

    End Sub

    Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click
        'CSV File Save

        Dim sfd As SaveFileDialog = New SaveFileDialog()

        sfd.Filter = "CSV File(*.csv) | *.csv"

        If sfd.ShowDialog() = DialogResult.OK Then
            Dim sw As System.IO.StreamWriter = New System.IO.StreamWriter(sfd.FileName, False, System.Text.Encoding.GetEncoding(949))

            '데이터    
            Dim i As Integer
            For i = 0 To listView1.Items.Count - 1 Step i + 1
                Dim strTmp As String = ""
                strTmp += listView1.Items(i).SubItems(0).Text + "," + _
                          listView1.Items(i).SubItems(1).Text + "," + _
                          listView1.Items(i).SubItems(2).Text + "," + _
                          listView1.Items(i).SubItems(3).Text + "," + _
                          listView1.Items(i).SubItems(4).Text

                sw.Write(strTmp + "\r\n")

            Next

            sw.Flush()
            sw.Close()

            MessageBox.Show("CSV 파일로 저장이 완료 되었습니다.")

        End If


    End Sub
End Class

 

*예제 결과