Question about reading text-files

[Mika M]

Hi!

I'm trying to make something like this to work with VB.NET 2003...

Dim sr As StreamReader = New StreamReader("C :\MyFile.txt")
Dim strLine As String

While ((strLine = sr.ReadLine()) <> Nothing)
'// Doing something here
End While

....but can't get it to work. What's wrong with that?

I have studied some Java basic programming earlier, and in this case I'm
trying to make an idea from java code...

while ((strLine = br.readLine()) != null) // br = BufferedReader

....to convert to work using VB 2003.

--
Thanks in advance!

Mika

[Meelis Lilbok]

Dim sr As StreamReader = New StreamReader("C :\MyFile.txt")
Dim strLine As String

strLine=sr.Read Line()
While Not strLine Is Nothing
'//Do something here

input = sr.ReadLine()
End While
sr.Close()
Hope this helps!

Meelis

"Mika M" <ma************ ***@luukku.com> wrote in message
news:%2******** ********@TK2MSF TNGP14.phx.gbl. ..

Hi!

I'm trying to make something like this to work with VB.NET 2003...

Dim sr As StreamReader = New StreamReader("C :\MyFile.txt")
Dim strLine As String

While ((strLine = sr.ReadLine()) <> Nothing)
'// Doing something here
End While

...but can't get it to work. What's wrong with that?

I have studied some Java basic programming earlier, and in this case I'm
trying to make an idea from java code...

while ((strLine = br.readLine()) != null) // br = BufferedReader

...to convert to work using VB 2003.

--
Thanks in advance!

Mika

[Cor Ligthert [MVP]]

Mika,

The most easiest one in this case

\\\
Dim sr As StreamReader = New StreamReader("C :\MyFile.txt")
Dim strLine As String = sr.readtoend
///
However set it in a try and catch block for if the file does not exist.
\\\
dim strLine as String
Try
strLine = sr.ReadToEnd
Catch ex
messagebox.show (ex.tostring) 'in a more decent way
End Try
///

I hope this helps,

Cor

[Meelis Lilbok]

sry
input = sr.ReadLine() must be strLine=sr.Read Line()
Meelis


"Meelis Lilbok" <me***********@ deltmar.ee> wrote in message
news:%2******** ********@TK2MSF TNGP09.phx.gbl. ..

Dim sr As StreamReader = New StreamReader("C :\MyFile.txt")
Dim strLine As String

strLine=sr.Read Line()
While Not strLine Is Nothing
'//Do something here

input = sr.ReadLine()
End While
sr.Close()
Hope this helps!

Meelis

"Mika M" <ma************ ***@luukku.com> wrote in message
news:%2******** ********@TK2MSF TNGP14.phx.gbl. ..

Hi!

I'm trying to make something like this to work with VB.NET 2003...

Dim sr As StreamReader = New StreamReader("C :\MyFile.txt")
Dim strLine As String

While ((strLine = sr.ReadLine()) <> Nothing)
'// Doing something here
End While

...but can't get it to work. What's wrong with that?

I have studied some Java basic programming earlier, and in this case I'm
trying to make an idea from java code...

while ((strLine = br.readLine()) != null) // br = BufferedReader

...to convert to work using VB 2003.

--
Thanks in advance!

Mika

[Mika M]

Yes I know basic ways to read file. In fact I was just trying to join
reading line and checking if the last line was reached, to save code
lines because "simple is beautiful" in my mind :)

Obviously that's not possible when using VB.NET
--
Cor Ligthert [MVP] kirjoitti:

Mika,

The most easiest one in this case

\\\
Dim sr As StreamReader = New StreamReader("C :\MyFile.txt")
Dim strLine As String = sr.readtoend
///
However set it in a try and catch block for if the file does not exist.
\\\
dim strLine as String
Try
strLine = sr.ReadToEnd
Catch ex
messagebox.show (ex.tostring) 'in a more decent way
End Try
///

I hope this helps,

Cor

[Herfried K. Wagner [MVP]]

"Mika M" <ma************ ***@luukku.com> schrieb:

I'm trying to make something like this to work with VB.NET 2003...

Dim sr As StreamReader = New StreamReader("C :\MyFile.txt")
Dim strLine As String

While ((strLine = sr.ReadLine()) <> Nothing)
'// Doing something here
End While

The problem is that '=' is interpreted as comparison operator when being
used in the 'While' condition. Working solutions can be found here:

Reading a text file line-by-line or blockwise with a progress indicator
<URL:http://dotnet.mvps.org/dotnet/faqs/?id=readfile&la ng=en>

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://classicvb.org/petition/>

[iwdu15]

you could also try this way

Private sr as StreamReader = new StreamReader("C :\MyFile.txt")
do

me.textbox1.tex t = sr.readline()

loop while sr.peek > -1

--
-iwdu15