Hi,
ich möchte alle Kombinationsmöglichkeiten von n Objekten ohne Wiederholung in eine Text Datei schreiben.
Also bei n=3 :
123
132
213
231
312
321
Hab schon gegoogelt und folgende Formel gefunden:
n*(n-1)*(n-2)...(n-k+1)
Weis aber leider nicht wie ich sie in AutoIt schreiben kann.
Hoffe jmd kennt des Rätsels Lösung^^ 
MfG
Bladerunner
Es gibt dazu bereits eine Formel:
[autoit]#include <Array.au3>
[/autoit][autoit][/autoit][autoit]Dim $aArray[3] = [1, 2, 3]
$aNewArray = _ArrayPermute($aArray, ",")
_ArrayDisplay($aNewArray, "Permutationen von 3")
Hi,
danke.
Das funktioniert soweit schonmal.
Möchte aber statt den Array angezeigt zu bekommen ihn in eine txt Datei speichern.
[autoit]
#include <Array.au3>
#include <file.au3>
;#RequireAdmin
$file = FileOpen ("C:\Users\Documents\test.txt", 1)
Dim $aArray[4] = [1, 2, 3, 4]
$aNewArray = _ArrayPermute($aArray, ",")
;~ _ArrayDisplay($aNewArray, "Permutationen von 3")
FileWriteLine ($file, $aArray)
FileClose ($file)
ShellExecute ("C:\Users\Documents\test.txt")
MsgBox (0,"",_FileCountLines ("C:\Users\Documents\test.txt") & @CRLF)
Nur irgendwie schreibt er nichts in die Datei.
MfG
Bladerunner
Schau dir mal _FilewritefromArray() an.
edit \ Hehe jetzt war ich mal schneller. 
_FileWriteFromArray() 
Danke funktioniert jetzt.
Kann mir bitte noch jemand sagen wie ich die Werte (1,2,3...) durch ne InputBox angegeben kann?
MfG
Bladerunner
naja statt der 1 2 3... einfach eine variable:
[autoit]$var = Inputbox("Test", "Hier deine Zahl eingeben")
[/autoit]$Var dann einfach da einsetzen
Ne so leicht geht das nicht.
Ich will ja nicht 1,2,3.. oder so eingeben, sondern einfache irgendne Zahl.
Die Zahl wird in die Inputbox eingegeben und dann weiter verarbeitet.
Dürfte doch wie gewünscht funktionieren?
Alternativ eine Gui mit Input-control und dem Style $ES_Number.
Also ohne InputBox sieht das so aus:
[autoit]
Dim $aArray[4] = [1, 2, 3, 4]
und mit InputBox wäre dann so:
[autoit]
$input = InputBox("Zahl","Gib eine Zahl ein")
Dim $aArray[$input] = [$input]
Das kann aber nicht funktionieren, denn dann steht in meiner txt Datei nur $input.
#include <Array.au3>
$input= InputBox("Zahl","Gib eine Zahl ein")
$a=stringsplit($input,"",3)
[/autoit][autoit][/autoit][autoit]_arraydisplay($a)
[/autoit]$input = InputBox("Zahl","Gib eine Zahl ein")
Dim $aArray[$input]
aber ein wenig selber tüfteln ist auch erlaubt
Andy das geht schonmal in die richtige richtung
Ich möchte im Input aber nur eine Zahl eingeben z.B. 4.
Die anderen Zahlen bis 4 also 1,2,3 soll das Script automatisch bestimmen.
Nimm das folgende Script als Ausgansmaterial, das du natürlich noch erweitern kannst:
[autoit]#include <array.au3>
$Zahl = InputBox("Zahl eingeben","Zahlen nur von 1 bis 9")
If IsInt(Execute($Zahl)) And Execute($Zahl) < 10 And Execute($Zahl) > 0 Then
Dim $aArray[$Zahl]
For $i=1 To $Zahl
$aArray[$i-1] = $i
Next
$New=_ArrayPermute($aArray)
_ArrayDisplay($New)
EndIf
Danke an alle
Funktioniert jetzt
ich verstehe nicht was an meiner lösung falsch sein sollte...
wenn man:
$var = InputBox("Test", "Hier deine Zahl eingeben")
MsgBox("Test", $var)
macht, dann steht in der MsgBox genau das was in dem Input stand. Das war schon richtig so 
(ist schon gelößt, wollte die missstände noch aufklären)
Er wollte ein Array erstellen mit der Zahl, die in der InputBox angegeben wurde.
Wenn z.B. 4 angegeben wurde, sollte ein Array gebildet werden mit
$aVar[4] = [1,2,3,4]
bei 5:
$aVar[5] = [1,2,3,4,5]
.
.
.
dessen bin ich mir bewusst, ich wollte nur nicht, dass jetzt jemand denkt, dass wenn man eine inputbox als variable nimmt die variable in der abfrage rauskommt, wie gesagt frage wurde schon geklärt
