LER ARQUIVO TXT COM DELIMITADOR
Ola caros colegas,
Estou presisando ler um arquivo txt com delimitador em piper |
no vb6 eu tenho uma rotina que funciona blz, mas no .net estou com problemas nao sei como fazer.
gostaria que alguem podesse me ajudar.
o meu codigo em vb6 é este logo abaixo, como faço pra realizar no vb.net?
Dim F As Long
Dim Linhas As Variant
Dim I As Long
Dim Tmp As String
F = FreeFile
Open [Ô]c:\epcad.txt[Ô] For Input As #F
Tmp = Input(LOF(F), F)
Close #F
Linhas = Split(Tmp, Chr(10))
For I = 0 To UBound(Linhas) - 1
var = Split(Linhas(I), [Ô]|[Ô])
text1 = var(0)
text2 = var(1)
text1 = var(3)
Next
Como eu faço isso no vb.net ?
desde já agradeço
Estou presisando ler um arquivo txt com delimitador em piper |
no vb6 eu tenho uma rotina que funciona blz, mas no .net estou com problemas nao sei como fazer.
gostaria que alguem podesse me ajudar.
o meu codigo em vb6 é este logo abaixo, como faço pra realizar no vb.net?
Dim F As Long
Dim Linhas As Variant
Dim I As Long
Dim Tmp As String
F = FreeFile
Open [Ô]c:\epcad.txt[Ô] For Input As #F
Tmp = Input(LOF(F), F)
Close #F
Linhas = Split(Tmp, Chr(10))
For I = 0 To UBound(Linhas) - 1
var = Split(Linhas(I), [Ô]|[Ô])
text1 = var(0)
text2 = var(1)
text1 = var(3)
Next
Como eu faço isso no vb.net ?
desde já agradeço
aew manolo, num esquece de postar a solução pra galera ^^
[txt-color=#0000f0]Imports[/txt-color] System.IO
_______________________________________________________
[txt-color=#0000f0]Dim[/txt-color] Arquivo [txt-color=#0000f0]As New [/txt-color]StreamReader([txt-color=#e80000][Ô]c:\epcad.txt[Ô][/txt-color])
[txt-color=#0000f0]Dim[/txt-color] Texto [txt-color=#0000f0]As String[/txt-color] = [txt-color=#e80000][Ô][Ô][/txt-color]
[txt-color=#0000f0]Dim[/txt-color] Vetor() [txt-color=#0000f0]As String[/txt-color]
[txt-color=#0000f0]While[/txt-color] [txt-color=#0000f0]Not[/txt-color] Arquivo.EndofStream
Texto = Arquivo.ReadLine()
Vetor = Split(Texto, [txt-color=#e80000][Ô]|[Ô][/txt-color])
TextBox1.Text = Vetor(0)
TextBox2.Text = Vetor(1)
TextBox3.Text = Vetor(2)
[txt-color=#0000f0]End While[/txt-color]
_______________________________________________________
[txt-color=#0000f0]Dim[/txt-color] Arquivo [txt-color=#0000f0]As New [/txt-color]StreamReader([txt-color=#e80000][Ô]c:\epcad.txt[Ô][/txt-color])
[txt-color=#0000f0]Dim[/txt-color] Texto [txt-color=#0000f0]As String[/txt-color] = [txt-color=#e80000][Ô][Ô][/txt-color]
[txt-color=#0000f0]Dim[/txt-color] Vetor() [txt-color=#0000f0]As String[/txt-color]
[txt-color=#0000f0]While[/txt-color] [txt-color=#0000f0]Not[/txt-color] Arquivo.EndofStream
Texto = Arquivo.ReadLine()
Vetor = Split(Texto, [txt-color=#e80000][Ô]|[Ô][/txt-color])
TextBox1.Text = Vetor(0)
TextBox2.Text = Vetor(1)
TextBox3.Text = Vetor(2)
[txt-color=#0000f0]End While[/txt-color]
Dê uma olhada neste exemplo:
CARREGANDO DATAGRIDVIEW COM DADOS DE ARQUIVO TXT
CARREGANDO DATAGRIDVIEW COM DADOS DE ARQUIVO TXT
Obrigado meus caros colegas,
com o help de vcs, conseguir resolver meu problema.
t.
com o help de vcs, conseguir resolver meu problema.
t.
Tópico encerrado , respostas não são mais permitidas