[..] Lire ligne tableau

[jcaspar]

B onjour à tous !

Je souhaite créer un petit traducteur en partant
d'un tableau ( array ).

avec la fonction stringinstr je recherche le mot dans le tableau
ensuite je souhaiterais afficher la ligne complète ou se trouve le mot
pourriez vous svp m'expliquer comment faire ?

Je vous remercie d'avance pour vos conseils !

Code : Tout sélectionner

#include <Array.au3>    

    ;AutoItSetOption("MustDeclareVars", 1)
    AutoItSetOption("MouseCoordMode", 0)
    AutoItSetOption("PixelCoordMode", 0)
    ;AutoItSetOption("RunErrorsFatal", 0)
    ;AutoItSetOption("TrayIconDebug", 1)
    ;AutoItSetOption("WinTitleMatchMode", 4)
     
            
    dim $tab_couleur[200][3]
     
    ;amour
    $tab_couleur[0][0] = "amour"
    $tab_couleur[0][1] = "amor"
    $tab_couleur[0][2] = "liebe"
 
     
    ; marcher
    $tab_couleur[1][0] = "marcher"
    $tab_couleur[1][1] = "walk"
    $tab_couleur[1][2] = "gehen"
    
     
    ;courir
    $tab_couleur[2][0] = "courir"
    $tab_couleur[2][1] = "run"
    $tab_couleur[2][2] = "rennen"
    
     
    ;~ recherche 4
    $tab_couleur[3][0] = "dormir"
    $tab_couleur[3][1] = "sleep"
    $tab_couleur[3][2] = "schlfen"
    
     
   
     
      
     
_ArrayDisplay($tab_couleur)
_ArraySort($tab_couleur,0,0,0,0)
_ArrayDisplay($tab_couleur, "$avArray AFTER _ArraySort() descending" )
MsgBox(0, "_ArrayToString() getting $avArray items 1 to 7", _ArrayToString($tab_couleur, @TAB, 200, 3))
$recherche=InputBox("Veuilliez preciser votre recherche","recherche","")
local $recherche
$tt=StringInStr($recherche,$tab_couleur)
msgbox(48,"test",$tt,5)

 

[ZDS]

Bonjour,

J'ai modifié quelque peu ton code pour essayer d'être le plus clair possible; mais dans l'ensemble ça se rapproche de ce que tu souhaites :
- Pour chaque ligne de ton tableau :
- - On garde en mémoire le numéro de ligne
- - Pour chaque colonne de ton tableau
- - - On teste les valeurs
- - Si on trouve au moins une correspondance
- - - On enregistre le numéro de ligne dans le résultat
- On retourne le résultat

Voila, le tableau obtenu est un tableau "classique" AutoIt : l'élément [0] contient le nombre de résultat trouvés, les éléments [1] à [n] contiennent les numéros de ligne de ton tableau de départ qui répondent bien à ta recherche.

A bientôt !

► Afficher le textefindWordInArray

Code : Tout sélectionner

#include <Array.au3>

AutoItSetOption("MouseCoordMode", 0)
AutoItSetOption("PixelCoordMode", 0)

Dim $tab[4][3] = [ _
    ["amour", "amor", "liebe"], _
    ["marcher", "walk", "gehen"], _
    ["courir", "run", "rennen"], _
    ["dormir", "sleep", "schlfen"] _
] ; Pas besoin de mettre une taille de 200 pour rien ^^

Local $recherche = InputBox("Veuillez preciser votre recherche","recherche","")
Local $resultat = findWordInArray($tab, $recherche)
_ArrayDisplay($resultat)
afficheResultat($tab, $resultat)

Func findWordInArray($array, $word)
    Local $i, $j, $result[1] = [0]
    For $i = 0 To UBound($array,1)-1
        Local $found = False
        For $j = 0 To UBound($array,2)-1
            If StringInStr($array[$i][$j], $recherche) Then $found = True
        Next
        If $found Then
            $result[0] = $result[0]+1
            ReDim $result[$result[0]+1]
            $result[$result[0]] = $i
        EndIf
    Next
    Return $result
EndFunc

Func afficheResultat($tab, $lines)
    If $lines[0] = 0 Then
        MsgBox(0,"Aucun résultat","Aucun résultat")
    Else
        For $i = 1 To $lines[0]
            Local $line = $tab[$lines[$i]][0]
            For $j = 1 To UBound($tab,2)-1
                $line = $line & ", " & $tab[$lines[$i]][$j]
            Next
            MsgBox(0,"Résultat n°"&$i&"/"&$lines[0],'"' & $line & '"')
        Next
    EndIf
EndFunc

EDIT: J'ai pas osé le dire, Matwachich a raison : ton programme aura beau fonctionner, si tu comptes que sur l'algo pour faire une recherche aussi complexe tu risques d'avoir de sacrées lenteurs.

[matwachich]

Pour un traducteur, si il compte contenir plusieurs mots, une base de données serait plus pratique! (SQLite)

[jchd]

Tu m'enlèves le mot de la bouche !

[mikell]

@jchd
tiens d'ailleurs à ce propos, un p'tit tutoriel ...