beliebiege variable aus array

04/21/2010 01:21 luddi#1

hallo zusammen.
ich arbeite zur zeit an einem kleinen programm und daf�r ist es n�tig, dass autoit vergleicht, ob eine bestimmte variable innerhalb eines array vorhanden ist.
das array enth�lt zum bsp variabeln mit den werten: 1, 2 und 3.
jetzt soll �berpr�ft werden, ob die variable a im array ist (a=1, z.B.).

das array hab ich nat�rlich schon erstellt (1dimensional), nur der abgleich ist knifflig. ich habs mit

Code:

if $a= $array_items Then
$score= $score+1
EndIf

probiert, das funzt aber nicht, ich denke dann m�sste wirklich a=1, 2 und 3 sein..
am besten w�re es nat�rlich, wenn das ganze mit mehreren variablen funktionieren w�rde, die dann aber nicht doppelt gez�hlt werden d�rften. vllt k�nnte man daf�r die entsprechende variable nach erfolgreichem abgleich aus dem array l�schen?

hoffe ich habe mich nicht zu wirr ausgedr�ckt, und danke im vorraus!
mfg
luddi

04/21/2010 03:12 Mankana#2

Am besten ist es du zeigst den kompletten Quellcode oder zumindest einen eindeutigen
Ausschnitt, da kann man besser helfen.

Code:

For $i = 0 to Ubound($Array) - 1
If $a = $Array[$i] then
$score = $score+1
Exitloop
EndIf
else
Next

04/21/2010 14:21 | Moep |#3

Code:

#include <Array.au3>

Local $avArray[5] = [0, 1, 2, 1, 0]
Local $aiResult = _ArrayFindAll($avArray, 0)
_ArrayDisplay($avArray, "$avArray")
_ArrayDisplay($aiResult, "Ergebnis der Suche des Wertes 0 in $avArray")

oder

Code:

#include <Array.au3>

;===============================================================================
; Beispiel 1 (verwendet ein 1D Array)
;===============================================================================
Local $avArray[6] = [ _
        "String0, SubString0", _
        "String1, SubString1", _
        "String2, SubString2", _
        "String3, SubString3", _
        "String4, SubString4", _
        "String5, SubString5"]

_ArrayDisplay($avArray, "$avArray")

$sSearch = InputBox("_ArraySearch() Demo", "Welcher String soll gesucht werden?")
If @error Then Exit

$iIndex = _ArraySearch($avArray, $sSearch, 0, 0, 0, 1)
If @error Then
    MsgBox(0, "Nicht gefunden", '"' & $sSearch & '" wurde in dem Array nicht gefunden.')
Else
    MsgBox(0, "Gefunden", '"' & $sSearch & '" wurde in dem Array an Stelle ' & $iIndex & " gefunden.")
EndIf

04/21/2010 17:30 luddi#4

ok, das sieht doch schonmal vielversprechend aus. werde mich mal einlesen und es ausprobieren wenn ich zeit hab. danke!

den ganzen code hier reinzuklatschen w�re etwas viel, was f�r einen ausschnitt meinst du denn? wo ich das array erstelle?

edit:

ok, ich habe jetzt folgende codes:

array erstellen:

Code:

Dim $array_recallitems[15]; recall-items:
$array_recallitems[0] = FileReadLine ($file_recallitems, 1)
$array_recallitems[1] = FileReadLine ($file_recallitems, 2)
$array_recallitems[2] = FileReadLine ($file_recallitems, 3)
;geht eigtl bis [15]

gesuchte variabele setzen:
(text aus input)

Code:

$recall1 = GUICtrlRead (21)
$recall2 = GUICtrlRead (22)
$recall3 = GUICtrlRead (23)
;geht auch eigtl bis 15

und jetzt m�chte ich vergleichen, ob eine der eingegebenen w�rter in einem der 3 (eigtl 15) input-feldern �bereinstimmt mit einem der 3 (eigtl 15) strings aus dem array:

Code:

Local $aiResult = _ArrayFindAll ($array_recallitems, $recall1)
if $recall1 = $aiResult Then ; ?!
$recallscore = $recallscore+1
EndIf
;hier erstmal nur f�rs erste wort..

das ganze funktioniert so aber leider nicht. ich sollte vllt dazu sagen, dass ich noch nicht soo viel ahnung habe vom programmieren/coden..

zweiter versuch:
alles ganu wie oben, au�er die abfrage der �bereinstimmung. die sieht jetzt so aus:

Code:

For $i = 0 to Ubound($array_recallitems) - 1
If $recall1 = $array_recallitems[$i] then
$recallscore = $recallscore+1
Exitloop
EndIf
Next

klappt aber auch nicht. in der ausgabe

Code:

MsgBox (0, "test", $recallscore & "correct")

zeigt der mir jetzt immer 1correct an, egal, was ich eingebe..

was komisch ist, weil es meiner meinung nach eigtl das selbe ist wie

Code:

Dim $Array[3]
$Array[0]=1
$Array[1]=2
$Array[2]=3

$a=2
$score=0

For $i = 0 to Ubound($Array) - 1
If $a = $Array[$i] then
$score = $score+1
MsgBox (0, "test", $score)
Exitloop
EndIf
Next

und das funktioniert super mit a=1,2 und/oder 3..
:confused: