[Oetzelgroetzel]

Hallo!

Habe jetzt lange genug bei Google geschaut, ohne was zu finden. Jetzt hoffe ich auf die Winfuture Community !

Mein problem: Bräuchte ein Programm oder Script oder was auch immer, womit ich möglichst schnell meine 15000(!) Lieder, die in iTunes einen Zähler von 0 haben, hochzustellen. Habe so an 25 gedacht. Wofür ich das brauche ist erstmal egal. Habe zwar etwas gefunden, womit ich den Zähler verändern kann, aber das geht immer nur Lied für Lied. Und das dauert bei 15000 Lieder eine Ewigkeit.

Unter dem Strich mal das Script, vielleicht kann ja jemand was dran ändern, das automatisch die Zahl 25 als neuer Zähler angegeben ist, damit ich nurnoch OK drücken muss. Würde die Sache erheblich beschleunigen.

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

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



Einfach in eine Textdatei speichern, in *.vbs umbenennen, danach in Itunes die Lieder anwählen welche einen neuen Zähler erhalten sollen (also makieren das die Lieder so blau unterlegt sind) und dann das Programm starten. Danach kann man unten die Zahl eingeben. Ich hätte gerne das die Zahl sofort auf 25, und nicht auf 0 steht, damit ich nur Enter gedrückt halten muss bis alle Lieder fertig sind.


Vielen Dank im Vorraus für die Hilfe!

[rootscratch]

Wieso nicht einfach alle Lieder in der Playlist markieren, bevor du das Script startest? Oder geht das nich?

***Edit: Sry, geht wohl nich... fragt trotzdem einzeln ab habe ich gesehn.

Dieser Beitrag wurde von rootscratch bearbeitet: 11. Oktober 2008 - 09:07

[Oetzelgroetzel]

Das geht leider nicht, hab ich auch schon probiert ^^

[zwutz]

hm...
wenn ich das Script so richtig verstehe, sollte folgendes klappen:

Dim iTunesApp, selectedTracks

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

For Each IITTrack In selectedTracks
	IITTrack.PlayedCount = 25
Next

[Oetzelgroetzel]

Hat geklappt!! Vielen vielen Dank!

[ihans]

Weiß jmd. was ich falsch mache wenn es bei mir so nicht funktioniert?

ich hab wie beschrieben die Datei

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

im .vbs Format erstellt. Markiere ich jedoch eine Datei im iTunes und öffne dann die auf dem Desktop abgelegte playcount.vbs dann kommt immer ne Fehlermeldung und zwar:

Windows Script Host

Skript: C:\Users\Hans\Desktop\playcount.vbs
Zeile: 9
Zeichen: 1
Fehler: Das Objekt ist keine Auflistung.
Code: 800A01C3
Quelle: Laufzeitfehler in Microsoft VBScript

Und eben nicht ein schönes Fenster wo ich die Zählerzahl eingeben kann oder so.
Auch wenn ich mehrere Songs markiere und dann die .vbs starte kommt ne Fehlermeldung.

Kann mir jmd. da weiterhelfen wie ich als Vista und iTunes 9.0 User den Zählerstand eines einzelnen Liedes verändern kann?