[es] - Read a text file line by line

uros2002
Dejan Ranisavljevic
Dobanovci

Član broj: 133852
Poruke: 119
*.dynamic.isp.telekom.rs.

Profil

^{31.10.2010. u 17:13 - pre 163 meseci}

Kako ovo d aupotrebim

Ovo je ono sto mi treba da iz text faila procitam koji ocu red odnosno da odaberem red 2 i procita mi taj red iz nekog proba.txt ili slicno
Pokusao sam da ga koristim ali mi ne polazi za rukom moze mala pomoc oko nekih problema

Code (vbnet):

Add this code to the very top of the code page:

Imports System.IO

----------------------------------------------------------------------------------

Add the following function:

Public Function ReadALine(ByVal File_Path As String, ByVal TotalLine As Integer, ByVal Line2Read As Integer) As String

Dim Buffer As Array

Dim Line As String

If TotalLine <= Line2Read Then

Return "No Such Line"

End If

Buffer = File.ReadAllLines(File_Path)

Line = Buffer(Line2Read)

Return Line

End Function

-----------------------------------------------------------------------------------------

Public Function GetNumberOfLines(ByVal file_path As String) As Integer

Dim sr As New StreamReader(file_path)

Dim NumberOfLines As Integer

Do While sr.Peek >= 0

sr.ReadLine()

NumberOfLines += 1

Loop

Return NumberOfLines

sr.Close()

sr.Dispose()

---------------------------------------------------------------------------------------------

To read a specific line to a textbox

Dim filename As String = "C:\location\file.txt"

TextBox1.Text = (ReadALine(filename, GetNumberOfLines(filename), 1))

'/Replace 1 to line # you would like to read

preuzeto sa visual basic

Problem mi je kako i gde da stavim ovaj kod sta mi sve treba Button i textbox ili jos nesto mozda?

Sta je ovo
Public Function ReadALine(ByVal File_Path As String, ByVal TotalLine As Integer, ByVal Line2Read As Integer) As String - Button?

i ovo
Public Function GetNumberOfLines(ByVal file_path As String) As Integer - ?

gde ovo da stavim
Dim filename As String = "C:\location\file.txt"
TextBox1.Text = (ReadALine(filename, GetNumberOfLines(filename), 1))

Pozdrav i hvala unapred
Samo da napomenem da sam pocetnik u Visual Basicu 2008 ucim ga tek mesec dana.

Dejan Ranisavljevic

Odgovor na temu

wex-alpha
Sarajevo

Član broj: 7580
Poruke: 845
109.175.62.*

+13 Profil

Re: Read a text file line by line

^{26.11.2010. u 10:29 - pre 163 meseci}

Ako zelis da citas linije po brojevima, zasto ne stavis cijeli fajl u neku listu?

Nedavno sam radio parser, koji je uzimao iz fajla svaki red te ga stavljao u listu. Tako da na kraju imas listu n velicine, u kojoj se nalaze redovi iz fajla.

Evo kod koji to radi, doduse u C# je, ali mozes lagano "provaliti" kako funkcionise, te ga preraditi za basic.

string[] MyStringArray = null;
List<string> a = new List<string>();
StreamReader s = File.OpenText(@"c:\temp\RACUN.inp"); // stavi fajl u streamreader

string line;
while ((line = s.ReadLine()) != null) //ucitavaj svaku liniju iz strem readera te je onda...
{
if (line != "" && line != "\n") //Nemoj stavljati prazne redove, te ih preskoci
{
string provjera = line;
// if (provjera.ToCharArray()[0] == 'S') // Ovdje se dodatno moze stavljati delimiter na pocetak reda
a.Add(line); //Stavi u listu. Svaki item liste je jedna linija iz streamreader

}
}
s.Close(); // zatvori stream reader, da bi izbjegli File Handle problem

int brojlinijaulisti= a.Count;

U biti:

1. Ucitaj fajl u stringreader
2. Kreiraj listu
3. Dodaj svaki red iz fajla u novi element liste
4. Odredi velicinu liste
5. I sada mozes raditi sta god ti treba sa listom

[IMG]http://img233.imageshack.us/img233/5078/thumbnailte1.th.jpg[/IMG]

They say I look like daddy :D

Odgovor na temu