SCRIPT: Titel schon in Playlisten??? optimiert auf andockbar

Wenn Sie Hilfe benötigen oder über MediaMonkey diskutieren möchten...

Moderator: onkel_enno

Erwin Hanzl
Posts: 273
Joined: Tue Jun 13, 2017 8:47 am
Location: Vienna

SCRIPT: Titel schon in Playlisten??? optimiert auf andockbar

Post by Erwin Hanzl » Mon Aug 28, 2017 7:53 am

Ergänzung 24.03.2019: Bitte NICHT verwenden unter Magic Notes und/oder MonkeyRok
führt zu unvollständigen Ergebnissen


Image

Hallo Leute,
immer wieder die Frage: "Habe ich diesen Titel schon in einer/mehreren Playlisten und an welcher Stelle?"
Mittels diesem .vbs-Script bekommt Ihr, nach Implementierung mittels "Symbolleiste konfigurieren",
auf Knopfdruck eine umgehende Antwort. (PlaylistenNamen und Positionsnummern)
Bitte um Feedback
lg Erwin

Fehlerfrei funktionierend unter:
Design: Glided, Metro M, Pulse, Vitreous (Schriftgröße 17 px)

Eintrag in Scripts.ini: (%appdata%\MediaMonkey\Scripts)

Code: Select all

  [X96_Finde_Titel_in_Playlisten]
  FileName=Auto\X96_Finde_Titel_in_Playlisten.vbs
  ProcName=X96_Finde_Titel_in_Playlisten
  Order=96
  DisplayName=96_Finde_Titel_in_Playlisten
  Description=96_Finde_Titel_in_Playlisten
  Language=VBScript
  ScriptType=0 
'SCRIPT-Datei unter dem Namen "X96_Finde_Titel_in_Playlisten.vbs" im Ordner "%appdata%\MediaMonkey\Scripts\Auto" speichern:

Code: Select all

Sub X96_Finde_Titel_in_Playlisten
  On Error resume next

  'AUTOR: Erwin Hanzl im Dezember 2017
  'Andockbares Fenster für Wiedergabelisten - muß nicht, kann aber geschlossen werden
  'optimalster Platz im Bereich "Spalten-Browser"

  'Sucht einen ausgewählten Musiktitel in ALLEN Playlisten(Wiedergabelisten)
  'Zeigt den Wiedergabelisten-Namen und die Position

  Dim list, itm, i, z, PlaylistTitel, PlaylistName,children, quelle, tracks, trck
  Dim Verzeichnis, VerzeichnisZahl, VerzeichnisKopfTitel, VerzeichnisKopfInterpret


  Set currentsonglist = SDB.SelectedSongList
  If currentsonglist.count<>1 Then exit sub
  Set itm = currentsonglist.Item(0)
  quelle=itm.title & "__" & itm.artistName
  VerzeichnisKopfTitel=itm.title
  VerzeichnisKopfInterpret=itm.artistname
  VerzeichnisKopfInterpret=replace(VerzeichnisKopfInterpret,"&","+")  '& ist reserviertes Zeichen in labels
  Set list = SDB.PlaylistByTitle("")
  Set children = list.ChildPlaylists 

  For i = 0 To children.count-1
    If children.count=0 Then exit Sub
    Set itm = children.Item(i)
    PlaylistName = itm.Title

    Set tracks = itm.Tracks
    if itm.tracks.count>0 then
      For z=0 To tracks.Count-1
        Set trck = tracks.Item(z)
        PlaylistTitel = trck.Title & "__" & trck.ArtistName
        if quelle=PlaylistTitel then 
	       Verzeichnis=Verzeichnis   & PlaylistName & chr(13)
               VerzeichnisZahl=VerzeichnisZahl & "Nr.: "  & z+1  & chr(13)
	end if
      Next
    end if

  Next
  if len(Verzeichnis)<1 then Verzeichnis="in keiner Wiedergabeliste"

  Dim Mnu, Pnl, Lbl, Lbl2, Lbl3
  Set UI = SDB.UI
 
  Set Pnl = UI.NewDockablePersistentPanel("Wiedergabelisten")
  if Pnl.IsNew then
    Pnl.DockedTo = 3
    Pnl.Common.Width = 250
  end if
  Pnl.DockedTo = 3
  Pnl.Common.Width = 300
  Pnl.Caption = "Wiedergabelisten"
  Script.RegisterEvent Pnl,"OnClose", "PnlClose" 
 
  Set Lbl1 = UI.NewLabel(Pnl)
  Lbl1.Autosize = false
  Lbl1.Multiline = true
  Lbl1.Common.SetRect 10, 10, Pnl.Common.Width-20, Pnl.Common.Height-20
  Lbl1.Common.Anchors = 15
  Lbl1.Caption = VerzeichnisKopfTitel & chr(13)& VerzeichnisKopfInterpret & chr(13)  & "------------------------------------------" & chr(13)  

  Set Lbl2 = UI.NewLabel(Pnl)
  Lbl2.Autosize = false
  Lbl2.Multiline = true
  Lbl2.Common.SetRect 10, 10, Pnl.Common.Width-20, Pnl.Common.Height-20
  Lbl2.Common.Anchors = 15
  Lbl2.Common.Top = 70
  Lbl2.Common.Left = 10
  Lbl2.Caption = Verzeichnis

  Set Lbl3 = UI.NewLabel(Pnl)
  Lbl3.Autosize = false
  Lbl3.Multiline = true
  Lbl3.Common.SetRect 10, 10, Pnl.Common.Width-20, Pnl.Common.Height-20
  Lbl3.Common.Anchors = 15
  if len(VerzeichnisZahl) >1 then Lbl3.Caption = VerzeichnisZahl
  Lbl3.Common.Left = 180
  Lbl3.Common.Top = 70

  Pnl.Common.Visible = true

End Sub

Sub PnlClose(Pnl)
  SDB.Objects("Wiedergabelisten") = Nothing
End Sub
Last edited by Erwin Hanzl on Sun Mar 24, 2019 3:35 pm, edited 36 times in total.
:D MMW 4.1.25.1885 GOLD Beta :D Meine Einstellungen
:-? MMA 1.3.5.0853 Beta auf Huawei Mate 20 Pro (USB-Kabel-Sync)
:D FindCurrentPlayingTrack 1.3.2 :D Lyrics and Comment Viewer 2.2.0.0 :D CustomFieldsTagger 1.0.3.0 :D Discogs Tagger 5.6.8
:D WIN 10 Pro-1903-64 Bit -- Windows-Defender mit Echtzeitschutz

MMuser2011
Posts: 1288
Joined: Mon Oct 17, 2011 8:28 am
Location: Central Europe

Re: SCRIPT: Titel schon in Playlisten???

Post by MMuser2011 » Mon Aug 28, 2017 8:38 am

Danke für das Script (habe es noch nicht ausprobiert).
Du solltest aber keine absoluten Pfade "C:\Users\1808\AppData\Roaming\MediaMonkey\Scripts" angeben, die passen ausschliesslich auf Deinem Windows-PC.
Verwende anstelle von "C:\Users\1808\AppData\Roaming" die allgemein gültige Bezeichung %appdata%. Die löst automatisch auf jedem Gerät an die richtige Stelle auf, egal wie der angemeldete User heisst.
Also konkret: %appdata%\MediaMonkey\Scripts
Magic Nodes v4.2 (2011-07-01) SQL Viewer v2.4 (2009-10-25)
ExternalTools v1.4 (2011-05-09) iTunesMonkey 1.0 + Acoustid
Calculate Cover Size v1.7 (2012-10-23) RegExp Find & Replace v4.3 (2011-07-06)

Erwin Hanzl
Posts: 273
Joined: Tue Jun 13, 2017 8:47 am
Location: Vienna

Re: SCRIPT: Titel schon in Playlisten???

Post by Erwin Hanzl » Mon Aug 28, 2017 8:57 am

Ich habe mein Posting Deinen Entpfehlungen entsprechend, adaptiert.
Melde Dich bitte nach der Testphase.
Code bitte neu kopieren. Ich habe heute, am 30.8.2017 Optimierungen durchgeführt!!!!!
Danke
:D MMW 4.1.25.1885 GOLD Beta :D Meine Einstellungen
:-? MMA 1.3.5.0853 Beta auf Huawei Mate 20 Pro (USB-Kabel-Sync)
:D FindCurrentPlayingTrack 1.3.2 :D Lyrics and Comment Viewer 2.2.0.0 :D CustomFieldsTagger 1.0.3.0 :D Discogs Tagger 5.6.8
:D WIN 10 Pro-1903-64 Bit -- Windows-Defender mit Echtzeitschutz

M.Moeritz
Posts: 99
Joined: Fri Feb 21, 2014 7:54 am

Re: SCRIPT: Titel schon in Playlisten???

Post by M.Moeritz » Wed Sep 13, 2017 3:51 pm

Hallo, bevor ich dein Script ausprobiere eine Frage. Ich kann doch unter Dateieigenschaften/Klassifikation mir anzeigen lassen ob ein Titel in anderen Playlisten vorhanden ist, wo liegt der Vorteil in deinem Script?
"translate with google"

Gruß

Miron

