DUVIDA - LISTVIEW VB - 2010

RUDSONZUCCHE 24/05/2011 09:28:47
#374824

Bom dia, estou com a seguinte duvida, se alguem puder me ajudar, agradeço muito.

Fiz um programa que pega alguns [Ô]txt[Ô] e retira seu conteudo jogando-o em um listview, porem não consigo separ por colunas, fica tudo na mesma como pode ver no anexo, quero que cada txt vá em uma coluna, porem não achei nada que inserisse os dados em looping, segue parte do codigo que eu uso para inserir os dados.

Private Sub btnPreencheListView_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPreencheListView.Click

Try

Dim contlix As Integer
Dim a As Integer = 0
Dim line As String
Dim Linecount As Integer = 0
Dim Result As String
contlix = ListBox1.Items.Count


For i = 0 To contlix
If i = contlix Then
MsgBox([Ô]Todos Arquivos foram carregados corretamente[Ô])
Else
txtArquivoOrigem.Text = ListBox1.Items(i)
If txtArquivoOrigem.Text = String.Empty Or Not txtArquivoOrigem.Text.Contains([Ô].TRM[Ô]) Then
MsgBox([Ô]Arquivo [Ô] & i & [Ô] está vazio ou no formato errado(TRM).[Ô])
Else
Linecount = 0
Dim SR As New StreamReader(ListBox1.Items(i).ToString)
Do While SR.Peek <> -1 [ô] Utilize Peek para ler o arquivo até que não haja mais linhas
Dim WaveLength As New ListViewItem
line = SR.ReadLine
Linecount += 1
If Linecount > 2 Then
WaveLength.Text = Trim(Mid(line.ToString, 1, 7))
Result = Trim(Mid(line, 8, line.Length))
lvDados.Items.Add(WaveLength)
WaveLength.SubItems.Add(Result.ToString)
End If
Loop
SR.Close()
End If
End If
Next
Catch ex As Exception
MsgBox([Ô]Erro ao ler o arquivo texto.[Ô] & ex.Message)
End Try
End Sub