Updated Jan 5 12:36PM 2006
Here are some of my current coding techniques, all words are
placed into variables so that extended codes will be shorter and less
programming is required when all words are set as a variable and or Universal Variables or Linked Variables(Binary Neuro Link).
'ZIGGY'S PRONOUN DETECTOR TECHNIQUE. HARD CODE VARIABLES.
'Ziggy Pro Bot, Target Pronoun Variables for coding.
'These Variables can be passed down through Code easly
'from top to bottom.
'Variable Technique written by Gerald .L Blakley a.k.a OnTheCuttingEdge2005
'Demo technique of Binary Neurological coding.
ChckSent = HalBrain.AlphaNumericalOnly(OriginalSentence)
'Change any other slang words to proper wording.
ChckSent = HalBrain.HalFormat(ChckSent)
ChckSent = Trim(Ucase(ChckSent))
MarkSent = ">" & ChckSent & "<"
'SETUP VARIABLES FOR THE WORD WHO.
If WWho = "" Then WWho = 0
If InStr(1, MarkSent, ">WHO<", 1) > 0 Then WWho = 1
If InStr(1, MarkSent, " WHO ", 1) > 0 Then WWho = 2
If InStr(1, MarkSent, " WHO<", 1) > 0 Then WWho = 3
If InStr(1, MarkSent, ">WHO'S", 1) > 0 Then WWho = 4
If InStr(1, MarkSent, " WHO'S ", 1) > 0 Then WWho = 5
If InStr(1, MarkSent, " WHO'S<", 1) > 0 Then WWho = 6
Dim WWho
'SETUP AND REPLACE SLANG FOR THE WORD WHAT.
If WWhat = "" Then WWhat = 0
MarkSent = Replace(MarkSent, ">WAT<", ">WHAT<", 1, -1, vbTextCompare)
MarkSent = Replace(MarkSent, ">WAT ", ">WHAT ", 1, -1, vbTextCompare)
MarkSent = Replace(MarkSent, ">WATS<", ">WHAT'S<", 1, -1, vbTextCompare)
MarkSent = Replace(MarkSent, ">WATS ", ">WHAT'S ", 1, -1, vbTextCompare)
MarkSent = Replace(MarkSent, ">WAT'S<", ">WHAT'S<", 1, -1, vbTextCompare)
MarkSent = Replace(MarkSent, ">WAT'S ", ">WHAT'S ", 1, -1, vbTextCompare)
MarkSent = Replace(MarkSent, ">WUT<", ">WHAT<", 1, -1, vbTextCompare)
MarkSent = Replace(MarkSent, ">WUT ", ">WHAT ", 1, -1, vbTextCompare)
MarkSent = Replace(MarkSent, ">WUTS<", ">WHAT'S<", 1, -1, vbTextCompare)
MarkSent = Replace(MarkSent, ">WUTS ", ">WHAT'S ", 1, -1, vbTextCompare)
MarkSent = Replace(MarkSent, ">WUT'S<", ">WHAT'S<", 1, -1, vbTextCompare)
MarkSent = Replace(MarkSent, ">WUT'S ", ">WHAT'S ", 1, -1, vbTextCompare)
MarkSent = Replace(MarkSent, ">WHT<", ">WHAT<", 1, -1, vbTextCompare)
MarkSent = Replace(MarkSent, ">WHT ", ">WHAT ", 1, -1, vbTextCompare)
MarkSent = Replace(MarkSent, ">WHTS<", ">WHAT'S<", 1, -1, vbTextCompare)
MarkSent = Replace(MarkSent, ">WHTS ", ">WHAT'S ", 1, -1, vbTextCompare)
MarkSent = Replace(MarkSent, ">WHT'S<", ">WHAT'S<", 1, -1, vbTextCompare)
MarkSent = Replace(MarkSent, ">WHT'S ", ">WHAT'S ", 1, -1, vbTextCompare)
MarkSent = Replace(MarkSent, " WAT ", " WHAT ", 1, -1, vbTextCompare)
MarkSent = Replace(MarkSent, " WATS ", " WHAT'S ", 1, -1, vbTextCompare)
MarkSent = Replace(MarkSent, " WAT'S ", " WHAT'S ", 1, -1, vbTextCompare)
MarkSent = Replace(MarkSent, " WUT ", " WHAT ", 1, -1, vbTextCompare)
MarkSent = Replace(MarkSent, " WUTS ", " WHAT'S ", 1, -1, vbTextCompare)
MarkSent = Replace(MarkSent, " WUT'S ", " WHAT'S ", 1, -1, vbTextCompare)
MarkSent = Replace(MarkSent, " WHT ", " WHAT ", 1, -1, vbTextCompare)
MarkSent = Replace(MarkSent, " WHTS ", " WHAT'S ", 1, -1, vbTextCompare)
MarkSent = Replace(MarkSent, " WHT'S ", " WHAT'S ", 1, -1, vbTextCompare)
MarkSent = Replace(MarkSent, " WAT<", " WHAT<", 1, -1, vbTextCompare)
MarkSent = Replace(MarkSent, " WATS<", " WHAT'S<", 1, -1, vbTextCompare)
MarkSent = Replace(MarkSent, " WAT'S<", " WHAT'S<", 1, -1, vbTextCompare)
MarkSent = Replace(MarkSent, " WUT<", " WHAT<", 1, -1, vbTextCompare)
MarkSent = Replace(MarkSent, " WUTS<", " WHAT'S<", 1, -1, vbTextCompare)
MarkSent = Replace(MarkSent, " WUT'S<", " WHAT'S<", 1, -1, vbTextCompare)
MarkSent = Replace(MarkSent, " WHT<", " WHAT<", 1, -1, vbTextCompare)
MarkSent = Replace(MarkSent, " WHTS<", " WHAT'S<", 1, -1, vbTextCompare)
MarkSent = Replace(MarkSent, " WHT'S<", " WHAT'S<", 1, -1, vbTextCompare)
'SETUP VARIABLES FOR THE WORD WHAT.
If InStr(1, MarkSent, ">WHAT<", 1) > 0 Then WWhat = 1
If InStr(1, MarkSent, " WHAT ", 1) > 0 Then WWhat = 2
If InStr(1, MarkSent, " WHAT<", 1) > 0 Then WWhat = 3
If InStr(1, MarkSent, ">WHAT'S", 1) > 0 Then WWhat = 4
If InStr(1, MarkSent, " WHAT'S ", 1) > 0 Then WWhat = 5
If InStr(1, MarkSent, " WHAT'S<", 1) > 0 Then WWhat = 6
Dim WWhat
'SETUP VARIABLES FOR THE WORD WHEN.
If WWhen = "" Then WWhen = 0
If InStr(1, MarkSent, ">WHEN<", 1) > 0 Then WWhen = 1
If InStr(1, MarkSent, " WHEN ", 1) > 0 Then WWhen = 2
If InStr(1, MarkSent, " WHEN<", 1) > 0 Then WWhen = 3
If InStr(1, MarkSent, ">WHEN'S", 1) > 0 Then WWhen = 4
If InStr(1, MarkSent, " WHEN'S ", 1) > 0 Then WWhen = 5
If InStr(1, MarkSent, " WHEN'S<", 1) > 0 Then WWhen = 6
Dim WWhen
'SETUP VARIABLES FOR THE WORD WHERE.
If WWhere = "" Then WWhere = 0
If InStr(1, MarkSent, ">WHERE<", 1) > 0 Then WWhere = 1
If InStr(1, MarkSent, " WHERE ", 1) > 0 Then WWhere = 2
If InStr(1, MarkSent, " WHERE<", 1) > 0 Then WWhere = 3
If InStr(1, MarkSent, ">WHERE'S", 1) > 0 Then WWhere = 4
If InStr(1, MarkSent, " WHERE'S ", 1) > 0 Then WWhere = 5
If InStr(1, MarkSent, " WHERE'S<", 1) > 0 Then WWhere = 6
Dim WWhere
'SETUP AND REPLACE SLANG FOR THE WORD WHY.
If WWhy = "" Then WWhy = 0
MarkSent = Replace(MarkSent, ">Y<", ">WHY<", 1, -1, vbTextCompare)
MarkSent = Replace(MarkSent, ">Y ", ">WHY ", 1, -1, vbTextCompare)
MarkSent = Replace(MarkSent, " Y ", " WHY ", 1, -1, vbTextCompare)
MarkSent = Replace(MarkSent, " Y<", " WHY<", 1, -1, vbTextCompare)
MarkSent = Replace(MarkSent, ">Y'S ", ">WHY'S ", 1, -1, vbTextCompare)
MarkSent = Replace(MarkSent, " Y'S ", " WHY'S ", 1, -1, vbTextCompare)
MarkSent = Replace(MarkSent, " Y'S<", " WHY'S<", 1, -1, vbTextCompare)
'SETUP VARIABLES FOR THE WORD WHY.
If InStr(1, MarkSent, ">WHY<", 1) > 0 Then WWhy = 1
If InStr(1, MarkSent, " WHY ", 1) > 0 Then WWhy = 2
If InStr(1, MarkSent, " WHY<", 1) > 0 Then WWhy = 3
If InStr(1, MarkSent, ">WHY'S", 1) > 0 Then WWhy = 4
If InStr(1, MarkSent, " WHY'S ", 1) > 0 Then WWhy = 5
If InStr(1, MarkSent, " WHY'S<", 1) > 0 Then WWhy = 6
Dim WWhy
'SETUP VARIABLES FOR THE WORD HOW.
If WHow = "" Then WHow = 0
If InStr(1, MarkSent, ">HOW<", 1) > 0 Then WHow = 1
If InStr(1, MarkSent, " HOW ", 1) > 0 Then WHow = 2
If InStr(1, MarkSent, " HOW<", 1) > 0 Then WHow = 3
If InStr(1, MarkSent, ">HOW'S", 1) > 0 Then WHow = 4
If InStr(1, MarkSent, " HOW'S ", 1) > 0 Then WHow = 5
If InStr(1, MarkSent, " HOW'S<", 1) > 0 Then WHow = 6
Dim WHow
'THE VARIABLES ABOVE ARE STRICT VARIABLES.
'SETUP VARIABLES BELOW TO DETECT ANY PRONOUN FASHION.
'THESE VARIABLES BELOW ARE UNIVERSAL.
If AnyStrictProNoun = "" Then AnyStrictProNoun = 0
If AnyLooseProNoun = "" Then AnyLooseProNoun = 0
'Binary Variables set to a linked variable.
'Detect any pronoun accurately.
If WWho = 1 Or WWhat = 1 Or WWhen = 1 Or WWhere = 1 Or WWhy = 1 Or WHow = 1 Then AnyStrictProNoun = 1
If WWho > 0 Or WWhat > 0 Or WWhen > 0 Or WWhere > 0 Or WWhy > 0 Or WHow > 0 Then AnyLooseProNoun = 1
Dim AnyStrictProNoun, AnyLooseProNoun
'change sentence to unmarked for response use.
Sent = Replace(MarkSent, ">", "", 1, -1, vbTextCompare)
If InStr(1, OriginalSentence, "?", 1) > 0 Then Sent = Replace(Sent, "<", "?", 1, -1, vbTextCompare)
If InStr(1, OriginalSentence, "!", 1) > 0 Then Sent = Replace(Sent, "<", "!", 1, -1, vbTextCompare)
If InStr(1, OriginalSentence, ".", 1) > 0 Then Sent = Replace(Sent, "<", ".", 1, -1, vbTextCompare)
If Not InStr(1, OriginalSentence, "?", 1) > 0 Then Sent = Replace(Sent, "<", "", 1, -1, vbTextCompare)
If Not InStr(1, OriginalSentence, "!", 1) > 0 Then Sent = Replace(Sent, "<", "", 1, -1, vbTextCompare)
If Not InStr(1, OriginalSentence, ".", 1) > 0 Then Sent = Replace(Sent, "<", "", 1, -1, vbTextCompare)
Dim Sent
HalBrain.DebugWatch Sent, "Marked Sentence"
'Sample using a strict variable: Who?
If AnyStrictProNoun = 1 Then GetResponse = "I don't Know, " & Sent
Or
'Sample using a strict variable: Who?
If AnyStrictProNoun = 1 Then
GetResponse = "I don't Know, " & Sent
End If
Or
'Sample using a strict variable: Who?
If AnyStrictProNoun = 1 Then
Select Case HalBrain.RandomNum(1)
Case 1
GetResponse = "I don't Know, " & Sent & vbCrLf
End Select
End If
'And many more.
This technique also eliminates most needs for Len() type code in alot of code structure.
Jerry[8D]
