Endungen ändern / Ausnahme

bobmarley

Hallo Leute,

Ich habe ein Ordner besteht aus mehrere Dateien mit Der Endung ".xx" und ein Datenbank Datei ".db".

Ich habe ein Code erstellt, mit diesem Code kann ich diese mehrere Dateien mit der Endung "xx" in einem anderen Ordner auf einmal kopieren und deren Endungen gleichzeitig ändern. (wie z.B .txt zu .doc)

Mein Code ändert aber auch die Endung vom Datenbank Datei. wie kann ich hier Ausnahme machen. bzw. wie kann ich den Datenbank Datei umbennen z.B von "Test.db" zu "exam".db.

Für eure Hilfe wäre ich sehr dankbar.

**alpines**

Du kannst prüfen ob die Endung ".db" im Dateinamen vorkommt, wenn ja, überspringst du das Umbenennen einfach.

bobmarley

die Frage ist ja wie

C

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.14.2
 Author:         myName

 Script Function:
    Template AutoIt script.

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here

;#ce ----------------------------------------------------------------------------

#include <GUIConstants.au3>
#include <ComboConstants.au3> ; For GUICtrlCreateCombo
#include <File.au3> ; For _FileListToArray

Global $ComboExt, $Files ; For Find Files.

$Form1     = GUICreate("Ordner kopieren & Endung umbenennen ", 618, 180, 193, 125)
$Input_old = GUICtrlCreateInput("", 16, 16, 321, 21)
$Datei     = GUICtrlCreateButton("Ordner auswählen ", 352, 16, 257, 25, 0)
$Go        = GUICtrlCreateButton("kopieren und Umwandeln ", 136, 88, 361, 41, 0)
$Input_new = GUICtrlCreateInput("", 16, 48, 321, 21)
$Button1   = GUICtrlCreateButton("Neuer Pfad", 352, 48, 257, 25, 0)

GUICtrlSetCursor($Datei, 0)   ; ==> Added.
GUICtrlSetCursor($Go, 0)      ; ==> Added.
GUICtrlSetCursor($Button1, 0) ; ==> Added.

GUICtrlCreateLabel("Neue Endung", 520, 80, 80, 20, 1) ; ==> Added.
$ComboExt = GUICtrlCreateCombo("", 510, 100, 100, 50, BitOR($CBS_DROPDOWNLIST, $CBS_AUTOHSCROLL)) ; ==> Added.
GUICtrlSetData($ComboExt, ".ABC|.DEF|", ".ABC") ; Choose The New Extensions Post File Move. ==> Added.
GUICtrlSetCursor($ComboExt, 0) ; ==> Added.

GUISetState(@SW_SHOW, $Form1)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit(0)

        Case $Datei
;~          ;$path = FileOpenDialog("choose folder or file's", @ScriptDir, "Alle Dateien (*.*)")
            $path = FileSelectFolder("Ordner auswählen", @ScriptDir) ; Correction / Added.
            GUICtrlSetData($Input_old, $path)

        Case $Button1
;~          ;$path_new = FileSelectFolder ( "choose folder or file's", @ScriptDir, "Alle Dateien (*.*)")
            $path_new = FileSelectFolder("Ziel Ordner auswählen", @ScriptDir, 1) ; Correction / Added.
            GUICtrlSetData($Input_new, $path_new)

        Case $Go
            GUICtrlSetState($Go, $GUI_DISABLE)
            GUICtrlSetState($Datei, $GUI_DISABLE)
            GUICtrlSetState($Button1, $GUI_DISABLE)
            GUICtrlSetData($Go, "wait!.")
            $Files = _FileListToArray($path , "*.*" , 1) ; 1 = Return Files Only. ==> Added.
            If Not @error Then _Copy($Files) ; ==> Added.

    EndSwitch
WEnd

