Dateien nach Kriterien durchsuchen

blackdeath911

Hallo an alle erstmal

Ich habe mir folgedendes vorgestellt...
Man Klickt auf eine Date oder Ordner mit rechtsklick und dann hat man einen unterpunkt wie (neues Autoit Script erstellen)
Dieser Unterpunkt soll dann z.B. heißen Dateinamen Durchsuchen

Ich möchte nämlich eine Date oder Ordner bei Rechtklich -> Dateinamen Durchsuchen dann nach bestimmten kriterien durchsuchen lassen (am besten aus einer ini damit man sie einfach erweitern kann) und sollte eines der Kriterien enthalten sein sollen diese ersetzt oder gelöscht werden aus dem namen...

Leider weiß ich nicht wie man so einen Punkt unter rechtsklick hinbekommt und wie man die datei nach bestimmten sachen durchsucht,...

Hättet ihr da eventuell mal einen kleinen denkanstoß für mich?

MFG: Blacky911

**Schnitzel**

Du musst sowas machen wie Dateityp registrieren.
Einfach per suche gefunden: [ gelöst ] Dateityp registrieren
Wenn der thread nich der richtige ist einfach nach Dateityp oder so suchen
Das geht mit Ordnern auch, also diese zu registrieren.

Für die Suche brauchste dann noch ne rekursive auflistung der Dateien und evtl StringRegExp.
Je nachdem was du da genau willst

blackdeath911

Nein es geht sich nur um den Dateinamen nicht den Typ...

Ich möchte z.B. sachen wie music.complication.var.artist einen rechtsklick drauf machen dann namen Checken und die "." entfernen lassen

MFG: Blacky911

**Schnitzel**

Na dann isses ja noch einfacher
Für alle dateitypen dein Script im Kontextmenü registrieren.
Im Script dann mithilfe von z.B. Stringreplace die Dateinamen verändern (die dateien stehen ja dann im $CMDLINE)
und dann mithilfe von Filemove umbenennen

blackdeath911

Wie meinst du das mit dem regestrieren?

Ich hatte mir das so gedacht, dass autoit sich den ordnernamen/dateinamen anschaut und dann halt nach den Kriterien mit Stringsplit die punkte oder sonstige zeichen durch leerzeichen ersetzt bzw. nichts...

Und wie bekomme ich das script auf rechtsklick das es immer da ist und ich es nicht immer anmachen muss?

**Schnitzel**

Den Dateityp registrieren kannst du in der Registry. Wie es z.B. avi's für den Windows MediaPlayer registriert sind.
D.h. wenn man Rechtsklick auf die Datei macht hat man in diesem Beispiel die Auswahlmöglichkeit: "Mit Windows MediaPlayer wiedergeben" (oder so ähnlich^^ )
Das gleiche geht auch generell für alle Dateien. (Winrar oder 7zip haben zum Beispiel: Zu Archiv hinzufügen)

Oder aber du machst es per Senden an. Dann musst du einfach nur eine Verknüpfung erstellen die auf dein Programm zeigt.
Bei Win7 einfach in die Addressleiste des Explorers shell:sendto eingeben.
Für XP gibts iwo im Profil nen Ordner namens Sendto, weiß ich jetzt leider nicht auswendig

blackdeath911

Wenn ich es jetzt mit der Senden an Methode mache...

Dann leg ich ja mein Script in diesen sendto ordner in win7 ab...
Aber was wird da übergeben bzw. wie verändere ich den namen des Ordners/der Datei auf die ich rechtsklick -> senden an gemacht habe?

Wird der Pfad übergeben oder irgendwas womit man arbeiten kann?

MFG: Blacky911

**Schnitzel**

siehe Post #4.
Alle pfade stehen im Array $CmdLINE

blackdeath911

Okay das hab ich nun schonmal...
Je mehr dateien ich mit senden an markiere desto größer wird $CMDLINE[0]

Aber wie sage ich dem Programm jetzt das er nur den Dateinamen betrachten soll und nicht den ganzen pfad?
Stringslpit "/" oder geht das noch anders irgendwie?

Und wenn ich die Punkte entfernen lasse ist ja automatisch auch z.B. das *.txt nachher nurnoch ein *txt
Wie umgehe ich das?

MFG: Blacky911

**Schnitzel**

Natürlich geht das
so zb:

[autoit]