WiFi Syncing
MM Gold 4.1.21.1871 auf Windows 10 Pro 64 Bit "portable Installation" auf interner Festplatte.
MM Alpha 5.0.0.2113 auf Windows 10 Pro 64 Bit "portable Installation" auf interner Festplatte
MM Android 1.3.2.0819 Pro auf folgenden Geräten

Phones: Huawei P10 Android 8.0 / Samsung Galaxy S5 Lineage OS 14.1 / LG Spirit 8 Android 6.0.1 / Vodafone smart ultra 6 Android 6.0.1 / Samsung S4 Lineage OS 14.1 / Xiaomi Redmi Note 4 Android 6.0 / Tablet: Samsung Galaxy Tab S2 S9.7 Android 7.0 / Autoradio Erisin 3015V Android 5.1.1 /

Erwin Hanzl
Posts: 273
Joined: Tue Jun 13, 2017 8:47 am
Location: Vienna

Re: SCRIPT: Titel schon in Playlisten???

Post by Erwin Hanzl » Wed Sep 13, 2017 5:54 pm

Hallo Miron,
Deine Vorgangsweise ist auch OK.
Aber wie schon beschrieben, ich drucke nur auf EINEN Knopf
und bekomme noch zusätzlich die Positions# aus den Playlisten.

Probiere es doch aus.
lg erwin
Last edited by Erwin Hanzl on Wed Jan 10, 2018 5:34 am, edited 1 time in total.
:D MMW 4.1.25.1885 GOLD Beta :D Meine Einstellungen
:-? MMA 1.3.5.0853 Beta auf Huawei Mate 20 Pro (USB-Kabel-Sync)
:D FindCurrentPlayingTrack 1.3.2 :D Lyrics and Comment Viewer 2.2.0.0 :D CustomFieldsTagger 1.0.3.0 :D Discogs Tagger 5.6.8
:D WIN 10 Pro-1903-64 Bit -- Windows-Defender mit Echtzeitschutz

MichaWeber
Posts: 161
Joined: Mon Nov 21, 2005 12:14 am

Re: SCRIPT: Titel schon in Playlisten??? optimiert auf andockbar

Post by MichaWeber » Fri Mar 22, 2019 6:09 am

Hallo,
ich muß diesen alten Thread mal wieder nach oben holen.
Ich versuche gerade mit diesem Script zu arbeiten, bekomme es aber nicht gebacken das mir irgend etwas angezeigt wird.
Ich habe den ersten Teil in die Script.ini eingetragen und dann das vbs -Script unter ..\Scripts\Auto abgelegt. Aber wo und wie kann ich denn die Informationen zu den Playlisten abrufen?

Danke & Gruß
Michael
Gruß
Micha aus Berlin

Win 7 und MM 4.1.23

MMuser2011
Posts: 1288
Joined: Mon Oct 17, 2011 8:28 am
Location: Central Europe

Re: SCRIPT: Titel schon in Playlisten??? optimiert auf andockbar

Post by MMuser2011 » Fri Mar 22, 2019 7:05 am

Erwin Hanzl wrote:
Mon Aug 28, 2017 7:53 am
... nach Implementierung mittels "Systemleisten konfigurieren"...
Magic Nodes v4.2 (2011-07-01) SQL Viewer v2.4 (2009-10-25)
ExternalTools v1.4 (2011-05-09) iTunesMonkey 1.0 + Acoustid
Calculate Cover Size v1.7 (2012-10-23) RegExp Find & Replace v4.3 (2011-07-06)

MichaWeber
Posts: 161
Joined: Mon Nov 21, 2005 12:14 am

Re: SCRIPT: Titel schon in Playlisten??? optimiert auf andockbar

Post by MichaWeber » Fri Mar 22, 2019 9:17 am

Danke,

die Bezeichnungen haben sich geändert.
Gruß
Micha aus Berlin

Win 7 und MM 4.1.23

MMuser2011
Posts: 1288
Joined: Mon Oct 17, 2011 8:28 am
Location: Central Europe

Re: SCRIPT: Titel schon in Playlisten??? optimiert auf andockbar

Post by MMuser2011 » Fri Mar 22, 2019 9:51 am

Wie heissen sie den neu?
Magic Nodes v4.2 (2011-07-01) SQL Viewer v2.4 (2009-10-25)
ExternalTools v1.4 (2011-05-09) iTunesMonkey 1.0 + Acoustid
Calculate Cover Size v1.7 (2012-10-23) RegExp Find & Replace v4.3 (2011-07-06)

Erwin Hanzl
Posts: 273
Joined: Tue Jun 13, 2017 8:47 am
Location: Vienna

Re: SCRIPT: Titel schon in Playlisten??? optimiert auf andockbar

