Hi V@no,
I have a macro that does the job for me (similarily)
IT HAS TO HAVE the property "search again, if nothing found !"
macro: savecopy
Dont be surprised: its long, but easy
- remember filename and date/time in line 1
- mark the file
- copy file and file information to a new tab
- replace the : in the filename ! (german date property here)
any better suggestions for regexp replace nicely seen
- save the file with time information at the end of filename
- kill tab and go back to the old file
- remove Line 1
No guarantee ! Enjoy.
Bego
InsertMode
ColumnModeOff
HexOff
UnixReOff
GotoLine 1
Key HOME
"
"
Key UP ARROW
CopyFilePath
Paste
TimeDate
SelectAll
StartSelect
Copy
NewFile
Paste
GotoLine 1
Key HOME
StartSelect
Key END
Find RegExp Select "00:^([0-9][0-9]^)"
Replace All "00_^1"
Find RegExp Select "01:^([0-9][0-9]^)"
Replace All "01_^1"
Find RegExp Select "02:^([0-9][0-9]^)"
Replace All "02_^1"
Find RegExp Select "03:^([0-9][0-9]^)"
Replace All "03_^1"
Find RegExp Select "04:^([0-9][0-9]^)"
Replace All "04_^1"
Find RegExp Select "05:^([0-9][0-9]^)"
Replace All "05_^1"
Find RegExp Select "06:^([0-9][0-9]^)"
Replace All "06_^1"
Find RegExp Select "07:^([0-9][0-9]^)"
Replace All "07_^1"
Find RegExp Select "08:^([0-9][0-9]^)"
Replace All "08_^1"
Find RegExp Select "09:^([0-9][0-9]^)"
Replace All "09_^1"
Find RegExp Select "10:^([0-9][0-9]^)"
Replace All "10_^1"
Find RegExp Select "11:^([0-9][0-9]^)"
Replace All "11_^1"
Find RegExp Select "12:^([0-9][0-9]^)"
Replace All "12_^1"
Find RegExp Select "13:^([0-9][0-9]^)"
Replace All "13_^1"
Find RegExp Select "14:^([0-9][0-9]^)"
Replace All "14_^1"
Find RegExp Select "15:^([0-9][0-9]^)"
Replace All "15_^1"
Find RegExp Select "16:^([0-9][0-9]^)"
Replace All "16_^1"
Find RegExp Select "17:^([0-9][0-9]^)"
Replace All "17_^1"
Find RegExp Select "18:^([0-9][0-9]^)"
Replace All "18_^1"
Find RegExp Select "19:^([0-9][0-9]^)"
Replace All "19_^1"
Find RegExp Select "20:^([0-9][0-9]^)"
Replace All "20_^1"
Find RegExp Select "21:^([0-9][0-9]^)"
Replace All "21_^1"
Find RegExp Select "22:^([0-9][0-9]^)"
Replace All "22_^1"
Find RegExp Select "23:^([0-9][0-9]^)"
Replace All "23_^1"
Copy
EndSelect
DeleteLine
SaveAs "^c"
CloseFile NoSave
GotoLine 1
DeleteLine