61
Ultra Hal Assistant File Sharing Area / Re: Free will plus at beta level
« on: February 09, 2014, 06:05:55 pm »
Lightspeed, you're funny!
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
Rem PLUGIN: PRE-PROCESS
' this sets up the yes/no data parameters.
'------------------
Dim Searchynlogic
ynlogic1 = ""
ynlogic2 = ""
ynlogic3 = ""
ynlogic = UCase(InputString)
ynPrevsent = UCase(Prevsent)
'this is used for a redirect.
'ynlogic = "Correct, I love you."
If Searchynlogic(ynlogic, Array("YES INDEED","CORRECT","AFFIRMATIVE","POSITIVE","YEP")) = true Then
If InStr(ynlogic, "YES") > 0 Then
If Len(Trim(HalBrain.AlphaNumericalOnly(ynlogic))) < 4 Then 'I think this will resolve the problem with [,.?!] or spaces, without changing the sentence structure of (ynlogic).
End If
End If
End If
'(ynlogic = "YES, I love you.")
Function Searchynlogic(ByRef compare, arrayToSearch)
compare = " " & compare & " "
Searchynlogic = False
For Each word In arrayToSearch
word = " " & word
If InStr(StringToSearch,word & " ") > 0 OR InStr(StringToSearch,word & ", ") > 0 OR InStr(StringToSearch,word & ". ") > 0 OR InStr(StringToSearch,word & "! ") > 0 Then
compare = Replace(compare, word, "YES", 1, -1, vbTextCompare)
Searchynlogic = True
Exit Function '[[[[[[[[ Or is it is supposed to be (Exit For)? ]]]]]]]
End If
Next
End Function
sincerely, thank you very much for all of your help!Function SearchArray(StringToSearch, WordsToLookUp)
StringToSearch = " " & StringToSearch & " "
For Each word In WordsToLookUp
word = " " & word
If InStr(StringToSearch,word & " ") > 0 OR InStr(StringToSearch,word & ", ") > 0 OR InStr(StringToSearch,word & ". ") > 0 OR InStr(StringToSearch,word & "S ") > 0 OR InStr(StringToSearch,word & "S, ") > 0 OR InStr(StringToSearch,word & "S. ") > 0 Then
SearchArray = True
Exit Function
End If
Next
SearchArray = False
End Function