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 Expand


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.