リストビュー項目と.CSV

Question

として保存

Imports System.IO 

Public Class cv7import 

Private Sub cv7import_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
    Dim caminho As String 
    caminho = "C:\Documents and Settings\Software\Ambiente de trabalho\cv7import" 

    Dim returnValue As String() 
    returnValue = Environment.GetCommandLineArgs() 
    If returnValue.Length > 1 Then 
     MessageBox.Show(returnValue(1).ToString()) 
    Else 
     MessageBox.Show("Nothing") 
    End If 

    ' Set ListView Properties 
    lstvicon.View = View.Details 
    lstvicon.GridLines = False 
    lstvicon.FullRowSelect = True 
    lstvicon.HideSelection = False 
    lstvicon.MultiSelect = True 

    ' Create Columns Headers 
    lstvicon.Columns.Add("Nome") 
    lstvicon.Columns.Add("Extensão") 
    lstvicon.Columns.Add("Tamanho") 
    lstvicon.Columns.Add("Data Modificação") 

    Dim DI As System.IO.DirectoryInfo = New System.IO.DirectoryInfo(caminho) 

    Dim files() As System.IO.FileInfo = DI.GetFiles 

    Dim file As System.IO.FileInfo 

    Dim li As ListViewItem 
    For Each file In files 
     li = lstvicon.Items.Add(file.Name) 
     li.SubItems.Add(file.Extension) 
     li.SubItems.Add(file.Length) 
     li.SubItems.Add(file.LastWriteTimeUtc) 
     'li.SubItems.Add(FileDialog) 
    Next 



End Sub 

Private Sub btnimp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnimp.Click 

    ' Creates a csv File 
    Dim csv As New System.IO.StreamWriter("C:\Documents and Settings\Software\Ambiente de trabalho\cv7import\teste.csv", True) 

    lstvicon.SelectedItems.CopyTo(csv) 

    csv.Close() 


End Sub 
End Class 

.txtに書き込むように見えます。

私はここから行くには見当がつかないと私は時間のために、この周回してきたので、任意のヘルプはapreciatedされるだろう。

Answer 1

私はあなたがこのような何かをしたいと思います：

' Creates a csv File 
    Using csv As New System.IO.StreamWriter("C:\Documents and Settings\Software\Ambiente de trabalho\cv7import\teste.csv", True) 
     For Each oItem As ListViewItem In ListView1.Items 
      csv.WriteLine(String.Format("""{0}"",""{1}"",{2},{3}", oItem.Text, oItem.SubItems(0).Text, oItem.SubItems(1).Text, oItem.SubItems(2).Text) 
     Next 
    End Using 

おそらく、書式設定CSVをクリーンアップする必要がありますが、これはあなたのアイデアを与える必要があります。