Renaming query: how to keep e.g. 1a, 1b when renumbering

[tomos]

Files (photos) are named numerically, but some are with 'a' & 'b' appended to indicate front & back of same photo.
I want to renumber them sequentially, but again the 'a's and 'b's  use the (new) number twice.

e.g. currently:

0822.jpg
0822a.jpg
0823.jpg

• All files have leading zeros i.e. four digits in the number.
• Occasionally files have text after the number, this always following an underscore e.g.

1234_text_added_here
=> there should be no spaces (I can ensure this if necessary by first replacing space with underscore)

As said I want to renumber them sequentially, but again the 'a's and 'b's use the same (new) number e.g. the above list would become

0001
0001a
0002

I would also like to be able to indicate the starting number to use.

I am using directory opus which allows regex (of which I know absolutely nothing).
Dopus's wildcard rename allows sequential renumbering, but I lose the 1a 1b (they would simply become 1a, 2b, etc.
[edit] I dont think dopus wildcard rename can cope with stripping the number & adding a new one -- I would use a different renamer, but I have sorted the files manually in Dopus -- so I'm left with the regex option or one of the scripts mentioned in next post -- at this stage I dont care about losing the 1, 1a, -- simple sequential renumbering would be fine [/edit]

TIA,

[tomos]

I see dopus also does Scripts:

• VBA script
• JScript

Renaming query: how to keep e.g. 1a, 1b when renumbering

and the regular rename dialogue

Renaming query: how to keep e.g. 1a, 1b when renumbering

[rgdot]

Dont have it currently to test but something like Bulk Rename Utility could be set to ignore/not touch after X positions, so after 4 in your case. Not sure if logic would work but it might.

[tomos]

Dont have it currently to test but something like Bulk Rename Utility could be set to ignore/not touch after X positions, so after 4 in your case. Not sure if logic would work but it might.

-rgdot (January 30, 2018, 11:06 AM)

I can do that as well with dopus Wildcard rename -- but it then

AFAICS Bulk Rename doesnt recognise that
0810
0810a

should become e.g.
0001
0001a

but will rename them as

0001
0002a

[Lintalist]

You can try this AHK script, a quick test shows it here. It will skip files if you only have a/b.

...
0824.jpg ; 0001
0825a.jpg ; will be skipped
0825b.jpg ; will be skipped
0826.jpg ; 0002
...

First it looks for files without a or b.jpg, then copy the files and while it does that tries to see if there are any matching a/b files and if so copy again using the same number.

I'm not a fan of renaming files in script so I've setup a source/target here and it copies so you can check manually before deciding if you want to delete the source files.

Code: Autohotkey [Select]

1. sourcefiles:=""
2. source:=A_ScriptDir "\source\"
3. target:=A_ScriptDir "\target\"
4.  
5. Loop, %source%*.jpg
6.         {
7.          If !RegExMatch(A_LoopFileName,"i)a|b\.jpg") ; we don't to know *a.jpg and *b.jpg files now
8.                 sourcefiles .= A_LoopFileName "`n"
9.         }
10.  
11. Sort, sourcefiles, D`n ;
12.  
13. sourcefiles:=trim(sourcefiles,"`n")
14.  
15. ; MsgBox % sourcefiles
16.  
17. Loop, parse, sourcefiles, `n, `r
18.         {
19.          SplitPath, A_LoopField, OutFileName, , , OutNameNoExt
20.          counter:=SubStr("000" A_Index, -3)
21.          FileCopy, %source%%OutFileName%, %target%%counter%.jpg
22.          IfExist, %source%%OutNameNoExt%a.jpg
23.                 FileCopy, %source%%OutNameNoExt%a.jpg, %target%%counter%a.jpg
24.          IfExist, %source%%OutNameNoExt%b.jpg
25.                 FileCopy, %source%%OutNameNoExt%b.jpg, %target%%counter%b.jpg
26.          MsgBox %source%%OutNameNoExt%.jpg     
27.         }

[tomos]

Hi Lintalist
many thanks --
first, I dont know will this work in the sense I want it to follow a particular sort in the file manager (I'm afraid I didnt emphasise that aspect initially)

I saved above as AHK file, added correct paths:

Code: Autohotkey [Select]

1. source:=A_ScriptDir "G:\User\xxxx\Family\Scans\Final_Sorting\xyz\"
2. target:=A_ScriptDir "G:\User\xxxx\Family\Scans\Final_Sorting\"

and ran the script, and nothing happens.

I notice:
when I copy from your code from your post, there is a tab-width before each line --
wondering could this be causing it to fail ?

[Lintalist]

This should do it

Code: Autohotkey [Select]

1. source:="G:\User\xxxx\Family\Scans\Final_Sorting\xyz\"
2. target:="G:\User\xxxx\Family\Scans\Final_Sorting\"

A_ScriptDir is also a path, so the way you had it it would be C:\temp\G:\User\ or something like that (where c:\temp\ was the script folder). Tabs/space have no influence in the scripts. (unless something goes wrong when copying the code from the forum but I doubt it). BUT...

You can do it differently, in your filemanager sort them the way you want, I trust your filemanager has a way to copy the list of (selected) files to a file or clipboard (TC has, so Dopus must have it too). Save it to a file, say "source.txt"

Code: Autohotkey [Select]

1. sourcefiles:="" ; don't edit this, you can omit this or leave it empty.
2.  
3. ; source.txt is a list of files saved in the order you want them to be processed, sorted in your filemanager
4. ; replace "source.txt" below with "full path to source.txt" sans quotes
5. FileRead, sourcefiles, source.txt
6.  
7. source:="G:\User\xxxx\Family\Scans\Final_Sorting\xyz\"
8. target:="G:\User\xxxx\Family\Scans\Final_Sorting\"
9.  
10. sourcefiles:=trim(sourcefiles,"`n")
11.  
12. ; remove ; before msgbox below to confirm it has the proper filenames
13. ; MsgBox % sourcefiles
14.  
15. Loop, parse, sourcefiles, `n, `r
16.         {
17.          If RegExMatch(A_LoopField,"i)a|b\.jpg") ; if we have a|b.jpg skip it
18.                 continue
19.          SplitPath, A_LoopField, OutFileName, , , OutNameNoExt
20.          counter:=SubStr("000" A_Index, -3)
21.          ; remove ; before msgbox below to "see" what it tries to find
22.          ; MsgBox SourceFile: %source%%OutFileName%`nTargetFile: %target%%counter%.jpg
23.          FileCopy, %source%%OutFileName%, %target%%counter%.jpg
24.          IfExist, %source%%OutNameNoExt%a.jpg
25.                 FileCopy, %source%%OutNameNoExt%a.jpg, %target%%counter%a.jpg
26.          IfExist, %source%%OutNameNoExt%b.jpg
27.                 FileCopy, %source%%OutNameNoExt%b.jpg, %target%%counter%b.jpg
28.         }

Fingers crossed :-)

Edit: Source.txt must be in the same folder as the script, if it is not adjust it to full path:

FileRead, sourcefiles, G:\User\xxxx\Family\Scans\Final_Sorting\xyz\source.txt


Edit2: source.txt is just a list of filenames, no path, added source:="" line back in the script

[tomos]

I added source folderpath to it as well as the target filepath -- or should I simply run the ahk file from the source folder?
EDIT// I also tried just adding path of source.txt to source - no joy there either //EDIT

I added a source.txt file to the source folder, with a list of files as sorted e.g.
0869.jpg
0871a.jpg
0880.jpg
0886.jpg
0889.jpg
0902.jpg

When I run the ahk script, nothing happens (I know it does get 'read', as I mistakenly didnt copy the last bracket and got an error message about that -- no more feedback once that was corrected)

[Lintalist]

I'd deleted the source:= line I see, added it in the script above, the source.txt should like you have posted it as above e.g. just filenames, no paths.

Fingers crossed 2 :-)

[tomos]

Still not working:

I've added:

Code: Autohotkey [Select]

1. sourcefiles:="Full-path of source.txt"
2.  
3. ; source.txt is a list of files saved in the order you want them to be processed, sorted in your filemanager
4. FileRead, sourcefiles, source.txt
5.  
6. source:="source folder path\"
7. target:="target folder path\"

[Lintalist]

sourcefiles:="Full-path of source.txt" is not correct, but it doesn't matter. I updated the code above once more.

You can now try and "see" what the script "sees" remove the ; before one or both of the MsgBox lines so you can "check" if the source.txt  is read correct and if the source/targetfiles are correct. If you have many files pressing the MsgBox each time is tedious so try with a source.txt file with only a few files in it or cancel the script (scripts tray icon, right click, exit)

Finger Crossed 3 :-)

[tomos]

Yes !!
Success !
Initially didnt work, possibly cause location of source.txt was in a folder with spaces in the name (I did put path in "inverted commas").
Moved that and it worked fine.

And it followed the 0001 / 0001a / etc pattern
Thank you very much Lintalist

EDIT// I tried it without removing comment ";" for message box -- as said above, it worked fine out of the box.
Does strip out text, but there's so few of them I can re-add manually if I want

[Lintalist]

Phew, glad to hear it worked

[tomos]

 

one last request (anytime -- I wont get to it for a few days):
can I start the counter for a second batch @ e.g. 0123
Looks like this could be the relevant line, but cannot think what to change:

counter:=SubStr("000" A_Index, -3)

Getting late here, I'm off -- many thanks again Lintalist

[tomos]

EDIT// I tried it without removing comment ";" for message box -- as said above, it worked fine out of the box.
Does strip out text, but there's so few of them I can re-add manually if I want

-tomos (January 30, 2018, 03:38 PM)

Correction:
it doesnt strip out the text -- it doesnt rename those files, and leaves that new number free e.g. the first file had text after the number, and the renamed files started with 0002 -- so I was able to manually rename the file (with the text) to fit in as 0001_text_here.jpg i.e. it works perfectly
nite!

[Lintalist]

try

counter:=SubStr("000" 123 + A_Index, -3)

[tomos]

try

counter:=SubStr("000" 123 + A_Index, -3)

-Lintalist (January 30, 2018, 04:20 PM)

did a quick test -- it works
Note: in the example used, it starts with 0124