Renaming a file without opening it

[Chimaera]

Im at a list on how to do this

I have a file that has unwanted charaters in it and i want to edit the filename without opening the file

I cant think of what the hell to use for this?

I think filemove will help but how do i selectively remove the unwanted characters

This is an example name

This.Is.My.filename.x666-Test.nzb

I need to remove " . - " and replace them with a space instead

But it cant remove the normal full stop before the nzb

Like this

This Is My filename x666 Test.nzb

I cant think of a FileOpen Dialog type of select to target the file without opening it

[JohnOne]

Well you could split the filename by "." and re-write adding "." only before the last element.

There are many many more ways, StringRegExp for example is one.

[guinness]

This can be simplified, but for the purposes of using 99.99% AutoIt native functions, here >>

Local $sFilePath = 'C:This.Is.My.filename.x666-Test.nzb'
Local $sExtensionDot = StringInStr($sFilePath, '.', 2, -1) - 1
Local $sFileString = StringLeft($sFilePath, $sExtensionDot)
Local $sFileExtension = StringTrimLeft($sFilePath, $sExtensionDot)

ConsoleWrite('String: ' & $sFileString & @CRLF)
ConsoleWrite('Extension: ' & $sFileExtension & @CRLF)

Local $sFilePath_New = StringRegExpReplace($sFileString, '[.-]', ' ')  & $sFileExtension
ConsoleWrite('NewPath: ' & $sFilePath_New & @CRLF)
; FileMove($sFilePath, $sFilePath_New)

Edited December 10, 2012 by guinness

[UEZ]

Might fit for your particular filename:

$sFile = @ScriptDir & "This.Is.My.filename.x666-Test.nzb"
$sNew = StringRegExpReplace($sFile, "(.*).*", "$1") & StringRegExpReplace(StringTrimRight(StringRegExpReplace($sFile, ".*(.*)", "$1"), 4), "(W+)", " ") & StringRight($sFile, 4)
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $sNew = ' & $sNew & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console
;~ FileMove($sFile, $sNew)

Br,

UEZ

Edited December 10, 2012 by UEZ

[Chimaera]

Thx guys i realised im not looking at the bigger picture it needs to be only letter [upper and lower] and numbers allowed.

I assumed it was only those 2 but in hindsight it could be other ones as well

Thanks for chipping in and sorry for not giving correct info

[Melba23]

Chimaera,

Or like this:

$sName = "This.Is.My.filename.x666-Test.nzb"

$sNew_Name = StringRegExpReplace($sName, "(?i)(-|.(?!nzb))", " ")

MsgBox(0, "Result", $sNew_Name)

SRE decode:

(?i)      - case insensitive (for the nzb bit)
(         - look for either
-         - dashes
|         - or
.(?!nzb) - a dot not followed by "nzb"
)         -

And replace with space.

M23

Edit: Just seen your post above - so this is obviously not the solution.

Edited December 10, 2012 by Melba23

[Chimaera]

Ok well i have got this far but ive lost the plot here somewhere.

Its supposed to read all the files in the folder then apply the change to them.

I know the regex is wrong because of the earlier fault but it should still work..

expandcollapse popup

#region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_res_requestedExecutionLevel=requireAdministrator
#endregion ;**** Directives created by AutoIt3Wrapper_GUI ****
#cs ----------------------------------------------------------------------------
    AutoIt Version: 3.3.8.0
    Author:      Chimaera
    Script Function: NZB File Renamer
#ce ----------------------------------------------------------------------------
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <File.au3>
; ------------------------------------------------------------------------------
#RequireAdmin
; ------------------------------------------------------------------------------
#AutoIt3Wrapper_AU3Check_Parameters=-d -w 1 -w 2 -w 3 -w- 4 -w 5 -w 6 -w- 7

Global $button1, $button2, $sNew_Name
Local $GUI_Start = GUICreate(" NZB File Renamer ", 250, 250, -1, -1, BitXOR($GUI_SS_DEFAULT_GUI, $WS_MINIMIZEBOX))

