Funktion Parameter foo(1,10,1024) wie kann ich "1,10,1024" generieren?? unpack()???

UPIA

hi leute,
ich möchte zur scriptlaufzeit eine funktion aufrufen foo(1,10,1024)
wobei die 3 oder beliebig viele variablen übergeben werden sollen,
die zur laufzeit ermittelt werden (anzahl, typ, wert).

sinngemäß: (was natürlich nicht funzt, da der string als ein wert erkannt wird)
$string = $a & "," & $b & "," & $c
foo($string)

wie lässt sich so etwas realisieren???

In Lua entspräche dass
foo(...)
foo(unpack(array))

... 1000 dank für die richtige antwort!

i2c

Spoiler anzeigen

[autoit]

$sString = "1,2,3"
$aString = StringSplit($sString, ",", 3)

[/autoit] [autoit][/autoit] [autoit]

_foo($aString)

[/autoit] [autoit][/autoit] [autoit]

_bar($sString)

[/autoit] [autoit][/autoit] [autoit]

Func _foo($aParam)
ConsoleWrite("_foo()" & @CRLF)
For $i = 0 To UBound($aParam) - 1
ConsoleWrite("Parameter " & $i & ": " & $aParam[$i] & @CRLF)
Next
EndFunc ;==>_foo

[/autoit] [autoit][/autoit] [autoit]

Func _bar($sParam)
Local $aParam
$aParam = StringSplit($sParam, ",", 3)
ConsoleWrite("_bar()" & @CRLF)
For $i = 0 To UBound($aParam) - 1
ConsoleWrite("Parameter " & $i & ": " & $aParam[$i] & @CRLF)
Next
EndFunc ;==>_bar

[/autoit]

UPIA

hi ic2,
danke für die schnelle antwort!!!
StringSplit hat den nachteil, dass ich alle teile als string zurückbekomme (evtl schwer sie wieder in das ursprüngliche format zu bekommen, wenn man nicht weiss, was man erwarten soll.
ausserdem ist dann mein problem noch nicht gelöst, dass ich eine funktion mit der gewünschten parameterzahl aufgerufen wird.
also ich möchte in _foo() mit den paramtern eine weitere funktion aufrufen:
Call("Funktionsname",Para1,Para2,Para3)

also z.b. wenn $PARA[1] = "Para1", $PARA[2] = "Para2", $PARA[3] = "Para3", dann möchte ich
$RETURN_VAR = Funktionsname( Unpack($Para) )

also eine funktion, die die Parameter aus einem Array o.ä. liest und mit , verkettet...

das hab ich mal gebastelt als workaround (muss aber alle funktionen mit 10 parametern ausstatten, sonst funzt es nicht)

Code

; Global Return Value & myArgs (max. 10 parameters)
Global $RETURN_VALUE
Dim $myArgs[10]


; set while script is running
$myArgs[0] = 3
$myArgs[1] = "Variable A"
$myArgs[2] = "Variable B"
$myArgs[3] = 1024


; Call Test Function with set Parameters
_Call("Test",$myArgs,"RETURN_VALUE")


; Check Result (should be: "Variable A")
MsgBox(0,"Return Value", $RETURN_VALUE)


Exit


; ~~~ Functions from here


; My-Workaround Call Function
Func _Call($function, $array, $return)
	Local $i, $value
	Local $a,$b,$c,$d,$e,$f,$g,$h,$i,$j
	Local $vName = "abcdefghij"
	For $i = 1 To $array[0]
		Assign(StringMid($vName, $i, 1),$array[$i])
	Next
	$value = Call($function,$a,$b,$c,$d,$e,$f,$g,$h,$i,$j)
	Assign($return,$value)
EndFunc


; Simply Testing: print passed values to Console, Return Value0
Func Test($v0=0,$v1=0,$v2=0,$v3=0,$v4=0,$v5=0,$v6=0,$v7=0,$v8=0,$v9=0)
	Local $count = 0
	While Eval("v" & $count) <> 0 Or Eval("v" & $count) <> ""
		ConsoleWrite(Eval("v" & $count) & ',')
		$count = $count + 1
	WEnd
	Return $v0
EndFunc


;<--eof

Alles anzeigen

Background: Ich erstelle ein Menu-Array: Spalte 1 = Angezeigter Name, Spalte 2 = Hinterlegte Funktion (auführen wenn ausgewählt)

...

i2c

Spoiler anzeigen

Code

function test(_a, _b, _c)
	x = _a + _b +_c 
	return x
end


a = {1,2,3}


print( test(unpack(a)))

Spoiler anzeigen

[autoit]

Dim $myArgs[4] = ["CallArgArray", 1, 2, 3]

[/autoit] [autoit][/autoit] [autoit]

ConsoleWrite(Call("_test", $myArgs) & @CRLF)

[/autoit] [autoit][/autoit] [autoit]

Func _test($v0 = 0, $v1 = 0, $v2 = 0, $v3 = 0)
Return $v0 + $v1 + $v2
EndFunc ;==>_test

[/autoit]

UPIA

aaaaaaaaaaaaahhhhhhhhhhh .... "CallArgArray" heisst das zauberwort das in array[0] muss, damit man die daten gepackt übergeben kann!!!
hier gibts noch n bissle info dazu: http://www.autoitscript.com/forum/topic/12…all-with-byref/
zur info: das erste script is in lua ... da funzt das mit unpack ...

perfekt!!!
hier wurde mir geholfen!

danke ic2!!