There is a program which claims to rename files supporting MP3 tags:
http://www.coolutils.com/VisualRenamer
As for the CDG part, I can't be sure what it does. And I have *no* knowledge of the program.
I can write such a program in a few minutes, but you would need Perl along with the MP3::Tag module. Here is the program:
[pre]#!/usr/bin/perl
use MP3::Tag;
use Getopt::Std;
getopts('v');
my @files = glob('*.mp3');
for my $filename (@files) {
my $cdgfile = $filename;
$cdgfile =~ s/\.(\w+)$/.cdg/;
unless (-f $cdgfile) {
warn "No CDG file to match $filename, skipping.\n";
}
my $mp3 = MP3::Tag->new($filename);
# get some information about the file in the easiest way
my ($title, $track, $artist, $album, $comment, $year, $genre) =
$mp3->autoinfo();
unless($title and $artist) {
warn "No artist and title tags in $filename, skipping.\n";
}
# Fix common naming problems
for(\$artist, \$title) {
$$_ =~ s/ _ / \& /g;
$$_ =~ s/\.//g;
$$_ =~ s/"/'/g;
}
rename $filename, "$artist - $title.mp3"
and $opt{v} and warn "Renamed $filename -> $artist - $title.mp3\n";
rename $cdgfile, "$artist - $title.cdg"
and $opt{v} and warn "Renamed $cdgfile -> $artist - $title.cdg\n";
}
[/pre]
Now install ActiveState Perl (or whatever it is called these days) and get the MP3::Tag module. And you have it.