;~ $button1 = GUICtrlCreateButton(" Choose File ", 20, 50, 130, 35)
;~ GUICtrlSetFont(-1, 11, 550, -1, "Tahoma")
$button2 = GUICtrlCreateButton(" Change File ", 20, 100, 130, 35)
GUICtrlSetFont(-1, 11, 550, -1, "Tahoma")
GUISetState()

Local $nMsg = 0
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
;~         Case $button1
;~             Local $sNzbFile = FileOpenDialog("Choose File", @ScriptDir, " NZB (*.nzb)", 4)
;~             ConsoleWrite($sNzbFile & @CRLF)
;~             If @error Then MsgBox(4096, "", "No File(s) chosen")
        Case $button2
            _NzbRename()
            MsgBox(4096, "", " File Name(s) Were Changed ")
    EndSwitch
WEnd

Func _NzbRename()
    Local $sNzbString = _FileListToArray( @ScriptDir, "*.nzb", 1)
    Local $aNzbList = StringSplit($sNzbString, "|")
;~         _ArrayDisplay( $aNzbList)
    For $i = 1 To $aNzbList[0]
        If @error = 0 Then
                $sNew_Name = StringRegExpReplace($sNzbFile, "(?i)(-|.(?!nzb))", " ")
                FileMove(@ScriptDir & "" & $sNzbFile, $sNew_Name, 1)
            Sleep(100)
        EndIf
    Next
EndFunc   ;==> _NzbRename()

[guinness]

Could you provide a before and after of what you expect. Multiple examples would help.

[JohnOne]

$sNzbFile is not declared.

[Chimaera]

Could you provide a before and after of what you expect. Multiple examples would help.

Ok ill try again

Origanal filename like this

This.Is.My.filename.x666-Test.nzb

But needs to be only Letters (lower and Upper case) and numbers

New name should be like this

This Is My filename x666 Test.nzb

Which should be done with this

Func _NzbRename()
Local $sNzbString = _FileListToArray( @ScriptDir, "*.nzb", 1) ; read all the .nzb into array
Local $aNzbList = StringSplit($sNzbString, "|") ; split them into seperate
;~ _ArrayDisplay( $aNzbList)
For $i = 1 To $aNzbList[0]
If @error = 0 Then
$sNew_Name = StringRegExpReplace($sNzbList[$i], "(?i)(-|.(?!nzb))", " ") ; Perform the regex on each file
FileMove(@ScriptDir & "" & $sNzbFile, $sNew_Name, 1) ; use file move to make the change in the files, old name to new name
Sleep(100)
EndIf
Next
EndFunc ;==> _NzbRename()

Its my fault ive confused you because i started off with the wrong assumptions in the first place

[kylomas]

chimaera,

This is wrong

Func _NzbRename()
    Local $sNzbString = _FileListToArray( @ScriptDir, "*.nzb", 1)
    Local $aNzbList = StringSplit($sNzbString, "|")
;~         _ArrayDisplay( $aNzbList)
    For $i = 1 To $aNzbList[0]
        If @error = 0 Then
                $sNew_Name = StringRegExpReplace($sNzbFile, "(?i)(-|.(?!nzb))", " ")
                FileMove(@ScriptDir & "" & $sNzbFile, $sNew_Name, 1)
            Sleep(100)
        EndIf
    Next
EndFunc   ;==> _NzbRename()

filelisttoarray returns an array.

Try this (not tested)

Func _NzbRename()
    Local $sNzblist = _FileListToArray( @ScriptDir, "*.nzb", 1)
;~         _ArrayDisplay( $aNzbList)
    For $i = 1 To $aNzbList[0]
        If @error = 0 Then
                $sNew_Name = StringRegExpReplace($sNzblist[$i], "(?i)(-|.(?!nzb))", " ")
                FileMove(@ScriptDir & "" & $sNzblist[$i], $sNew_Name, 1)
            Sleep(100)
        EndIf
    Next
EndFunc   ;==> _NzbRename()Func _NzbRename()

Also, if you want to change all non-word chars to psaces you might try this pattern (?i)(W(?!nzb))

kylomas

[Chimaera]

With a bit of fooling around this works

