LER ARQUIVO TXT COM DELIMITADOR

MEGADETH 08/07/2011 12:23:45
#378766
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

FROSTYNHO 08/07/2011 13:06:45
#378775
aew manolo, num esquece de postar a solução pra galera ^^
PEGUDO 08/07/2011 13:15:29
#378777
[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]
JONATHANSTECKER 08/07/2011 13:25:51
#378780
MEGADETH 08/07/2011 16:04:00
#378793
Obrigado meus caros colegas,

com o help de vcs, conseguir resolver meu problema.
t.
Tópico encerrado , respostas não são mais permitidas