Post by Erwin Hanzl » Fri Mar 22, 2019 9:57 am

oder EXTRAS / Scripte / X96_Finde_Titel_in_Playlisten
:D MMW 4.1.25.1885 GOLD Beta :D Meine Einstellungen
:-? MMA 1.3.5.0853 Beta auf Huawei Mate 20 Pro (USB-Kabel-Sync)
:D FindCurrentPlayingTrack 1.3.2 :D Lyrics and Comment Viewer 2.2.0.0 :D CustomFieldsTagger 1.0.3.0 :D Discogs Tagger 5.6.8
:D WIN 10 Pro-1903-64 Bit -- Windows-Defender mit Echtzeitschutz

MichaWeber
Posts: 161
Joined: Mon Nov 21, 2005 12:14 am

Re: SCRIPT: Titel schon in Playlisten??? optimiert auf andockbar

Post by MichaWeber » Fri Mar 22, 2019 10:29 am

MMuser2011 wrote:
Fri Mar 22, 2019 9:51 am
Wie heissen sie den neu?
Werkzeugleisten
Gruß
Micha aus Berlin

Win 7 und MM 4.1.23

Erwin Hanzl
Posts: 273
Joined: Tue Jun 13, 2017 8:47 am
Location: Vienna

Re: SCRIPT: Titel schon in Playlisten??? optimiert auf andockbar

Post by Erwin Hanzl » Fri Mar 22, 2019 10:40 am

(Systemleiste stimmt nicht, sorry für die Verwirrung - ich hoffe, das ist das einzige Problem - ich habs korrigiert)

Definition und Hierarchie:

MENÜBAND
SYMBOLLEISTE
innerhalb dieser SYMBOLLEISTE kann man diverse WERKZEUGLEISTEN erstellen/bearbeiten/löschen
und auch unter eigenem Namen speichern und damit auch einblenden/ausblenden
:D MMW 4.1.25.1885 GOLD Beta :D Meine Einstellungen
:-? MMA 1.3.5.0853 Beta auf Huawei Mate 20 Pro (USB-Kabel-Sync)
:D FindCurrentPlayingTrack 1.3.2 :D Lyrics and Comment Viewer 2.2.0.0 :D CustomFieldsTagger 1.0.3.0 :D Discogs Tagger 5.6.8
:D WIN 10 Pro-1903-64 Bit -- Windows-Defender mit Echtzeitschutz

MichaWeber
Posts: 161
Joined: Mon Nov 21, 2005 12:14 am

Re: SCRIPT: Titel schon in Playlisten??? optimiert auf andockbar

Post by MichaWeber » Fri Mar 22, 2019 12:25 pm

Hallo Erwin,
ich habe noch Probleme mit dem Ergenis der Wiedergabelisten. Die Anzeige der Eigenschaften des Titels sind:

Image

Dein Script liefert folgendes Ergebnis:

Image

Hast du eine Idee was ich falsch gemacht habe?
Gruß
Micha aus Berlin

Win 7 und MM 4.1.23

Erwin Hanzl
Posts: 273
Joined: Tue Jun 13, 2017 8:47 am
Location: Vienna

Re: SCRIPT: Titel schon in Playlisten??? optimiert auf andockbar

Post by Erwin Hanzl » Fri Mar 22, 2019 1:58 pm

Kannst Du bitte eine Foto hochladen, auf dem der Archivbaum mit Playlisten zu erkennen ist.
so ähnlich wie meines:

Image

Welches Design benutzt Du?
Ich nehme an, Du benutzt Magic Notes oder MonkeyRok - dann vergiss mein Script, da Playlisten anders gehandhabt werden.
Last edited by Erwin Hanzl on Sun Mar 24, 2019 3:34 pm, edited 3 times in total.
:D MMW 4.1.25.1885 GOLD Beta :D Meine Einstellungen
:-? MMA 1.3.5.0853 Beta auf Huawei Mate 20 Pro (USB-Kabel-Sync)
:D FindCurrentPlayingTrack 1.3.2 :D Lyrics and Comment Viewer 2.2.0.0 :D CustomFieldsTagger 1.0.3.0 :D Discogs Tagger 5.6.8
:D WIN 10 Pro-1903-64 Bit -- Windows-Defender mit Echtzeitschutz

MichaWeber
Posts: 161
Joined: Mon Nov 21, 2005 12:14 am

Re: SCRIPT: Titel schon in Playlisten??? optimiert auf andockbar

Post by MichaWeber » Fri Mar 22, 2019 4:41 pm

Hallo Erwin,
werde ich machen, komme aber erst am Montag dazu.

Gruß Michael
Gruß
Micha aus Berlin

Win 7 und MM 4.1.23

Post Reply