I'm having difficulty with a file naming script

MusicBrainz Picard
1

Hi,

In part of my tagger file naming script, I do the following to add release comments, if any:

$noop(release disambig?)
$if(%_releasecomment%, \(%_releasecomment%\))

Since last April, it seems for Led Zeppelin bootlegs at least, it is also being used for search hints. I need to strip out any leading text and only return what is after a semicolon. In Tool Command Language from an alternate naming script I use, I do the following regular expression:

# Remove the useless search assistance info that clouds the purpose
# of disambiguation (aka %_releasecomment% in Picard) on a
# release title.
#
proc processDisambig {disambig} {
    set d ""
    if {$disambig eq ""} return ""
    regexp {^(?:.*; )(.*)} $disambig dummy d
    return $d
}

I want to implement the same in a tagger script. Would I choose $rsearch or $rreplace? If someone could help get me started, I would greatly appreciate it, thanks.

An example of the offending text is in this edit, that will most likely fail

3

No, not working for all the three cases, yet. I only want “Direct Transfer” returned.

1971-04-01∶ Paris Theatre, London, England, UK

1971-04-01∶ Paris Theatre, London, England, UK; Direct Transfer

Direct Transfer

4

ok, done

$noop(release disambig? remove search hint garbage)
$set(_comment,$rsearch(%_releasecomment%,^\(?:\\d{4}-\\d{2}-\\d{2}.*; \){0\,1}\(.*\)\$))
$if(%_comment%, \(%_comment%\))

There is an art to regular expressions. I need more practice.

test suite