exchanging data between sub classes on same page.

minority · #1 (**permalink**) 11-02-05, 05:50 PM

hi,

Need some advice/help....and probably some sort of tutorial.

right i am trying to do is....take a users question split it up into seperate words (DONE)
then take in a xml file and split it into seperate words and compare them.

the first part the users qquestion is done in the submit sub class which then calls a sub class knowledgebase (which splits up the xml data) and then it should compare them.

My real question is how do i take the data from the submit sub class and compare it against the knowledgebase sub class do i need to enter it into the sub class knowledgebase(here)?

here is my code for you to get an understanding it pretty simple at the moment.

Code:

<%@ Page Language="VB" ContentType="text/html" Debug="true"%>
<html>
<head>
<title>Knowledge Base Design</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<%@ Import Namespace="System.XML"%>
<%@ Import Namespace="System.IO"%>

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

Sub submit(sender As Object, e As EventArgs)
'This sub class will take the users entered question after the submit button has been pressed and split it
'into seperate words.
Dim textdelimiter as String							'Declare the variable to a string
dim aQuestion as String								'Declare the variable to a String
dim i as integer									'Declare the variable i as a integer

'Split the usersquestion into single words
aQuestion = UserQuestion.Text						'assign the question asked by the user to aquestion			
Textdelimiter = “ “									'Make the Textdelimiter look for spaces
Dim wordout = Split(aQuestion,textdelimiter)		'Split the aQuestion into seperate words and assign it to splitout

'loop through the array of splitout until it reaches the end.
for i=0 to Ubound(wordout)
lbl1.Text &= "<b>Question </b>" & i+1 & ")   " & wordout(i)& "<br>"	'print out as such split(i) splitout(i)
Next
Call KnowledgeBase()
end sub

Sub page_load(sender as object, e as EventArgs)
'Call Display_News()
End Sub

Sub KnowledgeBase()
Dim Xread as XMLTextReader = new XMLTextReader(Server.MapPath("knowledgebase.xml"))
try
While xread.Read()
Select Case xread.NodeType
Case XMLNodeType.Element

if xread.Name = "Question" then
dim questionin = xread.ReadString()
Dim textdelimiter as String							'Declare the variable to a string
dim aQuestion as String								'Declare the variable to a String
dim i as integer									'Declare the variable i as a integer

'Split the usersquestion into single words			
Textdelimiter = “ “									'Make the Textdelimiter look for spaces
Dim wordout = Split(questionin,textdelimiter)		'Split the aQuestion into seperate words and assign it to splitout

'loop through the array of splitout until it reaches the end.
for i=0 to Ubound(wordout)
lbl1.Text &= "<b>Knowledgebase </b>" & i+1 & ")   " & wordout(i)& "<br>"	'print out as such split(i) splitout(i)
next
End If 
End Select
End While
Catch ex as Exception
Response.Write("Error Happened")
Finally
xread.close()
End try
lblXML.Text = strOut
End Sub


</script>
<asp:label id="lblXML" runat="server" />

<form runat="server">
Your Question: <asp:TextBox id="UserQuestion" runat="server" />
<asp:Button OnClick="submit" Text="Submit" runat="server" />
<p><asp:Label id="lbl1" runat="server" /></p>
</form>
</body>
</html>