ich kanns ja mit _ArrayDisplay() Anschaun, iss ein normales 1-D Array ... eigentlich
Beiträge von xXMurmelkotzeXx
-
-
wow Raupi thx!!! Funzt super ;D
-
und nomma ne frage: was iss hier falsch?
Spoiler anzeigen
[autoit]Func IniReadSection1D($s_Filename, $s_Section)
[/autoit]
$aIniReadSection2D = IniReadSection($s_Filename, $s_Section)
If @error Then
$error = 0
Else
$error = 1
EndIf
$a = UBound($aIniReadSection2D)
Dim $aIniReadSection1D[1] = [$a]
_ArrayDisplay($aIniReadSection1D)
For $i = 1 To $a
ReDim $aIniReadSection1D[$aIniReadSection2D[$i][0]]
Next
If $error = 1 Then
Return $aIniReadSection1D
Else
Return $error
EndIf
EndFunc ;==>IniReadSection1Dda iss irgendwie ein fehler mit dem format von $-2D
-
Diese Funktion wird dir niemals ein 2D-Array zurückgeben, wie kommst du denn dadrauf?
In der Funktion wird ein 1D-Array mit den gefundenen Dateien/Ordnern befüllt und dann zurückgegeben. Dort findet nirgendwo eine wundersame Wandlung zu einem 2D-Array statt.ööhm Fehlercode bei _ArrayToString kommt immer "Die variable ist kein 1-D Array..."
-
Spoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit]
Func _Array2D_DeleteRowCol(ByRef $aArray, $iIndex, $sWhat = "Row")
Local $iUB_1, $iUB_2$iUB_1 = UBound($aArray, 1)
[/autoit]
$iUB_2 = UBound($aArray, 2)
If $sWhat = "row" Then
For $i = $iIndex To $iUB_1 - 2
For $j = 0 To $iUB_2 - 1
$aArray[$i][$j] = $aArray[$i + 1][$j]
Next
Next
ReDim $aArray[$iUB_1 - 1][$iUB_2]
Else
For $i = 0 To $iUB_1 - 1
For $j = $iIndex To $iUB_2 - 2
$aArray[$i][$j] = $aArray[$i][$j + 1]
Next
Next
ReDim $aArray[$iUB_1][$iUB_2-1]
EndIf
EndFunc ;==>_Array2D_DeleteRowColKann mir jemand den fehler beheben, dass diese Funktion das ergebnis immer 2D ausspuckt, obwohl es bei _ArrayDisplay 1-D ist?
EDIT BugFix:
Es ist eine bodenlose Frechheit, was du dir hier erlaubst! Du hattest hier ein Problem zu einer Funktion von name22 (_FileListRekursiv) gepostet. Jetzt hast du Überschrift und Code ausgetauscht, sodass unsere Antworten geradezu lächerlich wirken!
Das betrachte ich als persönlichen Affront. Du bist ab sofort auf meiner Blacklist! -
wow thx für die Funktion ich hatte nämlich das gleiche Problem ;DD
-
ok alles geht wieder danke.... ich hab ganz oben im String eine falsche Variablen formatiereng von vorher noch drin gehabt...
-
jezz tuts, aber alle arrays sind leer ;D ich glaub ich hab alle gelöscht aber wieso?!?
elgal.. mein delete problem iss weg... thx
EDIT: Auch ohne _ArrayDelete iss alles weg
-
ööhm also soll ich jezz sinngemäß mit dem obersten Ast anfangen, damit ich auf den nächsten Ast falle, bis ich unten bin?^^
-
Bitte setze deinen Code in SPOILER und AutoIt-Tagshab ich gesucht und nich gefundn^^
-
Hi, ich mache grade ein Programm, um meine Filme zu Archivieren, aber bei den DVD datein (.IFO) soll er nur die VIDEO_TS anzeigen und nicht alle VTS. Ohne _ArrayDelete klappt alles, aber wenn ich die Arrays löschen willt geht eben nix mehr. Vielleicht findet ihr ja meinen Fehler.
Spoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit]
#include <GUIConstants.au3>
#include <Array.au3>$avi = _FileListToArrayRecursiv("B:\Videos", "*.avi", 1)
[/autoit] [autoit][/autoit] [autoit]
$aviPath = $avi
$mp4 = _FileListToArrayRecursiv("B:\Videos", "*.mp4", 1)
$mp4Path = $mp4
$IFO = _FileListToArrayRecursiv("B:\Videos", "*.IFO", 1)
$IFOPath = $IFO
$mkv = _FileListToArrayRecursiv("B:\Videos", "*.mkv", 1)
$mkvPath = $mkv
$m2ts = _FileListToArrayRecursiv("B:\Videos", "*.m2ts", 1)
$m2tsPath = $m2tsFor $i = 1 To $avi[0]
[/autoit]
$avi[$i] = StringReplace($avi[$i],".avi","")
$aviSplit = StringSplit($avi[$i], "\")
$avi[$i] = $aviSplit[$aviSplit[0]]
Next
For $i = 1 To $mp4[0]
$mp4[$i] = StringReplace($mp4[$i],".mp4","")
$mp4Split = StringSplit($mp4[$i], "\")
$mp4[$i] = $mp4Split[$mp4Split[0]]
Next
For $i = 1 To $IFO[0]
$IFO[$i] = StringReplace($IFO[$i],".IFO","")
$IFOSplit = StringSplit($IFO[$i], "\")
$IFO[$i] = $IFOSplit[$IFOSplit[0]]
If StringLeft($IFO[$i],3) = "VTS" Then
_ArrayDelete($IFO,$i)
EndIf
Next
For $i = 1 To $mkv[0]
$mkv[$i] = StringReplace($mkv[$i],".mkv","")
$mkvSplit = StringSplit($mkv[$i], "\")
$mkv[$i] = $mkvSplit[$mkvSplit[0]]
Next
For $i = 1 To $m2ts[0]
$m2ts[$i] = StringReplace($m2ts[$i],".m2ts","")
$m2tsSplit = StringSplit($m2ts[$i], "\")
$m2ts[$i] = $m2tsSplit[$m2tsSplit[0]]
Next
_ArrayDisplay($IFO) -
Hey Leuz, ich hab mir gestern mal eine Allgemeine Chat.au3 gebastelt und getestet. Fänds schön, wenn sie auch nochmal jemand anderes testen würde und mir sagen könnte, was falsch ist/ was ich besser machen könnte.