Dictionary Words Look Up Table

[zeenmakr]

Hi, I have a list of couple hundred of words that needed to be convert into something else. This is a working example I came up with below. Is there anyway to improve this or  a better way of create the $FruitList that could result in slick lookup table. Also I really don't feel like the For loop is efficient either.  Any Alternatives like StringRexExp that could do the trick? Thanks

$rtn = WalkBackward('Banana')
MsgBox(0,'Found', $rtn) ;return Ananab

Func WalkBackward($fruit)
    Local $FruitList[7] = [''& _
                    'Berry|Yrreb', ''& _
                    'Apple|Elppa', ''& _
                    'Orange|Egnaro', ''& _
                    'Banana|Ananab', ''& _
                    'Grape|Eparg', ''& _
                    'Carrot|Torrac']
                    
    For $i=0 To UBound($FruitList)
        $iGroup = StringSplit($FruitList[$i], '|', 2)
        If $fruit = $iGroup[0] then
            ConsoleWrite('At index:'&$i&' Found: '&$iGroup[0]&'='&$iGroup[1]&@LF)
            ExitLoop
      EndIf
    Next
    
    Return $iGroup[1]
EndFunc

 

Edited February 5, 2020 by zeenmakr

[Danp2]

I would suggest storing your word list outside of your script (INI file, Excel spreadsheet, etc). Then you can just perform a lookup to find the desired entry and it's associated translation.

If you insist on doing it as described above, you could do something like this --

Local $FruitList[7] = [''& _
                    '|Berry|Yrreb|', ''& _
                    '|Apple|Elppa|', ''& _
                    '|Orange|Egnaro|', ''& _
                    '|Banana|Ananab|', ''& _
                    '|Grape|Eparg|', ''& _
                    '|Carrot|Torrac|']

and then use _ArraySearch to perform a partial search like this --

_ArraySearch($FruitList, "|" & $fruit & "|", 0, 0, 0, 1)

All of this is untested, so YMMV. 😄

[zeenmakr]

19 minutes ago, Danp2 said:

_ArraySearch($FruitList, "|" & $fruit & "|", 0, 0, 0, 1)

All of this is untested, so YMMV. 😄

Well that doesn't do it. what are the modified Pipes suppose to do?

$rtn = _ArraySearch($FruitList, "|" & $fruit & "|", 0, 0, 0, 1)
Msgbox(0,'$rtn', $rtn)

;return -1

 

Edited February 5, 2020 by zeenmakr

[FrancescoDiMuro]

@zeenmakr
You could use an "ad hoc" function to do such thing, like the example below:

Global $arrWords[6] = ["Berry", "Apple", "Orange", "Banana", "Grepe", "Carrot"]

For $i = 0 To UBound($arrWords) - 1 Step 1
    ConsoleWrite("The reverse word of '" & $arrWords[$i] & "' is '" & ReverseWord($arrWords[$i]) & "'." & @CRLF)
Next

Func ReverseWord($strText)
    Return Execute(StringRegExpReplace($strText, '^(\w{1})(.*)(\w{1})$', 'StringUpper("$3") & StringReverse("$2") & StringLower("$1")'))
EndFunc

As @Danp2 said, you may want to store the different words in an INI file, and then use the "reverse" function to do whatever you need

[water]

Or use the Dictionary object as mentioned in the threads title. How to fill the dictionary depens where you get the item/value pairs from (should be easy to retrieve the values from a file and add them to the Dictionary in just a few lines of code).
So this is just a simple example:

Global $oDict = ObjCreate("Scripting.Dictionary") ; Create the Dictionary
Global $sItem = "Berry"
Global $sValue = "Yrreb"
$oDict.Add($sItem, $sValue) ; Add a member to the Dictionary
MsgBox(0, "Dictionary", "Item: " & $sItem & " = " & "Value: " & $oDict.Item($sItem)) ; Retrieve a value from the Dictionary

 

[zeenmakr]

@FrancescoDiMuro

haha that's sure is cool little trick!

Sorry for the poor example. I did not intent to do Word Reverse.

I need it to look up 'Rock' and return 'Blue Gem' for example. I meant what it said in the title 'Dictionary Words Look Up Table'. Sorry for the confusion.

$Table = [''& _
    'Rock|Blue Gem', & _
    'Crytal|Clear', & _
    'Monkey see|Monkey do', & _
    'I Heart|You', & _
    'Hello|Aloha']

 

Edited February 5, 2020 by zeenmakr

[iamtheky]

following @water's route, this example and the one below it build a dictionary and then flex it to do things like return the language.

 

[Danp2]

35 minutes ago, zeenmakr said:

what are the modified Pipes suppose to do?

Prevent you from getting a false match on a partial word. Without the delimiters, you could search on  "Ape" and get a match on  "Grape"

[zeenmakr]

@water & @iamtheky & @FrancescoDiMuro - thanks. will check back if needed as im working this out

[FrancescoDiMuro]

@zeenmakr

Glad I could be of help