multi value hashtable

minority · #1 (**permalink**) 02-14-06, 07:02 PM

hey guys I have gotten myself confused..

I have got it to feed in the xml to the hash table and I have 2 keys which is correct...however is there away to count the number of values to each key? as when i do a search I am always recieving nothing...I have even tried search to see if it even contains the word in the value but it returns false any help would be great.

CODE

Code:

<%@ Page Language="VB" ContentType="text/html" Debug="true" Explicit="True"%>

<%@ Import Namespace="System.XML"%>

<%@ Import Namespace="System.IO"%>

<%@ Import Namespace="System.Data" %>

<html>

<head>

<title>Untitled Document</title>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

</head>

<body>



<script language="VB" Runat="server">

dim Xread = new XMLTextReader(Server.MapPath("App_Data/XML/CommonWord.xml"))

dim CommonWord = New Hashtable

Dim arrName as new arraylist

Dim saying as String = "Tech"


Sub Page_Load()

dim y

For Each C As Char In saying.ToCharArray

If Char.IsLetterOrDigit(C) Then

y &= C

Else

If y <> "" Then

arrName.Add(y)

y = ""

End If

End If

Next

If y <> "" Then arrName.Add(y)

dim j

try

While xread.Read() ' Start of the xml reading

Select Case xread.NodeType

Case XMLNodeType.Element

if Xread.Name = "KeyWord" then

Word = Xread.ReadString()

response.write("KeyWord: " & Word & "<BR>")

CommonWord.Item(Word)

elseif Xread.Name = "Word"

response.write("Common Word: " & Xread.ReadString() & " of " & Word & "<BR>") 

CommonWord.Item(Word) = Xread.ReadString()

end if

End Select 

End While

Finally

xread.close()

End try

response.write("<br>-----------------------------<br><u><b>Total Size of Hashtable</b></u><br> <b>Number of Keys =</b>" & CommonWord.Count & "<br>-----------------------------<br>")

CommonWordRemoval()

end sub 

sub CommonWordRemoval()

dim CommonTerm as string

dim i, k as integer

dim j as integer = 0

i = arrName.count

Do Until j = i 

response.write("<br> Users Word: " & arrName(j) & "<br>")

CommonTerm = CommonWord.Item(arrName(j))

response.write("Has Common Word: " & CommonTerm & "<BR>")

j = j + 1 

Loop

end sub

</script>

</body>

</html>

HTML Code:

A visual picture of the out put for above code at the moment

Quote:

KeyWord: Technology
Common Word: Technological of Technology
Common Word: Tech of Technology
Common Word: Technology of Technology
KeyWord: Get
Common Word: Gets of Get
Common Word: Got of Get
Common Word: Gotten of Get

-----------------------------
Total Size of Hashtable
Number of Keys =2
-----------------------------

Users Word: Tech
Has Common Word:

Can you explain why this is happening as I am at a complete loss....I have checked there are keys in the hashtable but not sure about values as I am not sure how to output a hashtable so its viewable.

Thanks again for any help

digioz · #2 (**permalink**) 03-01-06, 08:37 AM

Please provide a sample XML file and a sample table in order for your code to make sense. Without that information it is hard to guess the ins and outs of your system.