All Lowercase Script

[Superman]

Hello,

I am searching for a script, that wrote all id3-tag fields (artist, song, album etc.) lowercase.

Does anybody got such a script ?

THX

Superman


p.s. sorry for my terrible english i am from germany

[onkel_enno]

Propbier's mal hiermit, ich weiss aber nicht genau ob MM die Tags auch gleich in die Datei schreibt. -> jetzt tut er's, Danke an Risser

Script "LowerCase.vbs":

Code: Select all

Option Explicit

Sub LowerCase
Dim Tracklist
Dim Track
Dim i
Set Tracklist = SDB.SelectedSongList

	for i=0 to TrackList.Count-1
		Set Track = Tracklist.Item(i)
		Track.Title = LCase(Track.Title)
		Track.AlbumArtistName = LCase(Track.AlbumArtistName)
		Track.AlbumName = LCase(Track.AlbumName)
		Track.ArtistName = LCase(Track.ArtistName)
		Track.Comment = LCase(Track.Comment)
		If Track.ID>-1 Then
			Track.UpdateDB 'by Risser
		End if
		Track.WriteTags 'by Risser
	next
end Sub

Und der Eintrag in der Scripts.ini:

Code: Select all

[LowerCase]
FileName=LowerCase.vbs
ProcName=LowerCase
Order=7
DisplayName=Klein schreiben
Description=schreibt alles klein :o)
Language=VBScript
ScriptType=0

Die Dateien markieren -> Extras -> Scripts -> Klein schreiben

MfG
Enrico

[Risser]

Ich bin ein dumbkopf. I only know one language.
So, don't apologize for slightly broken English, as it's way better than my German.

However, I do know that the script provided will update the items in the DB, but not in the tags.

I think you want to add this in the loop after you change the attributes:

Code: Select all

If Track.ID>-1 Then
	Track.UpdateDB
End If
Track.WriteTags

This will ensure writing the changes to the DB and the file's tags themselves.
Peter

[onkel_enno]

Ich bin ein dummkopf.

Your aren't

[Supermann]

Hallo,

vielen Dank für das Script.
Ist ja super, wie schnell einem hier im Forum geholfen wird. Bin nun wunschlos mit dem Mediamonkey glücklich

Das Script funktionierte bei mir aber erst nach dieser kleinen Änderung:

Code: Select all

Option Explicit

Sub LowerCase
Dim Tracklist
Dim Track
Dim i
Set Tracklist = SDB.SelectedSongList

   for i=0 to TrackList.Count-1
      Set Track = Tracklist.Item(i)
      Track.Title = LCase(Track.Title)
      Track.AlbumArtistName = LCase(Track.AlbumArtistName)
      Track.AlbumName = LCase(Track.AlbumName)
      Track.ArtistName = LCase(Track.ArtistName)
      Track.Comment = LCase(Track.Comment)
      If Track.ID>-1 Then
         Track.UpdateDB 'by Risser
      End if
      Track.WriteTags 'by Risser
   next
end Sub

End IF LÖSCHEN

Vielen Dank noch mal.

Gruß Supermann

[Guest]

Hallo,

ich bins noch mal.

Mir viel gerade auf, dass bei dem Script noch irgendwas nicht stimmt.

Wenn ich es anwende, dann werden alle Informationen kleingeschrieben.
So weit so gut.
Wenn ich danach noch mal in den Ordner mit den Liedern gehe, dann sind alle Informationen weiterhin kleingeschrieben, jedoch nicht der Interpret und das Album. Irgendwie speichert das Script nicht richtig in der DB.

Kann mir da noch mal jemand helfen ?

Vielen Dank schon mal

mfG

Supermann

[onkel_enno]

End IF LÖSCHEN

Vielen Dank noch mal.

Gruß Supermann

Das kommt davon wenn man's nicht probiert, sondern nur hinschreibt

Wegen dem Album und dem Interpreten: Musst mal bissl schauen woran's liegt, kann's leider im Moment nicht testen.