LER TXT LINHA A LINHA
PESSOAL TUDO BEM ?
ESTOU A TENTAR PERCEBER O .NET 2008, COMO FAÇO PARA LER UM FICHEIRO LINHA A LINHA?
FIZ ESTE TESTE , LER DUAS LINHAS
Dim ReadFile As StreamReader = FileHolder.OpenText()
Dim InputText As String
Dim nf As Integer
nf = 1
Do
ListView1.Items.Add([Ô] [Ô] & ReadFile.Read & [Ô] [Ô])
nf = nf + 1
Loop Until nf = 3
ReadFile.Close()
ABRAÇO
MOURA
ESTOU A TENTAR PERCEBER O .NET 2008, COMO FAÇO PARA LER UM FICHEIRO LINHA A LINHA?
FIZ ESTE TESTE , LER DUAS LINHAS
Dim ReadFile As StreamReader = FileHolder.OpenText()
Dim InputText As String
Dim nf As Integer
nf = 1
Do
ListView1.Items.Add([Ô] [Ô] & ReadFile.Read & [Ô] [Ô])
nf = nf + 1
Loop Until nf = 3
ReadFile.Close()
ABRAÇO
MOURA
Se nao me falha a memoria, while arquivo.read().............end
Tente assim:
using System.IO;
namespace AbrirTXT
{
public partial class Form1 : Form
{
public Form1()
{
InitializeComponent();
}
private void button1_Click(object sender, EventArgs e)
{
FileInfo fi = new FileInfo(@[Ô]C:\Base.txt[Ô]);
StreamReader arquivo = fi.OpenText();
String s = [Ô][Ô];
while ((s = arquivo.ReadLine()) != null)
{
listBox1.Items.Add(s);
}
}
}
}
Detalhe: Postei o código em C#... (foi mal)!
Pronto!
Segue em VB.NET:
Segue em VB.NET:
Imports System.IO
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim fi As New FileInfo([Ô]C:\base.txt[Ô])
Dim arquivo As StreamReader = fi.OpenText()
Dim s As String = [Ô][Ô]
TextBox1.Text = Replace(arquivo.ReadToEnd(), Chr(10), vbNewLine)
End Sub
End Class
Tópico encerrado , respostas não são mais permitidas