========================================================================================================
===  Tidy report for :C:\Users\Ron\Documents\AutoIT3\name_change\name_change.au3
========================================================================================================

00001    #include <_RecursiveFileListToArray.au3>
00002    #include <string.au3>
00003    #include <array.au3>
00004    #include <file.au3>
00005    
00006    #NoTrayIcon
00007    ;Opt("MustDeclareVars", 1)
00008    Global $charrep, $charsec, $cmdpfad, $charsecpf, $charreppf, $aeouue = False, $recu = False
00009    
00010    If $CmdLine[0] <= 0 Then _errot()
00011    ;MsgBox("","",UBound($CmdLine))
00012  +-For $e = UBound($CmdLine) - 1 To 1 Step -1
00013  |  +-If $CmdLine[$e] == "-h" Or $CmdLine[$e] == "-help" Then
00014  |  |    ConsoleWrite(@CRLF & "Benutzen sie folgende Syntax:")
00015  |  |    ConsoleWrite(@CRLF & @ScriptName & "-p 'C:\beispiel' -r '_'")
00016  |  |    ConsoleWrite(@CRLF & @CRLF & "-r	replace 'zeichen' z.B. '_'")
00017  |  |    ConsoleWrite(@CRLF & "-s	search 'zeichen' z.B. ' '")
00018  |  |    ConsoleWrite(@CRLF & "-pr	pfadreplace 'zeichen' z.B. '.'")
00019  |  |    ConsoleWrite(@CRLF & "-ps	pfadsearch 'zeichen' z.B. ' '")
00020  |  |    ConsoleWrite(@CRLF & "-p	pfad 'pfad' z.B. 'C:\beispiel'")
00021  |  |    ConsoleWrite(@CRLF & "-recu	Recusiv einlesen")
00022  |  |    ConsoleWrite(@CRLF & "-aou	ersetzt Umlaute durch ae,oe,ue,ss,und")
00023  |  |    ConsoleWrite(@CRLF & @CRLF & @ScriptName & "-p 'C:\beispiel' -pr '.' -ps ' ' -r '_' -s ' '")
00024  |  |    ConsoleWrite(@CRLF & "Bedeutet Sie ersetzen im Pfad alle Leerzeichen durch . (Punkt)")
00025  |  |    ConsoleWrite(@CRLF & "Und Sie ersetzen im Dateinamen alle Leerzeichen durch _ (Unterstrich)")
00026  |  |    ConsoleWrite(@CRLF & @CRLF)
00027  |  |    Exit
00028  |  |    Exit
00029  |  +-EndIf
00030  +-Next
00031    
00032    
00033    
00034  +-For $e = UBound($CmdLine) - 1 To 1 Step -1
00035  |  +-If $CmdLine[$e] == "-r" Then
00036  |  |    If $CmdLine[$e + 1] <> "-s" And $CmdLine[$e + 1] <> "-p" And $CmdLine[$e + 1] <> "-pr" And $CmdLine[$e + 1] <> "-ps" And $CmdLine[$e + 1] <> "-aou" And $CmdLine[$e + 1] <> "-recu" Then $charrep = $CmdLine[$e + 1]
00037  |  +-EndIf
00038  |  +-If $CmdLine[$e] == "-s" Then
00039  |  |    If $CmdLine[$e + 1] <> "-r" And $CmdLine[$e + 1] <> "-p" And $CmdLine[$e + 1] <> "-pr" And $CmdLine[$e + 1] <> "-ps" And $CmdLine[$e + 1] <> "-aou" And $CmdLine[$e + 1] <> "-recu" Then $charsec = $CmdLine[$e + 1]
00040  |  +-EndIf
00041  |  +-If $CmdLine[$e] == "-p" Then
00042  |  |    If $CmdLine[$e + 1] <> "-s" And $CmdLine[$e + 1] <> "-r" And $CmdLine[$e + 1] <> "-pr" And $CmdLine[$e + 1] <> "-ps" And $CmdLine[$e + 1] <> "-aou" And $CmdLine[$e + 1] <> "-recu" Then $cmdpfad = $CmdLine[$e + 1]
00043  |  +-EndIf
00044  |  +-If $CmdLine[$e] == "-pr" Then
00045  |  |    If $CmdLine[$e + 1] <> "-s" And $CmdLine[$e + 1] <> "-r" And $CmdLine[$e + 1] <> "-p" And $CmdLine[$e + 1] <> "-ps" And $CmdLine[$e + 1] <> "-aou" And $CmdLine[$e + 1] <> "-recu" Then $charreppf = $CmdLine[$e + 1]
00046  |  +-EndIf
00047  |  +-If $CmdLine[$e] == "-ps" Then
00048  |  |    If $CmdLine[$e + 1] <> "-s" And $CmdLine[$e + 1] <> "-r" And $CmdLine[$e + 1] <> "-pr" And $CmdLine[$e + 1] <> "-p" And $CmdLine[$e + 1] <> "-aou" And $CmdLine[$e + 1] <> "-recu" Then $charsecpf = $CmdLine[$e + 1]
00049  |  +-EndIf
00050  |  +-If $CmdLine[$e] == "-recu" Then
00051  |  |  +-If $CmdLine[$e + 1] <> "-s" And $CmdLine[$e + 1] <> "-p" And $CmdLine[$e + 1] <> "-pr" And $CmdLine[$e + 1] <> "-ps" And $CmdLine[$e + 1] <> "-aou" And $CmdLine[$e + 1] <> "-r" Then
00052  |  |  |    If $CmdLine[$e + 1] == 1 Or $CmdLine[$e + 1] = "true" Then $recu = 1
00053  |  |  |    If $CmdLine[$e + 1] == 0 Or $CmdLine[$e + 1] = "false" Then $recu = 0
00054  |  |  +-EndIf
00055  |  +-EndIf
00056  |  +-If $CmdLine[$e] == "-aou" Then
00057  |  |  +-If $CmdLine[$e + 1] <> "-s" And $CmdLine[$e + 1] <> "-r" And $CmdLine[$e + 1] <> "-pr" And $CmdLine[$e + 1] <> "-p" And $CmdLine[$e + 1] <> "-ps" And $CmdLine[$e + 1] <> "-recu" Then
00058  |  |  |    If $CmdLine[$e + 1] == 1 Or $CmdLine[$e + 1] = "true" Then $aeouue = True
00059  |  |  |    If $CmdLine[$e + 1] == 0 Or $CmdLine[$e + 1] = "false" Then $aeouue = False
00060  |  |  +-EndIf
00061  |  +-EndIf
00062  |    ;And $CmdLine[$e + 1] <> "-recu"
00063  |    ;msgbox("","",$CmdLine[$e] & @LF & $cmdpfad & @LF & $charsec & @LF & $charrep)And $CmdLine[$e + 1] <> "-aou"
00064  |    
00065  +-Next
00066    If $charrep == "" Then $charrep = "_"
00067    If $charsec == "" Then $charsec = " "
00068    If $charreppf == "" Then $charreppf = "_"
00069    If $charsecpf == "" Then $charsecpf = " "
00070    If $cmdpfad == "" Then ConsoleWrite(@CRLF & @CRLF & "Es wurde kein Pfad angegeben! Tippen sie " & @ScriptName & " -h oder -help ein um Hilfe zu bekommen")
00071    
00072    
00073    
00074  +-If $cmdpfad <> "" And FileExists($cmdpfad) Then
00075  |    
00076  |    ;ConsoleWrite("Benenne "& $arvz[$e] & $arda[$i] & " >> " & $arvz[$e] & StringUpper($arda[$i]))
00077  |    
00078  |    Global $ardae, $movedatei, $ardateiendungkurzel = "", $ardateiendung, $movecangename, $movepfad, $movepfadname, $movepfadcangename, $movevorpfad, $aktuellerOrdner, $moveOrdnernamechange, $no_other_pfad
00079  |    Global $arvz = _RecursiveFileListToArray($cmdpfad, 2, 1, $recu)
00080  |    Global $arda = _RecursiveFileListToArray($cmdpfad, 1, 1, $recu)
00081  |    
00082  |    Global $File = FileOpen("C:\Name_Change.log", 9)
00083  |    ;_ArrayDisplay($arvz)
00084  |    ;for $e = 1 to UBound($arvz)-1 step + 1
00085  |  +-For $i = 1 To UBound($arda) - 1 Step +1
00086  |  |    
00087  |  |    $ardae = StringSplit($arda[$i], "\")
00088  |  |    $movedatei = $ardae[UBound($ardae) - 1]
00089  |  |    $ardateiendung = StringSplit($movedatei, ".", 2)
00090  |  |  +-If UBound($ardateiendung) > 1 Then
00091  |  |  |    $ardateiendungkurzel = "." & $ardateiendung[UBound($ardateiendung) - 1]
00092  |  |  |    $movedatei = StringReplace($movedatei, $ardateiendungkurzel, "")
00093  |  |  +-EndIf
00094  |  |    
00095  |  |    ;MsgBox("","",UBound($ardateiendung) & @LF & $ardateiendungkurzel& @LF & $movedatei)
00096  |  |    $movecangename = StringLower($movedatei)
00097  |  |    ;MsgBox("","",$movecangename & @LF & StringRegExpReplace($movecangename,$charsec,$charrep) & @lf & StringReplace($movecangename,$charsec,$charrep))
00098  |  |    ;$movecangename = StringRegExpReplace($movecangename,$charsec,$charrep)
00099  |  |    $movecangename = StringReplace($movecangename, $charsec, $charrep)
00100  |  |  +-If $aeouue = True Then
00101  |  |  |    $movecangename = StringReplace($movecangename, "", "ue")
00102  |  |  |    $movecangename = StringReplace($movecangename, "", "oe")
00103  |  |  |    $movecangename = StringReplace($movecangename, "", "ae")
00104  |  |  |    $movecangename = StringReplace($movecangename, "", "ss")
00105  |  |  |    $movecangename = StringReplace($movecangename, "&", "und")
00106  |  |  +-EndIf
00107  |  |    
00108  |  |    
00109  |  |    $movepfad = StringReplace($arda[$i], $ardae[UBound($ardae) - 1], "")
00110  |  |    
00111  |  |    ;MsgBox("","",$movepfad & $movedatei  & @lf & $movepfad & $movecangename)
00112  |  |    ConsoleWrite(@CRLF & @CRLF & "Benenne " & @CRLF & $movepfad & $movedatei & $ardateiendungkurzel & @CRLF & " >> Zu >> " & @CRLF & $movepfad & $movecangename & $ardateiendungkurzel)
00113  |  |    FileWrite($File, @CRLF & @CRLF & "Benenne " & @CRLF & $movepfad & $movedatei & $ardateiendungkurzel & @CRLF & " >> Zu >> " & @CRLF & $movepfad & $movecangename & $ardateiendungkurzel)
00114  |  |    FileMove($movepfad & $movedatei & $ardateiendungkurzel, $movepfad & $movecangename & $ardateiendungkurzel, 1)
00115  |  |    ;DirMove($movevorpfad & $movepfadname, $movevorpfad & $movepfadcangename,1)
00116  |  |    
00117  |  |    ;Next
00118  |  +-Next
00119  |  +-If $recu = 0 Then
00120  |  |    $no_other_pfad = True
00121  |  +-Else
00122  |  |    $no_other_pfad = False
00123  |  +-EndIf
00124  |    
00125  |  +-If $no_other_pfad = False Then
00126  |  |  +-If $recu == 1 Then
00127  |  |  |  +-For $i = UBound($arvz) - 1 To 1 Step -1
00128  |  |  |  |    
00129  |  |  |  |    $ardae = StringSplit($arvz[$i], "\")
00130  |  |  |  |    ;_ArrayDisplay($ardae)
00131  |  |  |  |    $aktuellerOrdner = $ardae[UBound($ardae) - 2]
00132  |  |  |  |    $moveOrdnernamechange = StringLower($aktuellerOrdner)
00133  |  |  |  |    ;$moveOrdnernamechange = StringRegExpReplace($moveOrdnernamechange, $charsecpf, $charreppf)
00134  |  |  |  |    $moveOrdnernamechange = StringReplace($moveOrdnernamechange, $charsecpf, $charreppf)
00135  |  |  |  |    ;$moveOrdnernamechange = StringRegExpReplace($moveOrdnernamechange,"","ue")
00136  |  |  |  |  +-If $aeouue = True Then
00137  |  |  |  |  |    $moveOrdnernamechange = StringReplace($moveOrdnernamechange, "", "ue")
00138  |  |  |  |  |    $moveOrdnernamechange = StringReplace($moveOrdnernamechange, "", "oe")
00139  |  |  |  |  |    $moveOrdnernamechange = StringReplace($moveOrdnernamechange, "", "ae")
00140  |  |  |  |  |    $moveOrdnernamechange = StringReplace($moveOrdnernamechange, "", "ss")
00141  |  |  |  |  |    $moveOrdnernamechange = StringReplace($moveOrdnernamechange, "&", "und")
00142  |  |  |  |  +-EndIf
00143  |  |  |  |    ;$movepfad = StringRegExpReplace($arvz[$i],$aktuellerOrdner & "\","",2)
00144  |  |  |  |    $movepfad = StringReplace($arvz[$i], $aktuellerOrdner & "\", "")
00145  |  |  |  |    
00146  |  |  |  |    ;MsgBox("","",$movepfad & $aktuellerOrdner &@lf& $movepfad & $moveOrdnernamechange)
00147  |  |  |  |    ConsoleWrite(@CRLF & @CRLF & "Benenne " & @CRLF & $movepfad & $aktuellerOrdner & @CRLF & " >> Zu >> " & @CRLF & $movepfad & $moveOrdnernamechange)
00148  |  |  |  |    FileWrite($File, @CRLF & @CRLF & "Benenne " & @CRLF & $movepfad & $aktuellerOrdner & @CRLF & " >> Zu >> " & @CRLF & $movepfad & $moveOrdnernamechange)
00149  |  |  |  |    
00150  |  |  |  |    DirMove($movepfad & $aktuellerOrdner, $movepfad & $moveOrdnernamechange, 1)
00151  |  |  |  |    
00152  |  |  |  +-Next
00153  |  |  +-EndIf
00154  |  |    $ardae = StringSplit($arvz[1], "\")
00155  |  |    ;_ArrayDisplay($ardae)
00156  |  |    $aktuellerOrdner = $ardae[UBound($ardae) - 3]
00157  |  |    ;MsgBox("","",$aktuellerOrdner)
00158  |  |    $moveOrdnernamechange = StringLower($aktuellerOrdner)
00159  |  |    ;$moveOrdnernamechange = StringRegExpReplace($moveOrdnernamechange, $charsecpf, $charreppf)
00160  |  |    $moveOrdnernamechange = StringReplace($moveOrdnernamechange, $charsecpf, $charreppf)
00161  |  |  +-If $aeouue = True Then
00162  |  |  |    $moveOrdnernamechange = StringReplace($moveOrdnernamechange, "", "ue")
00163  |  |  |    $moveOrdnernamechange = StringReplace($moveOrdnernamechange, "", "oe")
00164  |  |  |    $moveOrdnernamechange = StringReplace($moveOrdnernamechange, "", "ae")
00165  |  |  |    $moveOrdnernamechange = StringReplace($moveOrdnernamechange, "", "ss")
00166  |  |  |    $moveOrdnernamechange = StringReplace($moveOrdnernamechange, "&", "und")
00167  |  |  +-EndIf
00168  |  |    ;$moveOrdnernamechange = StringRegExpReplace($moveOrdnernamechange,"","ue")
00169  |  |    ;$movepfad = StringRegExpReplace($arvz[$i],$aktuellerOrdner & "\","",2)
00170  |  |    $movepfad = StringReplace($arvz[1], $aktuellerOrdner & "\" & $ardae[UBound($ardae) - 2] & "\", "")
00171  |  |    ;MsgBox("","",$movepfad )
00172  |  |    
00173  |  |    ;MsgBox("","",$movepfad & $aktuellerOrdner &@lf& $movepfad & $moveOrdnernamechange)
00174  |  |    ConsoleWrite(@CRLF & @CRLF & "Benenne " & @CRLF & $movepfad & $aktuellerOrdner & @CRLF & " >> Zu >> " & @CRLF & $movepfad & $moveOrdnernamechange & @CRLF & @CRLF & "Vielen Dank, dass Sie das Programm Benutzen!" & @CRLF & "Und an ELiTE durch dessen Wunsch dies Programm" & @CRLF & "entstanden ist" & @CRLF & @CRLF & "BuFF" & @CRLF & @CRLF)
00175  |  |    FileWrite($File, @CRLF & @CRLF & "Benenne " & @CRLF & $movepfad & $aktuellerOrdner & @CRLF & " >> Zu >> " & @CRLF & $movepfad & $moveOrdnernamechange & @CRLF & @CRLF & "Vielen Dank, dass Sie das Programm Benutzen!" & @CRLF & "Und an ELiTE durch dessen Wunsch dies Programm" & @CRLF & "entstanden ist" & @CRLF & @CRLF & "BuFF" & @CRLF & @CRLF)
00176  |  |    
00177  |  |    DirMove($movepfad & $aktuellerOrdner, $movepfad & $moveOrdnernamechange, 1)
00178  |  |    FileClose($File)
00179  |  |    
00180  |  |    Exit
00181  |  +-Else
00182  |  |    $ardae = StringSplit($cmdpfad, "\")
00183  |  |    ;msgbox("","",$cmdpfad)
00184  |  |    $aktuellerOrdner = $ardae[UBound($ardae) - 1]
00185  |  |    
00186  |  |    ;MsgBox("","",$aktuellerOrdner)
00187  |  |    $moveOrdnernamechange = StringLower($aktuellerOrdner)
00188  |  |    ;$moveOrdnernamechange = StringRegExpReplace($moveOrdnernamechange, $charsecpf, $charreppf)
00189  |  |    $moveOrdnernamechange = StringReplace($moveOrdnernamechange, $charsecpf, $charreppf)
00190  |  |  +-If $aeouue = True Then
00191  |  |  |    $moveOrdnernamechange = StringReplace($moveOrdnernamechange, "", "ue")
00192  |  |  |    $moveOrdnernamechange = StringReplace($moveOrdnernamechange, "", "oe")
00193  |  |  |    $moveOrdnernamechange = StringReplace($moveOrdnernamechange, "", "ae")
00194  |  |  |    $moveOrdnernamechange = StringReplace($moveOrdnernamechange, "", "ss")
00195  |  |  |    $moveOrdnernamechange = StringReplace($moveOrdnernamechange, "&", "und")
00196  |  |  +-EndIf
00197  |  |    ;$moveOrdnernamechange = StringRegExpReplace($moveOrdnernamechange,"","ue")
00198  |  |    ;MsgBox("","",$moveOrdnernamechange)
00199  |  |    ;$movepfad = StringRegExpReplace($arvz[$i],$aktuellerOrdner & "\","",2)
00200  |  |    $movepfad = StringReplace($cmdpfad, $aktuellerOrdner, "")
00201  |  |    
00202  |  |    DirMove($movepfad & $aktuellerOrdner, $movepfad & $moveOrdnernamechange, 1)
00203  |  |    ConsoleWrite(@CRLF & @CRLF & "Benenne " & @CRLF & $movepfad & $aktuellerOrdner & @CRLF & " >> Zu >> " & @CRLF & $movepfad & $moveOrdnernamechange & @CRLF & @CRLF & "Vielen Dank, dass Sie das Programm Benutzen!" & @CRLF & "Und an ELiTE durch dessen Wunsch dies Programm" & @CRLF & "entstanden ist" & @CRLF & @CRLF & "BuFF" & @CRLF & @CRLF)
00204  |  |    FileWrite($File, @CRLF & @CRLF & "Benenne " & @CRLF & $movepfad & $aktuellerOrdner & @CRLF & " >> Zu >> " & @CRLF & $movepfad & $moveOrdnernamechange & @CRLF & @CRLF & "Vielen Dank, dass Sie das Programm Benutzen!" & @CRLF & "Und an ELiTE durch dessen Wunsch dies Programm" & @CRLF & "entstanden ist" & @CRLF & @CRLF & "BuFF" & @CRLF & @CRLF)
00205  |  |    
00206  |  |    ;MsgBox("","",$movepfad & $aktuellerOrdner &@lf& $movepfad & $moveOrdnernamechange)
00207  |  |    FileClose($File)
00208  |  |    Exit
00209  |  +-EndIf
00210  +-Else
00211  |    ConsoleWrite(@CRLF & @CRLF & "Pfad existiert nicht (mehr)!" & @CRLF & @CRLF)
00212  |    ConsoleWrite(@CRLF & @CRLF & "Syntax: Programmname Pfad" & @CRLF & @CRLF & "Z.B. C:\" & @ScriptName & " -p C:\User\xyz\Bilder " & @CRLF & @CRLF & "Geben sie C:\" & @ScriptName & " -h ein um Hilfe zu erhalten")
00213  |    Exit
00214  +-EndIf
00215    
00216  +-Func _errot()
00217  |    ConsoleWrite(@CRLF & @CRLF & "Fehler Zu wenig Parameter!" & @CRLF & @CRLF)
00218  |    ConsoleWrite(@CRLF & @CRLF & "Syntax: Programmname Pfad" & @CRLF & @CRLF & "Z.B. C:\" & @ScriptName & " -p C:\User\xyz\Bilder " & @CRLF & @CRLF & "Geben sie C:\" & @ScriptName & " -h ein um Hilfe zu erhalten")
00219  |    Exit
00220  +-EndFunc   ;==>_errot

======================
=== xref reports =====
======================

== User functions =================================================================================================
                          Func
Function name             Row     Referenced at Row(s)
========================= ====== ==================================================================================
_errot                    00216  00010

#### indicates that this specific variable only occurs one time in the script.
---- indicates that this specific variable isn't declared with Dim/Local/Global/Const.

== Variables ======================================================================================================
Variable name             Dim   Used in Row(s)
========================= ===== ===================================================================================
$CmdLine                  ----- 00010 00012 00013 00034 00035 00036 00038 00039 00041 00042 00044 00045 00047 00048 
                                00050 00051 00052 00053 00056 00057 00058 00059
$File                     00082 00113 00148 00175 00178 00204 00207
$aeouue                   00008 00058 00059 00100 00136 00161 00190
$aktuellerOrdner          00078 00131 00132 00144 00147 00148 00150 00156 00158 00170 00174 00175 00177 00184 00187 
                                00200 00202 00203 00204
$arda                     00080 00085 00087 00109
$ardae                    00078 00087 00088 00109 00129 00131 00154 00156 00170 00182 00184
$ardateiendung            00078 00089 00090 00091
$ardateiendungkurzel      00078 00091 00092 00112 00113 00114
$arvz                     00079 00127 00129 00144 00154 00170
$charrep                  00008 00036 00066 00099
$charreppf                00008 00045 00068 00134 00160 00189
$charsec                  00008 00039 00067 00099
$charsecpf                00008 00048 00069 00134 00160 00189
$cmdpfad                  00008 00042 00070 00074 00079 00080 00182 00200
$e                        ----- 00012 00013 00034 00035 00036 00038 00039 00041 00042 00044 00045 00047 00048 00050 
                                00051 00052 00053 00056 00057 00058 00059
$i                        ----- 00085 00087 00109 00127 00129 00144
$moveOrdnernamechange     00078 00132 00134 00137 00138 00139 00140 00141 00147 00148 00150 00158 00160 00162 00163 
                                00164 00165 00166 00174 00175 00177 00187 00189 00191 00192 00193 00194 00195 00202 
                                00203 00204
$movecangename            00078 00096 00099 00101 00102 00103 00104 00105 00112 00113 00114
$movedatei                00078 00088 00089 00092 00096 00112 00113 00114
$movepfad                 00078 00109 00112 00113 00114 00144 00147 00148 00150 00170 00174 00175 00177 00200 00202 
                                00203 00204
#### $movepfadcangename   00078
#### $movepfadname        00078
#### $movevorpfad         00078
$no_other_pfad            00078 00120 00122 00125
$recu                     00008 00052 00053 00079 00080 00119 00126
@CRLF                     ----- 00014 00015 00016 00017 00018 00019 00020 00021 00022 00023 00024 00025 00026 00070 
                                00112 00113 00147 00148 00174 00175 00203 00204 00211 00212 00217 00218
@ScriptName               ----- 00015 00023 00070 00212 00218
