iTunes Zähler ändern

[Haui]

Hi,
ich möchte die Zähler für bestimmte Tracks meiner Mediathek manuell festlegen. Aber iTunes scheint dazu von Haus aus nicht zu bieten.

Gibts eine andere Möglichkeit?

mfg
Haui

[Tatus]

Welcher Zähler? Den wie oft ein Lied gespielt wurde? Wenn das, dann wozu? Du kannst den Zähler zurücksetzen, wenn es das ist...

[stiivi1ndr]

Er meint warscheinlich (so wie ich), das man wenn man ein Lied hört und mehr Zähler dafür haben will, damit er sagen kann .. "Alta, Guck mal wie oft ich das Lied schon gehört hab" oder wie auch immer.

[Tatus]

-> Hast du Mac?

Versuch mal das hier... Hab Windows, kann darum nich sagen, ob es klappt.
http://dougscripts.com/itunes/script...tractplaycount

-> Hast du Windows?

Das unter dem Strich unten kopieren und in Notepad einfügen, dann die Datei von .txt in .vbs umbenennen. Bei iTunes die Lieder die du bearbeiten willst auswählen (markieren) - dann die .vbs Datei ausführen. Die markierten Lieder werden dann auf den Zählerstand gesetzt, den du eintippst. Klappt bei mir (7.7.0.43) super.

Sonst ist das Skript auch nochmal als Datei im Anhang.

------------------------------

Dim iTunesApp, selectedTracks, newPlayCount
Dim prompt, title, defaultValue

Set iTunesApp = WScript.CreateObject("iTunes.Application")
Set selectedTracks = iTunesApp.SelectedTracks

prompt = "New playcount:"

For Each IITTrack In selectedTracks
title = IITTrack.Artist & " - " & IITTrack.Name
defaultValue = IITTrack.PlayedCount
newPlayCount = InputBox (prompt, title, defaultValue)

'MsgBox("NewPlayCount = " & newPlayCount)

If Len(newPlayCount) > 0 Then
If IsNumeric(newPlayCount) Then
If newPlayCount >= 0 Then
IITTrack.PlayedCount = newPlayCount
End If
End If
Else
Exit For
End If
Next

[BenutzerHugo]

-> Hast du Mac?

Versuch mal das hier... Hab Windows, kann darum nich sagen, ob es klappt.
http://dougscripts.com/itunes/script...tractplaycount

-> Hast du Windows?

Das unter dem Strich unten kopieren und in Notepad einfügen, dann die Datei von .txt in .vbs umbenennen. Bei iTunes die Lieder die du bearbeiten willst auswählen (markieren) - dann die .vbs Datei ausführen. Die markierten Lieder werden dann auf den Zählerstand gesetzt, den du eintippst. Klappt bei mir (7.7.0.43) super.

Sonst ist das Skript auch nochmal als Datei im Anhang.

------------------------------

Dim iTunesApp, selectedTracks, newPlayCount
Dim prompt, title, defaultValue

Set iTunesApp = WScript.CreateObject("iTunes.Application")
Set selectedTracks = iTunesApp.SelectedTracks

prompt = "New playcount:"

For Each IITTrack In selectedTracks
title = IITTrack.Artist & " - " & IITTrack.Name
defaultValue = IITTrack.PlayedCount
newPlayCount = InputBox (prompt, title, defaultValue)

'MsgBox("NewPlayCount = " & newPlayCount)

If Len(newPlayCount) > 0 Then
If IsNumeric(newPlayCount) Then
If newPlayCount >= 0 Then
IITTrack.PlayedCount = newPlayCount
End If
End If
Else
Exit For
End If
Next

thx, sehr gut!

[isleep]

funktioniert PERFEKT! danke