Dateien Sortieren

PokerFace

Hallo,
ich habe einen Ordner, in den ich viele Archive eines Downloadmanagers gespeichert habe.
Der sieht ungefähr wie folgt aus.
Downloads:
SkBallUp1...
SkBallUp1...
SkBallUp1...
SbBallUp2...
SbBallUp2...
SbBallUp2...

Die Dateien haben verschiedene Endungen und die Namen sind auch länger.

Nun zu meiner Frage.
Kann ich AutoIt beibringen, dass er mir die Dateien mit einem möglichst ähnlichen Anfang in einen separaten Ordner schiebt?
Mit der Zeit entsteht so ein Wirrwarr, dass ich gar nicht mehr weiß, was zu was gehört.

Ich hoffe, dass dieses Wunderwerk der Programmierskunst auch das bewältigen kann.

PS: Jetzt schonmal einen guten Rutsch ihr lieben.

name22

Im Grunde brauchst du nur die Befehle:

[autoit]

_FileListToArray ;Dateien in Array einlesen
DirCreate ;Ordner für Dateien erstellen
FileMove ;Dateien in Ordner verschieben
StringInStr ;Dateinamen nach Wort durchsuchen

[/autoit]

Also einfach die Dateien in ein Array einlesen und danach in einer For Schleife nach und nach die Dateinamen überprüfen und die Dateien ggf. in den erstellten Ordner verschieben.

PokerFace

Danke! Den Gedanken hatte ich auch schon.
Nur es scheiterte wieder einmal an der Logik.
Wie kann ich überprüfen, ob sich Strings ähneln?
Sorry. Die Logik war noch nie meine Stärke.

stayawayknight

Kommt darauf an, wie sie sich ähneln sollen.
Du kannst z.B. Buchstaben in der Mitte vergleichen, Buchstaben am Ende oder Buchstaben am Anfang.
Dazu brauchst du

[autoit]

_StringBetween
StringLeft
StringRight
;evtl fängst du was mit
StringCompare
;an

[/autoit]

name22

Ich hab mal ein Beispiel geschrieben...

Spoiler anzeigen

[autoit]

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

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

$sPath = @ScriptDir & "\Test"
$aFiles = _FileListToArray($sPath, "*", 1)

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

$i = 1
While $i <= $aFiles[0]
$aResult = StringRegExp($aFiles[$i], "(.*?)\d", 1)
If Not @error Then
DirCreate($sPath & "\" & $aResult[0])
FileMove($sPath & "\" & $aFiles[$i], $sPath & "\" & $aResult[0])
_ArrayDelete($aFiles, $i)
$aFiles[0] -= 1
$j = 1
While $j <= $aFiles[0]
If StringInStr($aFiles[$j], $aResult[0]) Then
FileMove($sPath & "\" & $aFiles[$j], $sPath & "\" & $aResult[0])
_ArrayDelete($aFiles, $j)
$aFiles[0] -= 1
EndIf
$j += 1
WEnd
EndIf
$i += 1
WEnd

[/autoit]

Das Script packt alle Dateien, die bis zur ersten Ziffer im Dateinamen übereinstimmen in jeweils einen Ordner.

**bernd670**

Hallo,

schau dir mal den Beitrag Strings vergleichen an!