Func _Copy($Files) ; Copies All Files to The New Location With The Extension You Have Chosen.

    Local $ReadExt = GUICtrlRead($ComboExt)

    For $i = 0 To UBound($Files)-1
        FileCopy($path & "\" & $Files[$i], $path_new & "\" & StringRegExpReplace($Files[$i], ".*\\|\.[^.]*", "") & $ReadExt)
    Next

    GUICtrlSetState($Go, $GUI_ENABLE)
    GUICtrlSetState($Datei, $GUI_ENABLE)
    GUICtrlSetState($Button1, $GUI_ENABLE)
    GUICtrlSetData($Go, "End of copy")

EndFunc

Alles anzeigen

**AspirinJunkie**

>>Crosspost<< ohne darauf hinzuweisen...

bobmarley

Ich habe die Frage auf beide Seiten gestellt.

**alpines**

Zeile 70 - 72 ist dein Kopiervorgang, dort musst du einfach nur abfragen welche Endung die Datei hat und dementsprechend handeln.

Wenn du das Script bisher geschrieben bekommen hast, dann wirst du das auch hinbekommen, so schwierig ist das nicht.

**AspirinJunkie**

Zitat von bobmarley

Ich habe die Frage auf beide Seiten gestellt.

Und du siehst kein Problem darin einen Hinweis auf parallele Bearbeitung zu unterlassen?
Hier oder dort helfen dir Leute in ihrer Freizeit. Wenn sie nicht wissen das woanders ebenso daran gearbeitet wird, machen sie sich doppelte Mühe für ein Problem was eventuell schon längst gelöst ist.

Mag sein dass meine Ansichten obskur sind aber ich finde das schlicht und ergreifend respektlos allen potentiell helfenden gegenüber.

bobmarley

Im gegenteil, ich finde es normal so, selbst wenn das Problem dort gelöst wurde, werde ich auch die Lösung hier posten.

und das Thema wird als gelöst markiert.

trotzdem danke!

**alpines**

Zitat von bobmarley

Im gegenteil, ich finde es normal so, selbst wenn das Problem dort gelöst wurde, werde ich auch die Lösung hier posten.

Das ist kein Problem welches nicht innerhalb von 5 Minuten selber lösbar ist, wenn man in Gedanken einfach mal durchspielt was wo gemacht werden muss.

So wirkt es einfach nur, als ob du schnell deine Lösung gepostet haben willst und dich dann aus dem Staub machst.

bobmarley

für dich vlt. 5 Minuten, aber für Anfänger wie ich ist bisschen schwierig. aber ist okay

**Musashi**

Zitat von AspirinJunkie

Und du siehst kein Problem darin einen Hinweis auf parallele Bearbeitung zu unterlassen?
Hier oder dort helfen dir Leute in ihrer Freizeit. Wenn sie nicht wissen das woanders ebenso daran gearbeitet wird, machen sie sich doppelte Mühe für ein Problem was eventuell schon längst gelöst ist.

Mag sein dass meine Ansichten obskur sind aber ich finde das schlicht und ergreifend respektlos allen potentiell helfenden gegenüber.

Dem stimme ich in vollem Umfang zu !!

Zitat von bobmarley

Im gegenteil, ich finde es normal so, selbst wenn das Problem dort gelöst wurde, werde ich auch die Lösung hier posten.

und das Thema wird als gelöst markiert.

Das ist unlogisch ! Die Leute, die Dir hier bzw. im engl. Forum helfen, die kennen die Lösung bereits.

Du kannst natürlich eine Lösung aus einem anderen Forum hier posten, aber nicht doppelt die Helfenden beschäftigen !

Gruß Musashi

**AspirinJunkie**

Zitat von bobmarley

Im gegenteil, ich finde es normal so,

Wenn du das für normal hälst wirst du den Kreis der Leute die dir bei weiteren Problemstellungen behilflich sein könnten soeben stark eingeschränkt haben.

Derartige Problemlösungen sind ein Prozess und kein Frage-Ergebnis-Konstrukt. Die Zwischenfragen und Klarstellungen auf dem Weg zum Ergebnis sind in der Regel das Entscheidende.
Davon bekommen beide Seiten untereinander nichts mit.

Wenn es für dich absolut normal ist das Endergebnis der jeweils anderen Seite mitzuteilen sobald es steht, warum ist es für dich da ein Problem von Anfang an darauf hinzuweisen dass das Problem parallel auch woanders behandelt wird?....

bobmarley

ok, sry

bobmarley

leider hat nicht geklappt...

Mit welcher Funktion ich ich nach die Endung der Datei fragen und überspringen?

Thx in advance!

**alpines**

Zitat von bobmarley

Mit welcher Funktion ich ich nach die Endung der Datei fragen und überspringen?

Liest du eigentlich die Antworten die man dir in diesem Thread gepostet hat?

Zitat von alpines

Zeile 70 - 72 ist dein Kopiervorgang, dort musst du einfach nur abfragen welche Endung die Datei hat und dementsprechend handeln.

Wenn du das Script bisher geschrieben bekommen hast, dann wirst du das auch hinbekommen, so schwierig ist das nicht.

Der Dateiname befindet sich in $Files[$i]. Entweder du prüfst mit einer Stringabfrage davor explizit ob deine Endung vorkommt oder du veränderst das RegEx.

Wenn du das bisherige Script geschrieben hast fällt es mir schwer zu glauben du wüsstest nichts von den Stringfunktionen, selbst eine einfache Google-Suche hätte schnell geholfen.

**Bitnugger**

Example

AutoIt

;-- TIME_STAMP   2017-11-01 18:16:37   v 0.1

#Region    ;************ Includes ************
#Include <GUIConstantsEx.au3>
#include <ComboConstants.au3>
#include <File.au3>
#include <WinAPIShPath.au3> ; _WinAPI_PathRenameExtension
#EndRegion ;************ Includes ************

_Example()

Func _Example()
    Local $hForm1               = GUICreate("Ordner kopieren & Endung umbenennen ", 618, 180, 193, 125)
    Local $idInput_Old          = GUICtrlCreateInput("", 16, 16, 321, 21)
    Local $idInput_New          = GUICtrlCreateInput("", 16, 48, 321, 21)
    Local $idButton_ChoseFolder = GUICtrlCreateButton("Ordner auswählen ", 352, 16, 257, 25, 0)
    Local $idButton_DoIt        = GUICtrlCreateButton("kopieren und Umwandeln ", 136, 88, 361, 41, 0)
    Local $idButton_NewPath     = GUICtrlCreateButton("Neuer Pfad", 352, 48, 257, 25, 0)

    GUICtrlCreateLabel("Neue Endung", 520, 80, 80, 20, 1)
    Local $idComboExt = GUICtrlCreateCombo("", 510, 100, 100, 50, BitOR($CBS_DROPDOWNLIST, $CBS_AUTOHSCROLL))
    GUICtrlSetData($idComboExt, ".ABC|.DEF|", ".ABC")
    GUICtrlSetCursor($idComboExt, 0)

    GUISetState(@SW_SHOW, $hForm1)

    Local $sPath, $sNewPath, $aFiles
    While 1
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE
                Exit
            Case $idButton_ChoseFolder
                Local $sPath = FileSelectFolder("Ordner auswählen", @ScriptDir)
                GUICtrlSetData($idInput_Old, $sPath)
            Case $idButton_DoIt
                Local Static $aCtrls = [$idButton_DoIt, $idButton_ChoseFolder, $idButton_NewPath, $idButton_DoIt]
                $aFiles = _FileListToArray($sPath, "*.*" , $FLTA_FILES) ; Return Files Only
                If @error Then ContinueLoop
                GUICtrlSetData($idButton_DoIt, "Wait...")
                _SwitchCtrls($aCtrls, $GUI_DISABLE)
                _Copy($sPath, $sNewPath, $aFiles, GUICtrlRead($idComboExt))
                _SwitchCtrls($aCtrls, $GUI_ENABLE)
                GUICtrlSetData($idButton_DoIt, "End of copy")
            Case $idButton_NewPath
                $sNewPath = FileSelectFolder("Ziel Ordner auswählen", @ScriptDir, 1)
                GUICtrlSetData($idInput_New, $sNewPath)
        EndSwitch
    WEnd
EndFunc

Func _SwitchCtrls($aCtrls, $iMode)
    For $i = 0 To UBound($aCtrls) -1 Step 1
        GUICtrlSetState($aCtrls[$i], $iMode)
    Next
EndFunc

Func _Copy($sPath, $sNewPath, $aFiles, $sReadExt) ; Copies All Files to The New Location With The Extension You Have Chosen.
    Select
        Case FileExists($sPath) = 0
            Return SetError(1)
        Case FileExists($sNewPath) = 0
            Return SetError(2)
        Case UBound($aFiles) = 0
            Return SetError(3)
        Case $sReadExt = ''
            Return SetError(4)
        Case Else
            For $i = 1 To $aFiles[0]
                Switch StringRegExpReplace($aFiles[$i], ".+\.(.+)$", '.\1') ; Extension extrahieren
                    Case $aFiles[$i], '.db', '.exe', '.bat' ; Diese Dateien nicht umbenennen!
                        ConsoleWrite('! Datei ' & $sPath & "\" & $aFiles[$i] & ' wird nicht umbenannt!' & @CRLF)
                        ContinueLoop
                    Case Else ; diese Dateien umbenennen!
                        ConsoleWrite('+ Copy ' & $sPath & "\" & $aFiles[$i] & ' to ' & $sNewPath & "\" & StringRegExpReplace($aFiles[$i], ".*\\|\.[^.](.+)", $sReadExt) & @CRLF)
                        FileCopy($sPath & "\" & $aFiles[$i], $sNewPath & "\" & StringRegExpReplace($aFiles[$i], ".*\\|\.[^.](.+)", $sReadExt))
;~                         FileCopy($sPath & "\" & $aFiles[$i], _WinAPI_PathRenameExtension($sNewPath & "\" & $aFiles[$i], $sReadExt)) ; oder so...
                EndSwitch
            Next
    EndSelect
EndFunc

Alles anzeigen

bobmarley

Danke hat gepasst

**autoiter**

Hehe,

gestern hat sich der TE bereits im englischen Forum für eine Lösung bedankt. Weder hier noch dort ein Hinweis. Das zum Thema:

Zitat von bobmarley

Im gegenteil, ich finde es normal so, selbst wenn das Problem dort gelöst wurde, werde ich auch die Lösung hier posten.

und das Thema wird als gelöst markiert.

.. und das nachdem hier so ein Fass aufgemacht wurde.

**Musashi**

Zitat von autoiter

gestern hat sich der TE bereits im englischen Forum für eine Lösung bedankt. Weder hier noch dort ein Hinweis.

Hallo autoiter !

Überrascht mich, offen gesagt, nicht wirklich, und Dich sicher auch nicht, oder ?

Hier noch mal ein Zitat von AspirinJunkie für alle, die nicht regelmäßig die Shoutbox lesen :

Das hier ist keine Supportstelle wo man ne Frage reinwirft und ein Anrecht auf eine Antwort hat. Das hier ist ein sozialbasiertes Konstrukt wo Leute anderen freiwillig helfen. Wenn jemand allein egozentrisch vorgeht und die Belange und Situation seiner potentiellen Helfer komplett missachtet, konterkariert dies das Grundprinzip eines solchen Forums.

Genau dieses egozentrische/egoistische Verhalten scheint für bobmarley (engl.:Bob1988) ja eindeutig Programm zu sein.

'Rumlabern und sich dann ohne Dank und Worte vom Acker machen.

Fazit : Gleich auf die schwarze Liste mit solchen Parasiten !

Ich bin leider im engl. Forum nicht angemeldet, sonst würde ich dort einen 'Beitrag' schreiben.

Edit : Habe gerade gesehen, dass er sich zumindest bedankt hat. Das Posten der Lösung hat er aber unterlassen, daher bleibe ich i.W. bei meinem Fazit !!

Gruß Musashi

**Bitnugger**

Ich denke nicht, das bobmarley mit Vorsatz handelt, sondern lediglich nicht verstanden hat, dass er sich mit so einem Verhalten nur selbst schadet.

bobmarley - falls von dir keine Stellungnahme hierzu kommt, werde auch ich deinen Namen auf meine Blacklist setzen!