$Pfad = "C:\Programme\Test.txt"
$nurdatei = StringTrimLeft($pfad, stringinstr($pfad, "\", 0, -1))
MsgBox(0,"", $nurdatei)

[/autoit]

Den punkt vorm Dateitypen darfst du natürlich nicht entfernen lassen

blackdeath911

Aber wie umgehe ich das mit dem Punkt vor dem Dateitypen?

Alle bekannten Dateitypen in nen Array schreiben und überprüfen lassen bzw. nen Stringsplit machen wie mit dem Dateinamen nur das letzte rausfiltern sozusagen den letzten punkt und es am ende wieder dranhängen?

Oder gibt es da auch so ne tolle funktion wie die mit dem nur dateinamen?

Habe noch ein Problem gefunden wenn ich es mit StringTrimLeft mache... wenn man es mit ordnern anwendet und kein . im ordner ist wird es ja erstmal nen fehler geben und es gibt ja keinen Datentyp der wieder drangesetzt werden muss...
Wie unterscheide ich ob es sich um eine Datei oder einen Ordner handelt?

MFG: Blacky911

**Schnitzel**

Das mit dem letzten Punkten ist nich so das Problem.
Hier mal ne Beispielfunktion:

Spoiler anzeigen

[autoit]

$dateiname = "Das.ist.ein.Test.mit.Punkten.txt"

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

MsgBox(0,"", $dateiname)

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

$ohnepunkte = _Punkteentfernen($dateiname)

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

MsgBox(0,"", $ohnepunkte)

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

Func _Punkteentfernen($sString, $sReplace = " ")
$sFilename = StringReplace(Stringleft($sString, StringinStr($sString,".", 0, -1) - 1), ".", $sReplace)
Return $sFilename & Stringtrimleft($sString, StringinStr($sString,".", 0, -1) - 1)
EndFunc

[/autoit]

So denke ich gehts egal ob ein Punkt enthalten ist oder nicht. Also mit Dateien und Ordnern

blackdeath911

So gehts irgendwie nicht...

Wenn man den Punkt vor dem txt entfernt und kein leerzeichen einfügt (weiß nich obs auch mit leerzeichen so is) dann bleibt der punkt vor Punktentxt stehen...

Gibt es nicht eine Funktion zum Testen eines Pfades darauf ob es eine Datei oder ein Ordner ist? muss ja nichts elegantes sein kann ja auch sein, dass ein @Error ausgelesen wird wenn eine Datei nicht ausgelesen werden kann dann isses ja nen ordner...

Es soll nachher ja nicht nur Punkte entfernt werden sondern diese sachen: _ . - "0-9 der 1. 4 Stellen" und mal sehen was manchmal noch nervt bei heruntergeladenen dateien im dateinamen...

MFG: Blacky911

**Schnitzel**

Na dann bastel dir doch ne überprüfung. Wie wärs mit auslesen des ersten Zeichens in der Datei.
Wenn es geht ist es eine Datei wenn nicht ist es ein Ordner (vorrausgesetzt der Pfad passt, aber das kannst du mit FileExists() prüfen)
(Vielleicht gibts auch ne fertige lösung, mir fällt aber gerade keine ein und ich bin mim handy unterwegs^^ )
Das ersetzen läuft natürlich erst wenn du weißt ob es eine Datei ist.

Wenn es mehrere Dinge zum ersetzen sind dann kannst du entweder viele Stringreplace hernehmen oder du probierst es mit StringRegExpReplace

**autoBert**

Zitat von blackdeath911

Oder gibt es da auch so ne tolle funktion wie die mit dem nur dateinamen?

Zitat

_PathSplit

Teilt einen Pfad in Laufwerk, Verzeichnis, Dateinamen und Dateierweiterung auf. Falls ein Teil des Pfades fehlt, wird ein leerer String gesetzt.

Quelle: dt. Hilfe

mfg autoBert

blackdeath911

Also habs soweit mal fertig geschrieben...

Nur irgendwie gefällts mir nicht
So wie es jetzt ist muss es in den sendto ordner abgelegt werden und dann mit rechtsklick auf eine Datei und senden an das script gestartet werden...
Es werden alle punkte und bindestriche durch leerzeichen ersetzt...

Hier mal das Script (sry für die vielen includes ^^)

Spoiler anzeigen

[autoit]

#include <Constants.au3>
#include <Array.au3>
#include <GUIConstants.au3>
#include <WindowsConstants.au3>
#include <GuiButton.au3>
#include <File.au3>

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

Global $folder=0
Global $i=0
Global $pathsplit
Global $text
Global $len, $4left, $typ
Dim $drive, $dir,$name,$endung

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

For $i=1 to $CMDLINE[0] step +1
$pathsplit=_PathSplit($CMDLINE[$i], $drive, $dir, $name, $endung)

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

$text=StringTrimLeft($CMDLINE[$i],stringinstr($CMDLINE[$i], "\", 0, -1))

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

$len=StringLen($text)
$4left=StringTrimLeft($text,$len-4)
$last3=StringTrimLeft($text,$len-3)
$4left=StringTrimRight($4left,3)
;Nach punkt variable
$typ=StringTrimLeft($CMDLINE[$i],stringinstr($CMDLINE[$i], ".", 0, -1))
If ($4left=".") Then
If stringinstr($last3,'.')=0 Then
$folder=0
Else
$folder=1
EndIf
If $endung="" Then
$folder=1
Else
$len=StringLen($endung)
If $len=4 Then
$folder=0
EndIf
EndIf
Else
$folder=1
EndIf

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

If $folder=0 Then
$name=StringRegExpReplace($name,"[.,-]"," ")
;MsgBox(0,0,"Von: "&$CMDLINE[$i]&@CRLF&"Nach: "&$pathsplit[1]&$pathsplit[2]&$name&"."&$last3)
Filemove($CMDLINE[$i],$pathsplit[1]&$pathsplit[2]&$name&"."&$last3)
EndIf
If $folder=1 Then
$name=StringRegExpReplace($text,"[.,-]"," ")
If $endung = "" Then
Else
$endung=StringRegExpReplace($endung,"[.,-]"," ")
EndIf
;MsgBox(0,0,"Von: "&$CMDLINE[$i]&@CRLF&"Nach: "&$pathsplit[1]&$pathsplit[2]&$name)
DirMove($CMDLINE[$i],$pathsplit[1]&$pathsplit[2]&$name)
EndIf
Next

[/autoit]

Könnt ihr mir sagen was da noch nich so is wie ich mir das vorgestellt habe?
MFG: Blacky911