Hallo Georg,
siehe nochmals meinen Punkt 2) ist von mir mehrfach getestet.
Du brauchst nur die 4.1.21.1869 downloaden und Doppelklick.
Es bleibt die GOLD-Version.
Für Deinen Bedarf habe ich auch selbst geschriebene Scripte, die ich permanent verwende - Kurzerklärung:
(Ich setze voraus: im Dateinamen sind Titel und Interpret oder Interpret und Titel durch einen Bindestrich getrennt)
Kopiere DATEINAMEN (ohne Extension) in eine Variable.
Diese Variable wird durch den Bindestrich zerlegt in TITEL und INTERPRET und in die entsprechenden Felder eingefügt.
Ein zweites Script tauscht bei Bedarf die Inhalte der Felder TITEL und INTERPRET.
Ein drittes Script bildet einen neuen Dateinamen nach folgenden zwei Methoden:
Titel __ Interpret.Extension oder
Interpret - Titel.Extension
Einträge unter %appdata%\MediaMonkey\Scripts\Scripts.ini
[X55_Kopiere Dateinamen in das Feld: TITEL]
FileName=Auto\X01_ERWIN.vbs
ProcName=X55
Order=55
DisplayName=55_Kopiere Dateinamen in das Feld: TITEL
Description=X55_Uebertrage_Dateinamen_In_Feld_TITEL
Language=VBScript
ScriptType=0
[X65_Tausche Felder: INTERPRET - TITEL]
FileName=Auto\X01_ERWIN.vbs
ProcName=X65
Order=65
DisplayName=65_Tausche Felder: INTERPRET - TITEL
Description=X65_Tausche Felder: INTERPRET - TITEL
Language=VBScript
ScriptType=0
[X86_Neuer_Dateiname]
FileName=Auto\X01_ERWIN.vbs
ProcName=X86
Order=86
DisplayName=86_Dateiname NEU: Titel - Interpret
Description=X86_Dateiname NEU: Titel - Interpret
Language=VBScript
ScriptType=0
[X87_Neuer_Dateiname]
FileName=Auto\X01_ERWIN.vbs
ProcName=X87
Order=87
DisplayName=87_Dateiname NEU: Interpret - Titel
Description=X87_Dateiname NEU: Interpret - Titel
Language=VBScript
ScriptType=0
Einträge unter %appdata%\Mediamonkey\Scripts\Auto unter Dateiname: X01_Erwin.vbs
Code: Select all
Sub X55() 'Kopiere Dateinamen in das Feld TITLE und splitten
'Trennzeichen zwischen Titel und Interpret: - oder __
Dim list, itm, i, y, x, z, s, tmp, sTemp, sText, NeuerTitel, oldPath, newTitle
Set list = SDB.SelectedSongList
if list.count<1 then exit sub
For i=0 To list.count-1
Set itm = list.Item(i)
oldPath=itm.Path
Extension=right (oldPath, len(oldPath)-instrrev (oldPath, "."))
sText=right (oldPath, len(oldPath)-instrrev (oldPath, "\"))
sText=replace(sText,"__", " - ")
DateinameNeu=left(sText,len(sText)-(len(Extension)+1))
TrennzeichenPos = InStr(DateinameNeu, "-")
If TrennzeichenPos > 0 Then
itm.ArtistName = Trim(Left(DateinameNeu,TrennzeichenPos - 1))
itm.Title = Trim(Mid(DateinameNeu,TrennzeichenPos + 1))
itm.UpdateDB
Else
Antwort=MsgBox (" Kein Trennzeichen (-) im Dateinamen ", vbOKOnly+vbSystemModal+MsgBoxSetForeground+vbInformation, "")
End If
Next
list.UpdateAll
End Sub
'=====================================================================================================
Sub X65() 'tausche Inhalt der Felder INTERPRET und TITEL
Dim list, itm, i, tmpTitle
Set list = SDB.SelectedSongList
if list.count<1 then exit sub
For i=0 To list.count-1
Set itm = list.Item(i)
tmpTitle = itm.Title
itm.Title = itm.ArtistName
itm.ArtistName = tmpTitle
Next
list.UpdateAll
End Sub
'=====================================================================================================
' NEUEN Dateinamen bilden
Sub X86()
x=1 'DATEINAME: Title__ArtistName
Trennzeichen=" - "
Call NEU(x,Trennzeichen)
End Sub
Sub X87()
x=2 'DATEINAME: ArtistName - Title
Trennzeichen=" - "
Call NEU(x,Trennzeichen)
End Sub
Sub NEU(x,Trennzeichen)
Dim list, itm, i, oldPath, newPath
On Error Resume Next
Set list = SDB.SelectedSongList
if list.count<1 then exit sub
For i=0 To list.count-1
Set itm = list.Item(i)
oldPath=itm.Path
Extension=right (oldPath, len(oldPath)-instrrev (oldPath, "."))
Select Case x
Case 1
newPath=itm.Title & Trennzeichen & itm.ArtistName & "." & Extension
itm.Path=newPath
Case 2
newPath=itm.ArtistName & Trennzeichen & itm.Title & "." & Extension
itm.Path=newPath
End Select
Next
list.UpdateAll
End Sub
Danach könntest Du diese drei Scripte in die Menüleiste einbinden.
viel Spass
Falls Du fragen hast, sende mir eine "PrivatMessage"