Cfrgtkky

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){



    newKeyWords := oldKeywords " " words



    firstWord := "" ; backup if founds nothing



    addKeysMAX := 4

    minLength := 4



    camelCaseOr := "(?:[^A-Z]?)([A-Z][a-z]+)"

    normalOr := "()([W_-][a-z]+)"

    regEx := "(?:(" camelCaseOr "|" normalOr "))"

    StartingPosition  := 2

    addedKeysCounter := 0



    Array :=  ; or Array := Array()

    while(foundPos := RegexMatch( " " newKeyWords, "O)" regEx, Match, StartingPosition - 1 )){

        StartingPosition := Match.Pos(1) + Match.Len(1)



        if(addedKeysCounter >= addKeysMAX)

            break

        preCar1 := Match.Value(2)

        preCar2 := Match.Value(3)

            ;if(preCar1=="|" || preCar2=="|")

            ;   break

        if(Match.Value(4))

            keyTemp := Match.Value(4)

        else if(Match.Value(3))

            keyTemp := Match.Value(3)

        else if(Match.Value(2))

            keyTemp := Match.Value(2)





    s:= ""

        loop,4

            s .= A_Index ":" Match.Value(A_Index) "#"

        ; MsgBox,% s "(" A_LineNumber " " RegExReplace(A_LineFile,".*\") ")"

        if(0)

            MsgBox,% keyTemp "(" A_LineNumber " " RegExReplace(A_LineFile,".*\") ")"



        trim_keyTemp := trim(keyTemp," `t`r`n")

        if(!HasVal(Array,trim_keyTemp)){

            if(!firstWord)

                firstWord := trim_keyTemp

            if(minLength <= strlen(trim_keyTemp))

                Array.Push(trim_keyTemp) ; Append this line to the array.

            ArrayCount++

        }



        ; MsgBox,% keyTemp

    }

    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) { ; return index

    if !(IsObject(haystack)) || (haystack.Length() = 0)

        return 0

    for index, value in haystack

        if (value = needle)

            return index

    return 0

}