Odtnhj

Here I create new search words from an existing text. The function understands camelcase.

newSearchWords := getAutoKeywords(ByRef oldKeywords, ByRef words)

There is a part i do not like:

if(Match.Value(4))
 keyTemp := Match.Value(4)
 else if(Match.Value(3))
 keyTemp := Match.Value(3)
 else if(Match.Value(2))

that depends on the regular expression I use here in this Autohotkey - Script.
The Autohotkey regEx expressions are not exactly the same as Perl or some other languages.

camelCaseOr := "(?:[^A-Z]?)([A-Z][a-z]+)"
normalOr := "()([W_-][a-z]+)"
regEx := "(?:(" camelCaseOr "|" normalOr "))"
StartingPosition := 2

I think its posible to write this regular expression shorter and so that I do not need the whole IF instructions.

it depends on the performance because he should work later with a large amount of data regularly.

getAutoKeywords(ByRef oldKeywords, ByRef words)" normalOr "))"
 StartingPosition := 2
 addedKeysCounter := 0

 Array := ; or Array := Array()
 while(foundPos := RegexMatch( " " newKeyWords, "O)" regEx, Match, StartingPosition - 1 ))" 
 newKeyWords := ""
 Loop % ArrayCount
 
 ; element := Array%A_Index%
 element := Array[A_Index]
 ; MsgBox % "Element number " . A_Index . " is " . Array%A_Index%
 newKeyWords .= element " "
 
 if(!newKeyWords := rTrim(newKeyWords))
 if(!newKeyWords := firstWord)
 newKeyWords := "without keywords"
 ; MsgBox % "Element number " . A_Index . " is " . Array%A_Index%
 if(1 && InStr(A_ComputerName,"SL5"))
 feedbackMsgBox(RegExReplace(A_LineFile,".*\") ">" . A_LineNumber, "newKeyWords=" newKeyWords )
 return newKeyWords



HasVal(haystack, needle)