Arrays zusammenfügen?!

horphi

Hallo,
ist es möglich, 2 1D Arrays zusammenzufügen?

AutoIt

#include <Array.au3>


Local $aArray_Base [8]
For $i = 0 To 7
        $aArray_Base[$i] = $i
Next
_ArrayDisplay($aArray_Base, "erster 1D Array")


Local $aArray_Base2[9]
For $i = 0 To 8
            $aArray_Base2[$i] = $i
Next
_ArrayDisplay($aArray_Base2, "zweiter 1D Array")




$arrayconc = _ArrayConcatenate($aArray_Base, $aArray_Base2)
_ArrayDisplay($arrayconc)

Alles anzeigen

Danke und Gruß,

horphi

teamnoobPDB

Probiers mal damit:

EDIT: Hab noch ne abfrage hinzugefügt die Überprüft ob es wirklich 2 1D-Arrays sind

AutoIt

Func _Array_Add($a1, $a2)
	If Not IsArray($a1) Or Not IsArray($a2) Then Return -1
	If UBound($a1, 2) > 1 Or UBound($a2, 2) > 1 Then Return -1
	Local $u_a1 = UBound($a1)
	Local $u_a2 = UBound($a2)
	Local $aNew[($u_a1 > $u_a2 ? $u_a1 : $u_a2)][2]
	For $i = 0 To ($u_a1 > $u_a2 ? $u_a1 : $u_a2)
		If $u_a1 > $i Then $aNew[$i][0] = $a1[$i]
		If $u_a2 > $i Then $aNew[$i][1] = $a2[$i]
	Next
	Return $aNew
EndFunc

Alles anzeigen

x0r

Kein Plan, was du vor hast, gibt aber viele Wege. Z.B.:

AutoIt

#include <Array.au3>
#include <File.au3>


Local $aArray_Base[8]
Local $aArray_Base2[8]
Local $aArray_Final[8]
Local $temp = @ScriptDir & "\temp.txt"




For $i = 0 To 7
	$aArray_Base[$i] = $i
	$aArray_Base2[$i] = $i
Next


for $i = 0 to UBound($aArray_Base)-1
	FileWrite($temp, $aArray_Base[$i] & " | " & $aArray_Base2[$i] & @LF)
Next


_FileReadToArray($temp, $aArray_Final)


FileDelete($temp)


_ArrayDisplay($aArray_Final, "final")

Alles anzeigen

teamnoobPDB

Aber es ist wesentlich Zeitintensiver alles in ne Datei zu schreiben als meine Funktion xD

So sieht das Ergebnis aus:

Funktion: 0.0845777885178144ms
Datei: 2.65026700320851ms

Meine Funktion ist 33mal schneller

horphi

Man man man....das ist ja ein neuer AntwortRekord ...

Vielen Dank, funktioniert PERFEKT!

AutoIt

#include <Array.au3>


Local $aArray_Base [9]
For $i = 0 To 8
        $aArray_Base[$i] = $i
Next
_ArrayDisplay($aArray_Base, "erster 1D Array")


Local $aArray_Base2[9]
For $i = 0 To 8
            $aArray_Base2[$i] = $i
Next
_ArrayDisplay($aArray_Base2, "zweiter 1D Array")


$aNew = _Array_Add($aArray_Base,$aArray_Base2)


    Func _Array_Add($a1, $a2)
    	If Not IsArray($a1) Or Not IsArray($a2) Then Return -1
    	If UBound($a1, 2) > 1 Or UBound($a2, 2) > 1 Then Return -1
    	Local $u_a1 = UBound($a1)
    	Local $u_a2 = UBound($a2)
    	Local $aNew[($u_a1 > $u_a2 ? $u_a1 : $u_a2)][2]
    	For $i = 0 To ($u_a1 > $u_a2 ? $u_a1 : $u_a2)
    		If $u_a1 > $i Then $aNew[$i][0] = $a1[$i]
    		If $u_a2 > $i Then $aNew[$i][1] = $a2[$i]
    	Next
    	Return $aNew
    EndFunc


_ArrayDisplay($aNew)

Alles anzeigen

VG

horphi