none
Carregar dados em ListView? RRS feed

  • Pergunta

  • Olá Pessoal! Tudo bem? É o seguinte: preciso abrir um arquivo de texto em um ListView, porém ele tem duas colunas, e teria que ser no mesmo arquivo de texto as duas. Tenho este código para carregar em uma coluna, como faço para duas?

    Private Sub ButAbrir_Click(sender As Object, e As EventArgs) Handles ButAbrir.Click If (DialogResult.OK = OpenFileDialog1.ShowDialog() _ And Not String.IsNullOrEmpty(OpenFileDialog1.FileName) _ And File.Exists(OpenFileDialog1.FileName)) Then ListViewEmails.Items.Clear() ListViewEmails.MultiSelect = False ListViewEmails.FullRowSelect = True '// Dim str As New StreamReader(OpenFileDialog1.FileName) If (Not IsNothing(str)) Then Dim LinhaTxt As String = "" While (str.Peek() > -1) LinhaTxt = str.ReadLine() Dim Item = ListViewEmails.Items.Add(LinhaTxt) 'Item.SubItems(LinhaTxt) End While If (ListViewEmails.Items.Count > 0) Then ListViewEmails.Items(0).Selected = True End If End If MessageBox.Show("Itens carregado com sucesso", "Lendo de Texto", MessageBoxButtons.OK, MessageBoxIcon.Information) Else MessageBox.Show("Cancelado ...", "Lendo de Texto", MessageBoxButtons.OK, MessageBoxIcon.Stop) End If End Sub

    Exemplo do arquivo de texto: 

    meuemail@mail.com - senha1

    email@meuemail.com - senha2

    mymail@email.com - senha3

    • Editado Free4k domingo, 10 de novembro de 2013 19:33 Falta de dados
    domingo, 10 de novembro de 2013 15:19

Respostas

  • Private Sub ButAbrir_Click(sender As Object, e As EventArgs) Handles ButAbrir.Click
    	If (DialogResult.OK = OpenFileDialog1.ShowDialog() _
    		And Not String.IsNullOrEmpty(OpenFileDialog1.FileName) _
    		And File.Exists(OpenFileDialog1.FileName)) Then
    		ListViewEmails.Items.Clear()
    		ListViewEmails.MultiSelect = False
    		ListViewEmails.FullRowSelect = True
    		'//
    		Dim str As New StreamReader(OpenFileDialog1.FileName)
    		If (Not IsNothing(str)) Then
    			Dim LinhaTxt As String = ""
    			While (str.Peek() > -1)
    				LinhaTxt = str.ReadLine()
    				Dim Campos() As String = LinhaTxt.Split("-")
                    Dim Item = ListViewEmails.Items.Add(Campos(0).Trim)
                    Item.SubItems.Add(Campos(1).Trim)
    			End While
    			If (ListViewEmails.Items.Count > 0) Then
    				ListViewEmails.Items(0).Selected = True
    			End If
    		End If
    		MessageBox.Show("Itens carregado com sucesso", "Lendo de Texto", MessageBoxButtons.OK, MessageBoxIcon.Information)
    	Else
    		MessageBox.Show("Cancelado ...", "Lendo de Texto", MessageBoxButtons.OK, MessageBoxIcon.Stop)
    	End If
    End Sub

    • Marcado como Resposta Free4k segunda-feira, 11 de novembro de 2013 01:15
    domingo, 10 de novembro de 2013 23:17

Todas as Respostas

  • Cade seu Arquivo de Texto coloque o exemplo!???

    Outra coisa no Código que eu te passei tem comentado Item.SubItems("") ai você coloca o outro valor!

    domingo, 10 de novembro de 2013 18:14
  • Coloquei o exemplo :)
    • Editado Free4k domingo, 10 de novembro de 2013 19:34
    domingo, 10 de novembro de 2013 19:34
  • Private Sub ButAbrir_Click(sender As Object, e As EventArgs) Handles ButAbrir.Click
    	If (DialogResult.OK = OpenFileDialog1.ShowDialog() _
    		And Not String.IsNullOrEmpty(OpenFileDialog1.FileName) _
    		And File.Exists(OpenFileDialog1.FileName)) Then
    		ListViewEmails.Items.Clear()
    		ListViewEmails.MultiSelect = False
    		ListViewEmails.FullRowSelect = True
    		'//
    		Dim str As New StreamReader(OpenFileDialog1.FileName)
    		If (Not IsNothing(str)) Then
    			Dim LinhaTxt As String = ""
    			While (str.Peek() > -1)
    				LinhaTxt = str.ReadLine()
    				Dim Campos() As String = LinhaTxt.Split("-")
                    Dim Item = ListViewEmails.Items.Add(Campos(0).Trim)
                    Item.SubItems.Add(Campos(1).Trim)
    			End While
    			If (ListViewEmails.Items.Count > 0) Then
    				ListViewEmails.Items(0).Selected = True
    			End If
    		End If
    		MessageBox.Show("Itens carregado com sucesso", "Lendo de Texto", MessageBoxButtons.OK, MessageBoxIcon.Information)
    	Else
    		MessageBox.Show("Cancelado ...", "Lendo de Texto", MessageBoxButtons.OK, MessageBoxIcon.Stop)
    	End If
    End Sub

    • Marcado como Resposta Free4k segunda-feira, 11 de novembro de 2013 01:15
    domingo, 10 de novembro de 2013 23:17