EXPORTAR CONTEUDO DA LIST-VIEW PARA TXT

USUARIO.EXCLUIDOS 05/06/2007 08:40:58
#219771
Como faço para exportar o conteúdo de uma list-view para um arquivo TXT, respeitando a formatação das colunas ?
STRANDOW 05/06/2007 09:25:17
#219776
ola....PATRICIA....
o certo seria vc pegar o meio onde se cria um arquivo txt...

e numa query sua, de consulta da list, vc vai dando um insert neste arquivo txt...
Dai vc ordena conforme vc necessita....vou ver aqui um exemplo e depois te mando ok...

mas veja o conceito da parte de se criar....
CLEVERTON 05/06/2007 10:23:30
#219789 Resposta escolhida
dim i as long

Kill "C:\SeuArquivo.txt"

Open "C:\SeuArquivo.txt" For Append As #1
For i = 1 to listview1.listitems.count
Print #1, listview1.listitems(i).text & "; " & listview1.listitems(i).subitems(1) & "; " & listview1.listitems(i).subitems(2)
next i
Close #1
USUARIO.EXCLUIDOS 08/06/2007 16:10:43
#220409
OK, meus amigos.. obrigado..


Beleza ja sei como exportar para TXT o conteudo de uma List-View, mas como faco para formatar com o espaco da coluna, para uma melhor visualizacao dos dados e nao ficar tudo junto.


Por exemplo, queria que o arquivo TXT ficasse assim:

-----------------------------------------------
NOME IDADE PROFISSAO
-----------------------------------------------
Patricia Linda 23 anos Analista de Sistemas
Joao 34 anos Analista de Sistemas
Cleverton 20 anos Analista de Sistemas
STRANDOW 25 anos Analista de Sistemas
-----------------------------------------------
USUARIO.EXCLUIDOS 08/06/2007 16:14:10
#220410
Nossa na visualizacao aqui ficou torto mas queria que ficasse certinho, um embaixo do outro e as colunas certinhas.




Ha e tambem como remover dados duplicados de uma ListView....
GUTO 08/06/2007 16:28:40
#220413
veja se aki tem , nao testei porque to sem vb
HUGOSSOUZA 08/06/2007 16:28:51
#220414
pegando o exemplo do cleverton.. vc pode definir um tamanho de campo para cada

ex:

dim i as long

Kill "C:\SeuArquivo.txt"

Open "C:\SeuArquivo.txt" For Append As #1
    For i = 1 to listview1.listitems.count  
        Print #1, left(listview1.listitems(i).text & space(30), 30) & "; " & left(listview1.listitems(i).subitems(1) & space(10), 10 ) & "; " & left(listview1.listitems(i).subitems(2) & space(20), 20)
    next i
Close #1
Tópico encerrado , respostas não são mais permitidas
Voltar