keep seperator in two segment filename to tag

Read FAQ How do I create a new action?
Actions

Here is a proposal, using a group of actions, doing the whole process in single steps.

Begin Action Group Test_2013#20130112.ptbeau

Action #1
Actiontype 5: Format value
Field ______: TMP_FN
Formatstring: %_filename%

Action #2
Actiontype 7: Import tag fields (guess values)
Source format __: %TMP_FN%
Guessing pattern: %DUMMY% - %DUMMY% - %TRACK% - %DUMMY%

Action #3
Actiontype 5: Format value
Field ______: TMP_FN
Formatstring: $replace(%TMP_FN%,' - '%TRACK%' - ',' - ')

Action #4
Actiontype 5: Format value
Field ______: _FILENAME
Formatstring: %TMP_FN%

Action #5
Actiontype 9: Remove fields
Fields to remove (semicolon separated): TMP_FN

End Action Group Test_2013#20130112.ptbeau (5 Actions)

... other proposal ...

Begin Action Group Test_2013#20130112.ptbeau (2)

Action #1
Actiontype 5: Format value
Field ______: TRACK
Formatstring: $regexp(%_filename%,'^(.+?) - (.+?) - (.+?) - (.+?)$','$3')

Action #2
Actiontype 5: Format value
Field ______: _FILENAME
Formatstring: $regexp(%_filename%,'^(.+?) - (.+?) - (.+?) - (.+?)$','$1 - $2 - $4')

End Action Group Test_2013#20130112.ptbeau (2) (2 Actions)

... other proposal ...

Begin Action Group Test_2013#20130112.ptbeau (3)

Action #1
Actiontype 5: Format value
Field ______: TRACK
Formatstring: $regexp(%_filename%,'^(?:.+?)( - )(?:.+?)\1(.+?)\1(?:.+)$','$2')

Action #2
Actiontype 5: Format value
Field ______: _FILENAME
Formatstring: $regexp(%_filename%,'^(.+?)( - )(.+?)\2.+?\2(.+)$','$1$2$3$2$4')

End Action Group Test_2013#20130112.ptbeau (3) (2 Actions)

DD.20130112.1903.CET