streamreader

[ThePentiumGuy]

hey

 

i have this code to read text from a textfile with StreamReader

what i want to do is:

 

- be able to sort out each CHARACTER - not line, the

streamreader reads

 

- find out what line number i am currently reading

 

heres what i got

 

Imports System
Imports System.IO

'the code below is in form1.load

Dim srdr As StreamReader = New StreamReader("map/test/test.txt") 


       Dim ln String

       Do
           line = srdr.ReadLine()
           MessageBox.Show(ln)
       Loop Until ln Is Nothing

       srdr.Close()

 

thanks

[PlausiblyDamp]

If you are reading it a line at a time you could then keep track of the line count based on each readline and treat the string as a character array.

 

Dim srdr As StreamReader = New StreamReader("map/test/test.txt")

Dim LineCount As Integer
Dim ln As String

Do
LineCount += 1
ln = srdr.ReadLine()
MessageBox.Show(ln)
Dim ch() As Char = ln.ToCharArray

For Each c As Char In ch
	MessageBox.Show(c.ToString())
Next
Loop Until ln Is Nothing

srdr.Close()

 

or similar

[ThePentiumGuy]

thanks alot - but i am not familiar with "For Each c as char in Ch" whats the difference between c and ch?

thanks

[PlausiblyDamp]

Just my lazy naming convention;)

ch() is the string turned into an array of characters, c will contain an individual character. The for each c as char in ch just loops through them one character at a time.

The syntax is just a shorthand way of doing for each loops in VS.Net 2003

 

For Each c As Char In ch
       MessageBox.Show(c.ToString())
Next

'same as 
dim c as char
for each c in ch
       MessageBox.Show(c.ToString())
Next

Edited January 2, 2004 by PlausiblyDamp

[ThePentiumGuy]

oh vs.net 03 :-p ihave 02

 

i am experiencing 1 problem though

when it gets to the very end of the textfile,

Dim ch() As Char = ln.ToCharArray

gives an error:

An unhandled exception of type 'System.NullReferenceException' occurred in RPG.exe

 

Additional information: Object reference not set to an instance of an object.

 

im guessing that since its at the very end, nothing is there it cannot convert it("nothing") to a char array

 

any suggestions? please help - thanks

[PlausiblyDamp]

You could use a try ... catch block around the line or just check it first

 

Dim srdr As StreamReader = New StreamReader("map/test/test.txt")

Dim LineCount As Integer
Dim ln As String

Do
   LineCount += 1
   ln = srdr.ReadLine()
   MessageBox.Show(ln)
   'May be a bit of a nasty hack but should work.
   If ln.ToCharArray Is Nothing Then Exit Do
   
   Dim ch() As Char = ln.ToCharArray

   For Each c As Char In ch
       MessageBox.Show(c.ToString())
   Next
Loop Until ln Is Nothing

srdr.Close()

[ThePentiumGuy]

nice

 

i never knew you could "If ln.ToCharArray Is Nothing Then Exit Do"

 

so u can exit loops at anytime?

if u wanted to exit an If loop you would say Exit If rihgt?

- thers always something new you could learn :-d

 

thanks a lot man

[Bucky]

There's no such thing as an "If loop", but yes, you can exit any

type of loop by using Exit (name of loop).

[ThePentiumGuy]

LOL!! i cant believe i even said that! "if loop" :lol: