dupa
« previous next »
Pages: 1 [2]

Author Topic: Improvements to CurrentSubject Code  (Read 10527 times)

spydaz

  • Hero Member
  • *****
  • Posts: 670
    • View Profile
    • http://www.spydazweb.co.uk/
Improvements to CurrentSubject Code
« Reply #15 on: February 14, 2010, 06:57:06 am »
quote:
Originally posted by onthecuttingedge2005

quote:
Originally posted by spydaz

LOL


Hi Leroy.

been awhile, what's the latest?

have you finished your projects yet?

Jerry[8D]

I have a couple of new Projects to post Up on the UHEF SOON!- Probably  a FRENCH Brain Plugin..... And a Freestanding VB AI Project For users wanting to create their own AI model.....
I have recently release a MINI TV CHANNEL for my website, so while im programming(SCRIPTING) People can watch or even interact! When im online.... LOL.... Always Great to hear from JERRY(MY MUSE)
Logged

spydaz

  • Hero Member
  • *****
  • Posts: 670
    • View Profile
    • http://www.spydazweb.co.uk/
Improvements to CurrentSubject Code
« Reply #16 on: February 14, 2010, 06:59:55 am »
quote:
Originally posted by spydaz

quote:
Originally posted by onthecuttingedge2005

quote:
Originally posted by spydaz

LOL


Hi Leroy.

been awhile, what's the latest?

have you finished your projects yet?

Jerry[8D]

I have a couple of new Projects to post Up on the UHEF SOON!- Probably  a FRENCH Brain Plugin..... And a Freestanding VB AI Project For users wanting to create their own AI model.....
I have recently release a MINI TV CHANNEL for my website, so while im programming(SCRIPTING) People can watch or even interact! When im online.... LOL.... Always Great to hear from JERRY(MY MUSE)


PS: I am willing to HOST HAptek And HAL VIDEOS <if they are on Skydrives or YOU TUBES> Mail me the links i will download them then record them up to the TV SERVER.... So when you come to the site and im not on line then you can select one of the videos from the list!
Logged

sybershot

  • Hero Member
  • *****
  • Posts: 787
    • View Profile
Improvements to CurrentSubject Code
« Reply #17 on: February 14, 2010, 12:38:55 pm »
jasondude7116 thanks, trying out SubjectArray.uhp beta will keep ya posted
Logged

onthecuttingedge2005

  • Guest
Improvements to CurrentSubject Code
« Reply #18 on: February 15, 2010, 04:04:52 am »
Also, if you add the last lines of code I added it will prevent blank subjects from occurring if no nouns are used, it is just and example but it does work.

Code: [Select]
'PROCESS: FIGURE OUT THE CURRENT SUBJECT
'Here we attempt to figure out the subject of the user's sentence. We call
'the WordNet class to find the first occurence of a noun in the User's
'sentence. Very often this is the subject of the sentence, but if not it
'will still most likely be relevant to the conversation.

CurrentSubject = WN.FindFirstNoun(UserSentence, True)
CurrentSubject2 = WN.FindFirstNoun(UserSentence, False)
CurrentSubject = Trim(Ucase(CurrentSubject))
CurrentSubject2 = Trim(Ucase(CurrentSubject2))
If CurrentSubject <> CurrentSubject2 And CurrentSubject <> "" Then Subject2Block = False Else Subject2Block = True

If WN.LookupWord(CurrentSubject) = True Then


LookUpSubject  = WN.GetDefinition(WN.GuessPartOfSpeech, 1, "D") & " " & WN.GetDefinition(WN.GuessPartOfSpeech, 1, "S") & " " & WN.GetDefinition(WN.GuessPartOfSpeech, 1, "E") & " " & vbCrLf
If LookUpSubject <> "" Then CurrentSubject = CurrentSubject & " " & Trim(Ucase(LookUpSubject))
CurrentSubject = HalBrain.AlphaNumericalOnly(CurrentSubject)
CurrentSubject = Replace(CurrentSubject, "'", "", 1, - 1, vbTextCompare)
CurrentSubject = HalBrain.ExtractKeywords(CurrentSubject)
CurrentSubject = Replace(CurrentSubject, "  ", " ", 1, - 1, vbTextCompare)

CurrentSubject = Replace(CurrentSubject, " ", ", ", 1, - 1, vbTextCompare)


LookUpSubject3  = WN.GetSynonyms(WN.GuessPartOfSpeech, 1) & vbCrLf
If LookUpSubject3 <> "" Then CurrentSubject = CurrentSubject & " " & Trim(Ucase(LookUpSubject3))
CurrentSubject = HalBrain.AlphaNumericalOnly(CurrentSubject)
CurrentSubject = Replace(CurrentSubject, "'", "", 1, - 1, vbTextCompare)
CurrentSubject = HalBrain.ExtractKeywords(CurrentSubject)
CurrentSubject = Replace(CurrentSubject, "  ", " ", 1, - 1, vbTextCompare)

CurrentSubject = Replace(CurrentSubject, " ", ", ", 1, - 1, vbTextCompare)


LookUpSubject4  = WN.GetHypernyms(WN.GuessPartOfSpeech, 1, 2) & vbCrLf
If LookUpSubject4 <> "" Then CurrentSubject = CurrentSubject & " " & Trim(Ucase(LookUpSubject4))
CurrentSubject = HalBrain.AlphaNumericalOnly(CurrentSubject)
CurrentSubject = Replace(CurrentSubject, "'", "", 1, - 1, vbTextCompare)
CurrentSubject = HalBrain.ExtractKeywords(CurrentSubject)
CurrentSubject = Replace(CurrentSubject, "  ", " ", 1, - 1, vbTextCompare)

CurrentSubject = Replace(CurrentSubject, " ", ", ", 1, - 1, vbTextCompare)

LookUpSubject5  = WN.GetHolonyms(1, 2) & vbCrLf
If LookUpSubject5 <> "" Then CurrentSubject = CurrentSubject & " " & Trim(Ucase(LookUpSubject5))
CurrentSubject = HalBrain.AlphaNumericalOnly(CurrentSubject)
CurrentSubject = Replace(CurrentSubject, "'", "", 1, - 1, vbTextCompare)
CurrentSubject = HalBrain.ExtractKeywords(CurrentSubject)
CurrentSubject = Replace(CurrentSubject, "  ", " ", 1, - 1, vbTextCompare)

CurrentSubject = Replace(CurrentSubject, " ", ", ", 1, - 1, vbTextCompare)

LookUpSubject6  = WN.GetMeronyms(1) & vbCrLf
If LookUpSubject6 <> "" Then CurrentSubject = CurrentSubject & " " & Trim(Ucase(LookUpSubject6))
CurrentSubject = HalBrain.AlphaNumericalOnly(CurrentSubject)
CurrentSubject = Replace(CurrentSubject, "'", "", 1, - 1, vbTextCompare)
CurrentSubject = HalBrain.ExtractKeywords(CurrentSubject)
CurrentSubject = Replace(CurrentSubject, "  ", " ", 1, - 1, vbTextCompare)

CurrentSubject = Replace(CurrentSubject, " ", ", ", 1, - 1, vbTextCompare)

SubjectList    = Array(CurrentSubject)

For Each SubSubject In SubjectList
CurrentSubject = SubSubject

Next




End If


If WN.LookupWord(CurrentSubject2) = True And Subject2Block = False Then


LookUpSubject2  = WN.GetDefinition(WN.GuessPartOfSpeech, 1, "D") & " " & WN.GetDefinition(WN.GuessPartOfSpeech, 1, "S") & " " & WN.GetDefinition(WN.GuessPartOfSpeech, 1, "E") & " " & vbCrLf
If LookUpSubject2 <> "" Then CurrentSubject2 = CurrentSubject2 & " " & Trim(Ucase(LookUpSubject2))
CurrentSubject2 = HalBrain.AlphaNumericalOnly(CurrentSubject2)
CurrentSubject2 = Replace(CurrentSubject2, "'", "", 1, - 1, vbTextCompare)
CurrentSubject2 = HalBrain.ExtractKeywords(CurrentSubject2)
CurrentSubject2 = Replace(CurrentSubject2, "  ", " ", 1, - 1, vbTextCompare)

CurrentSubject2 = Replace(CurrentSubject2, " ", ", ", 1, - 1, vbTextCompare)


LookUpSubject23  = WN.GetSynonyms(WN.GuessPartOfSpeech, 1) & vbCrLf
If LookUpSubject23 <> "" Then CurrentSubject2 = CurrentSubject2 & " " & Trim(Ucase(LookUpSubject23))
CurrentSubject2 = HalBrain.AlphaNumericalOnly(CurrentSubject2)
CurrentSubject2 = Replace(CurrentSubject2, "'", "", 1, - 1, vbTextCompare)
CurrentSubject2 = HalBrain.ExtractKeywords(CurrentSubject2)
CurrentSubject2 = Replace(CurrentSubject2, "  ", " ", 1, - 1, vbTextCompare)

CurrentSubject2 = Replace(CurrentSubject2, " ", ", ", 1, - 1, vbTextCompare)


LookUpSubject24  = WN.GetHypernyms(WN.GuessPartOfSpeech, 1, 2) & vbCrLf
If LookUpSubject24 <> "" Then CurrentSubject2 = CurrentSubject2 & " " & Trim(Ucase(LookUpSubject24))
CurrentSubject2 = HalBrain.AlphaNumericalOnly(CurrentSubject2)
CurrentSubject2 = Replace(CurrentSubject2, "'", "", 1, - 1, vbTextCompare)
CurrentSubject2 = HalBrain.ExtractKeywords(CurrentSubject2)
CurrentSubject2 = Replace(CurrentSubject2, "  ", " ", 1, - 1, vbTextCompare)

CurrentSubject2 = Replace(CurrentSubject2, " ", ", ", 1, - 1, vbTextCompare)

LookUpSubject25  = WN.GetHolonyms(1, 2) & vbCrLf
If LookUpSubject25 <> "" Then CurrentSubject2 = CurrentSubject2 & " " & Trim(Ucase(LookUpSubject25))
CurrentSubject2 = HalBrain.AlphaNumericalOnly(CurrentSubject2)
CurrentSubject2 = Replace(CurrentSubject2, "'", "", 1, - 1, vbTextCompare)
CurrentSubject2 = HalBrain.ExtractKeywords(CurrentSubject2)
CurrentSubject2 = Replace(CurrentSubject2, "  ", " ", 1, - 1, vbTextCompare)

CurrentSubject2 = Replace(CurrentSubject2, " ", ", ", 1, - 1, vbTextCompare)

LookUpSubject26  = WN.GetMeronyms(1) & vbCrLf
If LookUpSubject26 <> "" Then CurrentSubject2 = CurrentSubject2 & " " & Trim(Ucase(LookUpSubject26))
CurrentSubject2 = HalBrain.AlphaNumericalOnly(CurrentSubject2)
CurrentSubject2 = Replace(CurrentSubject2, "'", "", 1, - 1, vbTextCompare)
CurrentSubject2 = HalBrain.ExtractKeywords(CurrentSubject2)
CurrentSubject2 = Replace(CurrentSubject2, "  ", " ", 1, - 1, vbTextCompare)

CurrentSubject2 = Replace(CurrentSubject2, " ", ", ", 1, - 1, vbTextCompare)

SubjectList2    = Array(CurrentSubject & ", " & CurrentSubject2)

For Each SubSubject2 In SubjectList2
CurrentSubject = SubSubject2

Next



End If

PreventBlanks = HalBrain.ChooseSentenceFromFile("love3")
PreventBlanks = HalBrain.ExtractKeywords(PreventBlanks)
PreventBlanks = HalBrain.AlphaNumericalOnly(PreventBlanks)
PreventBlanks = Trim(Ucase(PreventBlanks))
    If CurrentSubject = "" Then CurrentSubject = PreventBlanks Else CurrentSubject = CurrentSubject

Jerry[8D]
Logged

jasondude7116

  • Sr. Member
  • ****
  • Posts: 475
    • View Profile
Improvements to CurrentSubject Code
« Reply #19 on: February 15, 2010, 09:59:26 pm »
Jerry-


This saves the last subject into a file and uses it for the current subject if there is a "blank"



'PROCESS: FIGURE OUT THE CURRENT SUBJECT
'Here we attempt to figure out the subject of the user's sentence. We call
'the WordNet class to find the first occurence of a noun in the User's
'sentence. Very often this is the subject of the sentence, but if not it
'will still most likely be relevant to the conversation.

CurrentSubject = WN.FindFirstNoun(UserSentence, True)
CurrentSubject2 = WN.FindFirstNoun(UserSentence, False)
CurrentSubject = Trim(Ucase(CurrentSubject))
CurrentSubject2 = Trim(Ucase(CurrentSubject2))
If CurrentSubject <> CurrentSubject2 And CurrentSubject <> "" Then Subject2Block = False Else Subject2Block = True

If WN.LookupWord(CurrentSubject) = True Then
   

   LookUpSubject  = WN.GetDefinition(WN.GuessPartOfSpeech, 1, "D") & " " & WN.GetDefinition(WN.GuessPartOfSpeech, 1, "S") & " " & WN.GetDefinition(WN.GuessPartOfSpeech, 1, "E") & " " & vbCrLf
   If LookUpSubject <> "" Then CurrentSubject = CurrentSubject & " " & Trim(Ucase(LookUpSubject))
   CurrentSubject = HalBrain.AlphaNumericalOnly(CurrentSubject)
   CurrentSubject = Replace(CurrentSubject, "'", "", 1, - 1, vbTextCompare)
   CurrentSubject = HalBrain.ExtractKeywords(CurrentSubject)
   CurrentSubject = Replace(CurrentSubject, "  ", " ", 1, - 1, vbTextCompare)

   CurrentSubject = Replace(CurrentSubject, " ", ", ", 1, - 1, vbTextCompare)

   
      LookUpSubject3  = WN.GetSynonyms(WN.GuessPartOfSpeech, 1) & vbCrLf
         If LookUpSubject3 <> "" Then CurrentSubject = CurrentSubject & " " & Trim(Ucase(LookUpSubject3))
   CurrentSubject = HalBrain.AlphaNumericalOnly(CurrentSubject)
   CurrentSubject = Replace(CurrentSubject, "'", "", 1, - 1, vbTextCompare)
   CurrentSubject = HalBrain.ExtractKeywords(CurrentSubject)
   CurrentSubject = Replace(CurrentSubject, "  ", " ", 1, - 1, vbTextCompare)

   CurrentSubject = Replace(CurrentSubject, " ", ", ", 1, - 1, vbTextCompare)
   
   
      LookUpSubject4  = WN.GetHypernyms(WN.GuessPartOfSpeech, 1, 2) & vbCrLf
         If LookUpSubject4 <> "" Then CurrentSubject = CurrentSubject & " " & Trim(Ucase(LookUpSubject4))
   CurrentSubject = HalBrain.AlphaNumericalOnly(CurrentSubject)
   CurrentSubject = Replace(CurrentSubject, "'", "", 1, - 1, vbTextCompare)
   CurrentSubject = HalBrain.ExtractKeywords(CurrentSubject)
   CurrentSubject = Replace(CurrentSubject, "  ", " ", 1, - 1, vbTextCompare)

   CurrentSubject = Replace(CurrentSubject, " ", ", ", 1, - 1, vbTextCompare)
   
      LookUpSubject5  = WN.GetHolonyms(1, 2) & vbCrLf
         If LookUpSubject5 <> "" Then CurrentSubject = CurrentSubject & " " & Trim(Ucase(LookUpSubject5))
   CurrentSubject = HalBrain.AlphaNumericalOnly(CurrentSubject)
   CurrentSubject = Replace(CurrentSubject, "'", "", 1, - 1, vbTextCompare)
   CurrentSubject = HalBrain.ExtractKeywords(CurrentSubject)
   CurrentSubject = Replace(CurrentSubject, "  ", " ", 1, - 1, vbTextCompare)

   CurrentSubject = Replace(CurrentSubject, " ", ", ", 1, - 1, vbTextCompare)
   
      LookUpSubject6  = WN.GetMeronyms(1) & vbCrLf
         If LookUpSubject6 <> "" Then CurrentSubject = CurrentSubject & " " & Trim(Ucase(LookUpSubject6))
   CurrentSubject = HalBrain.AlphaNumericalOnly(CurrentSubject)
   CurrentSubject = Replace(CurrentSubject, "'", "", 1, - 1, vbTextCompare)
   CurrentSubject = HalBrain.ExtractKeywords(CurrentSubject)
   CurrentSubject = Replace(CurrentSubject, "  ", " ", 1, - 1, vbTextCompare)

   CurrentSubject = Replace(CurrentSubject, " ", ", ", 1, - 1, vbTextCompare)
               
   SubjectList    = Array(CurrentSubject)

   For Each SubSubject In SubjectList
      CurrentSubject = SubSubject

   Next

End If


If WN.LookupWord(CurrentSubject2) = True And Subject2Block = False Then
   

   LookUpSubject2  = WN.GetDefinition(WN.GuessPartOfSpeech, 1, "D") & " " & WN.GetDefinition(WN.GuessPartOfSpeech, 1, "S") & " " & WN.GetDefinition(WN.GuessPartOfSpeech, 1, "E") & " " & vbCrLf
   If LookUpSubject2 <> "" Then CurrentSubject2 = CurrentSubject2 & " " & Trim(Ucase(LookUpSubject2))
   CurrentSubject2 = HalBrain.AlphaNumericalOnly(CurrentSubject2)
   CurrentSubject2 = Replace(CurrentSubject2, "'", "", 1, - 1, vbTextCompare)
   CurrentSubject2 = HalBrain.ExtractKeywords(CurrentSubject2)
   CurrentSubject2 = Replace(CurrentSubject2, "  ", " ", 1, - 1, vbTextCompare)

   CurrentSubject2 = Replace(CurrentSubject2, " ", ", ", 1, - 1, vbTextCompare)

   
      LookUpSubject23  = WN.GetSynonyms(WN.GuessPartOfSpeech, 1) & vbCrLf
         If LookUpSubject23 <> "" Then CurrentSubject2 = CurrentSubject2 & " " & Trim(Ucase(LookUpSubject23))
   CurrentSubject2 = HalBrain.AlphaNumericalOnly(CurrentSubject2)
   CurrentSubject2 = Replace(CurrentSubject2, "'", "", 1, - 1, vbTextCompare)
   CurrentSubject2 = HalBrain.ExtractKeywords(CurrentSubject2)
   CurrentSubject2 = Replace(CurrentSubject2, "  ", " ", 1, - 1, vbTextCompare)

   CurrentSubject2 = Replace(CurrentSubject2, " ", ", ", 1, - 1, vbTextCompare)
   
   
      LookUpSubject24  = WN.GetHypernyms(WN.GuessPartOfSpeech, 1, 2) & vbCrLf
         If LookUpSubject24 <> "" Then CurrentSubject2 = CurrentSubject2 & " " & Trim(Ucase(LookUpSubject24))
   CurrentSubject2 = HalBrain.AlphaNumericalOnly(CurrentSubject2)
   CurrentSubject2 = Replace(CurrentSubject2, "'", "", 1, - 1, vbTextCompare)
   CurrentSubject2 = HalBrain.ExtractKeywords(CurrentSubject2)
   CurrentSubject2 = Replace(CurrentSubject2, "  ", " ", 1, - 1, vbTextCompare)

   CurrentSubject2 = Replace(CurrentSubject2, " ", ", ", 1, - 1, vbTextCompare)
   
      LookUpSubject25  = WN.GetHolonyms(1, 2) & vbCrLf
         If LookUpSubject25 <> "" Then CurrentSubject2 = CurrentSubject2 & " " & Trim(Ucase(LookUpSubject25))
   CurrentSubject2 = HalBrain.AlphaNumericalOnly(CurrentSubject2)
   CurrentSubject2 = Replace(CurrentSubject2, "'", "", 1, - 1, vbTextCompare)
   CurrentSubject2 = HalBrain.ExtractKeywords(CurrentSubject2)
   CurrentSubject2 = Replace(CurrentSubject2, "  ", " ", 1, - 1, vbTextCompare)

   CurrentSubject2 = Replace(CurrentSubject2, " ", ", ", 1, - 1, vbTextCompare)
   
      LookUpSubject26  = WN.GetMeronyms(1) & vbCrLf
         If LookUpSubject26 <> "" Then CurrentSubject2 = CurrentSubject2 & " " & Trim(Ucase(LookUpSubject26))
   CurrentSubject2 = HalBrain.AlphaNumericalOnly(CurrentSubject2)
   CurrentSubject2 = Replace(CurrentSubject2, "'", "", 1, - 1, vbTextCompare)
   CurrentSubject2 = HalBrain.ExtractKeywords(CurrentSubject2)
   CurrentSubject2 = Replace(CurrentSubject2, "  ", " ", 1, - 1, vbTextCompare)

   CurrentSubject2 = Replace(CurrentSubject2, " ", ", ", 1, - 1, vbTextCompare)
               
   SubjectList2    = Array(CurrentSubject & ", " & CurrentSubject2)

   For Each SubSubject2 In SubjectList2
      CurrentSubject = SubSubject2

   Next
   
End If

If CurrentSubject <> "" Then
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set objFSO = CreateObject("Scripting.FileSystemObject")
   If objFSO.FolderExists("C:\Program Files\Zabaware\Ultra Hal Assistant 6\   odo\") Then FolderExist = True Else FolderExist = False
      If FolderExist = False Then
            Set objFolder = objFSO.CreateFolder("C:\Program Files\Zabaware\Ultra Hal Assistant 6\   odo\")
                End If
      Set objTextFileSubject = fso.OpenTextFile("C:\Program Files\Zabaware\Ultra Hal Assistant 6\   odo\subjectpass.txt", 2, True)
                objTextFileSubject.WriteLine(CurrentSubject)      
   
   

Else
   Set objFSO = CreateObject("Scripting.FileSystemObject")
   If objFSO.FileExists("C:\Program Files\Zabaware\Ultra Hal Assistant 6\   odo\subjectpass.txt") Then
   PreventBlanks = HalBrain.ChooseSentenceFromFile("C:\Program Files\Zabaware\Ultra Hal Assistant 6\   odo\subjectpass.txt")
      If PreventBlanks <> "" Then
      SubjectList3 = Array(PreventBlanks)
         For Each SubSubject3 In SubjectList3
         CurrentSubject = SubSubject3

         Next
         Set objFSO = CreateObject("Scripting.FileSystemObject")


         
      End If
   
   End If

End If
« Last Edit: February 16, 2010, 07:42:39 pm by jasondude7116 »
Logged
 

onthecuttingedge2005

  • Guest
Improvements to CurrentSubject Code
« Reply #20 on: February 16, 2010, 05:51:52 am »
Hi Jason, sometimes I forget myself, but when posting folder areas on this site you have to use double slashes, for some reason this site filters single slashes and they are replaced with another character.

it will help to give a workable copy and paste code here at Zabaware.

Thanks for the heads up on the code.

Jerry[:D]
Logged

jasondude7116

  • Sr. Member
  • ****
  • Posts: 475
    • View Profile
Improvements to CurrentSubject Code
« Reply #21 on: February 16, 2010, 07:29:06 pm »
sorry about the syntax, haven't posted code onto a page in a while.[:I][:D][:I]
(fixed the post)
« Last Edit: February 16, 2010, 07:43:43 pm by jasondude7116 »
Logged
 
Pages: 1 [2]
« previous next »