Como usar o Flexgrid
18/07/2007
0
Ola, pessoal, estou com uma duvida...
Estou lendo um arquivo txt, que possui umas 5 colunas, e preciso jogar essas colunas no MsFlexgrid.......como faco?
Sera q aluem pode me ajudar, por favor.....
por enquanto tentei com esta codigo, mas sei que esta errado, pois ele coloca tudo na mesma coluna...
Dim fluxoTexto As IO.StreamReader
Dim linhaTexto As String
If IO.File.Exists(Arquivo.Text) Then
fluxoTexto = New IO.StreamReader(Arquivo.Text)
linhaTexto = fluxoTexto.ReadLine
While linhaTexto <> Nothing
CaixaTexto.Text &= linhaTexto & vbCrLf
linhaTexto = fluxoTexto.ReadLine
End While
fluxoTexto.Close()
Else
MessageBox.Show(´Arquivo não existe´)
End If
Estou lendo um arquivo txt, que possui umas 5 colunas, e preciso jogar essas colunas no MsFlexgrid.......como faco?
Sera q aluem pode me ajudar, por favor.....
por enquanto tentei com esta codigo, mas sei que esta errado, pois ele coloca tudo na mesma coluna...
Dim fluxoTexto As IO.StreamReader
Dim linhaTexto As String
If IO.File.Exists(Arquivo.Text) Then
fluxoTexto = New IO.StreamReader(Arquivo.Text)
linhaTexto = fluxoTexto.ReadLine
While linhaTexto <> Nothing
CaixaTexto.Text &= linhaTexto & vbCrLf
linhaTexto = fluxoTexto.ReadLine
End While
fluxoTexto.Close()
Else
MessageBox.Show(´Arquivo não existe´)
End If
Ingrid
Curtir tópico
+ 0
Responder
Posts
05/09/2007
Mpolo
Olá, bem para começar vc precisa saber qual o caracter separador de colunas no txt...
supondo que seja ( ; ) um exemplo
Primeira linha do arquivo TXT = Carro;Vermelho;2007;unico dono
dim Valores()
If IO.File.Exists(Arquivo.Text) Then
fluxoTexto = New IO.StreamReader(Arquivo.Text)
linhaTexto = fluxoTexto.ReadLine
Valores=split(linhaTexto,´;´)
msgbox(´Tipo de veículo:´ & valores(0))
msgbox(´Cor:´ & valores(1))
msgbox(´Ano:´ & valores(2))
msgbox(´Comentario:´ & valores(3)
end if
;)
supondo que seja ( ; ) um exemplo
Primeira linha do arquivo TXT = Carro;Vermelho;2007;unico dono
dim Valores()
If IO.File.Exists(Arquivo.Text) Then
fluxoTexto = New IO.StreamReader(Arquivo.Text)
linhaTexto = fluxoTexto.ReadLine
Valores=split(linhaTexto,´;´)
msgbox(´Tipo de veículo:´ & valores(0))
msgbox(´Cor:´ & valores(1))
msgbox(´Ano:´ & valores(2))
msgbox(´Comentario:´ & valores(3)
end if
;)
Responder
Clique aqui para fazer login e interagir na Comunidade :)