read file split and add to a dictionary

Question

0.00/5 (No votes)

See more:

hello. I was trying to read a text file which has content like this :

hello:hi,bye,cu,goodbye
later:late,very late, ver very late

etc. etc.

I want to read this document line by line, split each line on ":" char. Then store first value as a key in dictionary and second as value.

this is my code:

VB

Dim sr As StreamReader = New StreamReader(sFileName)
        sInputLine = sr.ReadLine()
        Do Until sInputLine Is Nothing
            sInputLine = sr.ReadLine()
            If (sInputLine <> "") Then
                Dim sites As String() = Nothing
                sites = sInputLine.Split(":")
                Dim a, b As New ArrayList
                a.Add(sites(0))
                b.Add(sites(1))
                If (sync.syndict.ContainsKey(a.ToString)) Then
                    sync.syndict.Item(a.ToString) = sync.syndict.Item(a.ToString) + "," + b.ToString
                Else
                    sync.syndict.Add(a.ToString, b.ToString)
                End If
            End If
        Loop
        sr.Close()

but its not working. Any suggestions?

Also when i use a tring array in place of arraylist like this

VB

Dim sites2(2) As String
sites2 = sr.ReadLine.Split(":")
            sync.syndict.Add(sites2(0), sites2(1))

it shows an error : object not initialized, on first line (split staetment)

Posted 28-Sep-10 22:16pm

amit_upadhyay

Updated 28-Sep-10 22:17pm

v2

Add a Solution

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Rahul P Nath · Accepted Answer · 2010-09-28T22:47:00

Hi,
I checked the code.
It is working fine.

Here is a sample that I have re-written.

Dim sFileName As String = "C:\test.txt"
       Dim syndict As New Dictionary(Of String, String)
       Dim sr As StreamReader = New StreamReader(sFileName)
       Dim sInputLine As String = sr.ReadLine()
       Do Until sInputLine Is Nothing
           If (sInputLine <> "") Then
               Dim sites As String() = Nothing
               sites = sInputLine.Split(":")
               If (syndict.ContainsKey(sites(0))) Then
                   syndict.Item(sites(0)) = syndict.Item(sites(0)) + "," + sites(1)
               Else
                   syndict.Add(sites(0), sites(1))
               End If
           End If
           sInputLine = sr.ReadLine()
       Loop
       sr.Close()
   End Sub

Kindly let know if this is solving your issue.
Or else specify where exactly this object not initialized exception is shown.

If necessary you can add check for the splitted string array(sites) before accessing it by index or catch exception for that.
Also make sure that each line has only one ':'.Otherwise you may get unexpected results.