Compare two words

[Devnaorgor]

Hello everyone,

I  have an array containing some words as follows
 

dim $ array [4] = ["bibi", "toto", "lulu", "fafa"]

I would like to create a program that evaluates whether a selected word - with the command send("^c") -  contains one of the items in the table
for instance, for "totocar" selection
if "totocar" contains "bibi" or "toto" or "lulu" or "fafa" then ACTION 1
else ACTION 2

[Jos]

Welcome

I am not sure if there is a question in your post?
Guess you like to get some hints how to accomplish the stated?

Open the helpfile and check out the _ArraySearch() type options.

Jos

[careca]

"StringInStr" will do the trick.

Edited December 9, 2017 by careca

[Jos]

29 minutes ago, careca said:

"StringInStr" will do the trick.

with an Array? ... guess I am learning something new every day

Jos

[careca]

Well, if you loop and string compare it, can you not?

[Jos]

Just now, careca said:

Well, if you loop and string compare it, can you not?

yes .....  which is what ArraySearch() does for you, but the part where you need to loop through the array entries was missing, which could imply that you meant you can search an Array with StringInstr().

Jos

[careca]

Yea i didn't explain myself very clearly. Loop, and stringinstr should work, or as you say arraysearch, but i think i never used it.

[mikell]

1 hour ago, Jos said:

yes .....  which is what ArraySearch() does for you

Hmmm... I thought that _ArraySearch searches an array for a value, not the opposite. Am I wrong ?

[Earthshine]

Script up a test to the OP

Edited December 9, 2017 by Earthshine

[careca]

#include <Array.au3>
Local $String = 'totocar'
Local $array[4] = ["bibi", "toto", "lulu", "fafa"]
;_ArrayDisplay ($array)
For $i=0 to 3
    If StringInStr($String, $array[$i]) <> 0 Then
        ConsoleWrite('ActionFunc1 - '&$array[$i]&@CRLF)
        ;ActionFunc1()
    Else
        ConsoleWrite('ActionFunc2 - '&$array[$i]&@CRLF)
        ;ActionFunc2()
    EndIf
Next

 

[jdelaney]

I don't recall who created this, but it will tell you the differences between two words:

expandcollapse popup

Func Var_Typos(Const $st1, Const $st2, $anychar = '_', $anytail = '%') ; Get amount of typos between two strings
    Local $s1, $s2, $pen, $del, $ins, $subst
    If Not IsString($st1) Then Return SetError(-1, -1, -1)
    If Not IsString($st2) Then Return SetError(-2, -2, -1)
    If $st2 = '' Then Return StringLen($st1)
    If $st2 == $anytail Then Return 0
    If $st1 = '' Then
        Return (StringInStr($st2 & $anytail, $anytail, 1) - 1)
    EndIf
;~  $s1 = StringSplit(_LowerUnaccent($st1)), "", 2)     ;; _LowerUnaccent() addon function not available here
;~  $s2 = StringSplit(_LowerUnaccent($st2)), "", 2)     ;; _LowerUnaccent() addon function not available here
    $s1 = StringSplit(StringLower($st1), "", 2)
    $s2 = StringSplit(StringLower($st2), "", 2)
    Local $l1 = UBound($s1), $l2 = UBound($s2)
    Local $r[$l1 + 1][$l2 + 1]
    For $x = 0 To $l2 - 1
        Switch $s2[$x]
            Case $anychar
                If $x < $l1 Then
                    $s2[$x] = $s1[$x]
                EndIf
            Case $anytail
                $l2 = $x
                If $l1 > $l2 Then
                    $l1 = $l2
                EndIf
                ExitLoop
        EndSwitch
        $r[0][$x] = $x
    Next
    $r[0][$l2] = $l2
    For $x = 0 To $l1
        $r[$x][0] = $x
    Next
    For $x = 1 To $l1
        For $y = 1 To $l2
            $pen = Not ($s1[$x - 1] == $s2[$y - 1])
            $del = $r[$x - 1][$y] + 1
            $ins = $r[$x][$y - 1] + 1
            $subst = $r[$x - 1][$y - 1] + $pen
            If $del > $ins Then $del = $ins
            If $del > $subst Then $del = $subst
            $r[$x][$y] = $del
            If ($pen And $x > 1 And $y > 1 And $s1[$x - 1] == $s2[$y - 2] And $s1[$x - 2] == $s2[$y - 1]) Then
                If $r[$x][$y] >= $r[$x - 2][$y - 2] Then $r[$x][$y] = $r[$x - 2][$y - 2] + 1
                $r[$x - 1][$y - 1] = $r[$x][$y]
            EndIf
        Next
    Next
    Return ($r[$l1][$l2])

;~  ; usage
;~  Local $reference = "lexicographically"
;~  Local $Words[11][2] = [ _
;~      [$reference], _
;~      ["Lexicôgraphicaly"], _
;~      ["lexkographicaly"], _
;~      ["Lexico9raphically"], _
;~      ["lexioo9asdasraphically"], _
;~      ["Lexicographical"], _
;~      ["lexicographlcally"], _
;~      ["Lex1cogr@phically"], _
;~      ["lexic0graphïca1yl"], _
;~      ["lexIcOgraphically"], _
;~      ["Lexlcographically"] _
;~  ]

;~  For $i = 0 To UBound($Words) - 1
;~      $Words[$i][1] = _Typos($Words[$i][0], $reference)
;~  Next
;~  _ArrayDisplay($Words, "Number of typos")

;~  ConsoleWrite("Usage of '_' and '%' wildcards in pattern:" & @LF & @TAB & "_Typos('lex1c0gr@fhlâofznho', 'LEx_c_gr%') = " & _Typos('lex1c0gr@fhlofznho', 'lex_c_gr%') & @LF)
;~  ConsoleWrite("Does not always return the absolute minimum edit distance:" & @LF & @TAB & "_Typos('bdac', 'abcd') = " & _Typos('bdac', 'abcd') & @LF)
;~

EndFunc   ;==>Var_Typos