Problem with SortedList

[Nathan Sokalski]

I am trying to make a SortedList using the following code:

Dim Poems As New SortedList(47)

Dim poemfiles As String() =
System.IO.Direc tory.GetFiles(S erver.MapPath(" poetry/poems/"))

For Each poemfile As String In poemfiles

Poems.Add(Syste m.IO.File.OpenT ext(poemfile).R eadLine(), poemfile)

Next


My application makes it through all this code fine, and I have tested that
both parameters in the Poems.Add() method are Strings. However, when I try
to access the SortedList I recieve an error about the IComparer. I use the
following expression inside a loop to attempt to access it (j is the loop
control variable):

CStr(CType(Glob al.Poems(j), DictionaryEntry ).Key)
Because I am somewhat unfamiliar with the IComparer class and the help files
didn't seem to be of much help, could someone tell me what I am doing wrong?
Thanks.
--
Nathan Sokalski
nj********@hotm ail.com
http://www.nathansokalski.com/

[Karl Seguin]

Try looping through it with:
For Each entry As DictionaryEntry In poems
Dim key As String = CStr(entry.Key)
Dim value As String = CStr(entry.Valu e)
Next

Also note that you aren't closing your openfile handlers...

For Each file As String In
IO.Directory.Ge tFiles("C:\karl \2005\HtmlClass Generator\HtmlC lassGenerator",
"*.cs")
Dim sr As StreamReader = IO.File.OpenTex t(file)
poems.Add(sr.Re adLine(), file)
sr.Close()
Next

AND that if two files start with the same line, you'll get an exception
because you can't add entries with the same key...

Karl

--
MY ASP.Net tutorials
http://www.openmymind.net/ - New and Improved (yes, the popup is
annoying)
http://www.openmymind.net/faq.aspx - unofficial newsgroup FAQ (more to
come!)
"Nathan Sokalski" <nj********@hot mail.com> wrote in message
news:u$******** ******@tk2msftn gp13.phx.gbl...

I am trying to make a SortedList using the following code:

Dim Poems As New SortedList(47)

Dim poemfiles As String() =
System.IO.Direc tory.GetFiles(S erver.MapPath(" poetry/poems/"))

For Each poemfile As String In poemfiles

Poems.Add(Syste m.IO.File.OpenT ext(poemfile).R eadLine(), poemfile)

Next


My application makes it through all this code fine, and I have tested that
both parameters in the Poems.Add() method are Strings. However, when I try
to access the SortedList I recieve an error about the IComparer. I use the
following expression inside a loop to attempt to access it (j is the loop
control variable):

CStr(CType(Glob al.Poems(j), DictionaryEntry ).Key)
Because I am somewhat unfamiliar with the IComparer class and the help
files didn't seem to be of much help, could someone tell me what I am
doing wrong? Thanks.
--
Nathan Sokalski
nj********@hotm ail.com
http://www.nathansokalski.com/