Func _NzbRename()
    $aNzbList = _FileListToArray(@ScriptDir, "*.nzb", 1)
;~       _ArrayDisplay( $aNzbList)
    For $i = 1 To $aNzbList[0]
        $sNew_Name = StringRegExpReplace($aNzbList[$i], "(?i)(W(?!nzb))", " ")
        FileMove(@ScriptDir & "" & $aNzbList[$i], $sNew_Name, 1)
        Sleep(100)
    Next
EndFunc   ;==>_NzbRename

The only thing i have noticed is if the filename has a". " ie a fullstop with a space straight after you end up with a double space.

But thats minor in the scheme of things

Thanks for all the help guys

[Malkey]

Thx guys i realised im not looking at the bigger picture it needs to be only letter [upper and lower] and numbers allowed.

I assumed it was only those 2 but in hindsight it could be other ones as well

Thanks for chipping in and sorry for not giving correct info

Just in case "-" and "." are not the only two characters that need to be replaced with a space.

$sName = "This.Is.My?filename.x666-Test.nzb"

$sNew_Name = StringRegExpReplace($sName, "([^A-Za-z0-9.]|.(?!w{3,4}$))", " ") ; Assuming any 3 or 4 "word" character file extension.

$sNew_Name2 = StringRegExpReplace($sName, "(?i)([^a-z0-9.]|.(?!nzb))", " ") ; Use if specific "nzb" file extension required.

MsgBox(0, "Result", $sNew_Name & @CRLF & $sNew_Name2, 6)

[czardas]

The only thing i have noticed is if the filename has a". " ie a fullstop with a space straight after you end up with a double space.

But thats minor in the scheme of things

Strip out the double WS with StringStripWS after the RegExp.

[Chimaera]

Strip out the double WS with StringStripWS after the RegExp.

Like this you mean

StringStripWS( $aNzbList[$i], 4)

but that removes the double space completly does it not?

I need to still have 1 space between not 2.

Without going into too much detail

How is it you and Malkey have done two different setups for the regex for the same task?

Yours

(?i)(W(?!nzb))

Malkey

(?i)([^a-z0-9.]|.(?!nzb))

Edited December 11, 2012 by Chimaera

[Melba23]

Chimaera,

SRE decode:

W      - match any non-word (a-z, A-Z, 0-9 or underscore)
(?!nzb)   - not followed by "nzb"

[^a-z0-9.] - match anything which is not (becasue of leading ^) alphanumeric or a dot
|        - or
.(?!nzb))  - a dot not followed by "nzb"

All clear?

M23

[Chimaera]

Ok thx

So why would it not be this?

(?i)([^a-zA-Z0-9.]|.(?!nzb))

is a-z non case specific?

[Melba23]

Chimaera,

Go read that Help file:

(?i) : Case-insensitivity flag. [...] It tells the regex engine to do case-insensitive matching from that point on.

So when used with "a-z" it covers both lower- and upper-case characters.

M23

[czardas]

Like this you mean

StringStripWS( $aNzbList[$i], 4)

but that removes the double space completly does it not?

I need to still have 1 space between not 2.

Try it and see.

---

Another thing that I would do is remove the file extension before the regexp and add it again after (this will simplify the regexp). Then you will not be limited to a particular file type, and (more importantly) you won't encounter problems in cases where the extension appears elsewhere in the file name. Of course there are other methods to achieve the same results, but this is easier to implement than using a single complicated regexp.

Edited December 11, 2012 by czardas

[Chimaera]

Thanks for the help on this guys and the regex is working well

One other thought with this function im making

Func _NzbRename()
$aNzbList = _FileListToArray(@ScriptDir, "*.nzb", 1)
_ArrayDisplay( $aNzbList)
If $aNzbList = "" Then
MsgBox(64, "", " No Files To Change ", 3)
Exit
Else
Select
Case $aNzbList = 1 ;<<< Can this be accessed like this? Im basically saying does the array have only 1 entry
the regex etc after here

Basically if there is only one file in the array i want to do one thing but if there is 2 or more i will do another.

I also tried $i =1

This as i have it doesn't work