Detecting Hard Words

[onthecuttingedge2005]

Here is a technique I found that works rather well for detecting words that seems to have some difficulty in being detected.

Sometimes some specific words are hard to detect in debugging.

Code: [Select]

If DetWord = "" Then DetWord = 0
ChckSent = HalBrain.AlphaNumericalOnly(OriginalSentence)
ChckSent = Replace(ChckSent, "'RE", "", 1, -1, vbTextCompare)
ChckSent = Replace(ChckSent, "'S", "", 1, -1, vbTextCompare)
ChckSent = Replace(ChckSent, "'LL", "", 1, -1, vbTextCompare)
ChckSent = Replace(ChckSent, "'D", "", 1, -1, vbTextCompare)
ChckSent = Replace(ChckSent, "'T", "", 1, -1, vbTextCompare)
ChckSent = Replace(ChckSent, "'R ", " ", 1, -1, vbTextCompare)
ChckSent = Replace(ChckSent, "'M", "", 1, -1, vbTextCompare)
MarkSent = ">" & ChckSent & "<"
If InStr(1, MarkSent, ">I ", 1) > 0 Then DetWord = 1
If InStr(1, MarkSent, " I<", 1) > 0 Then DetWord = 1
If InStr(1, MarkSent, " I ", 1) > 0 Then DetWord = 1
HalBrain.DebugWatch DetWord, "Detect A Word"

The variable can be passed down into code easly.

Jerry[8D]

[moreis62]

KEEP UP THE GOOD WORK.