by Gerdi » Wed Feb 24, 2016 5:33 am
Danke Lowlander.
Notbehelf auf eigene Gefahr:
Code: Select all
; Das AutoHotKey-Script sucht einzelene Wortteile, ohne eine Zwangsbindung an den Wortbeginn.
; Es selektiert die Fundstellen in einer neuen Liste.
; Leerzeichen Strichpunkte Sonderzeichen werden nicht unterstuetzt bzw. sind nicht getestet.
; Bedienung: nach der Tastenkombination [Fenster] [S] kann ein Wort(teil) eingegeben werden.
; PS. AutoHotKey muss dazu nicht installiert werden, wenn man sich eine aktuelle AutoHotKey.exe Version 1.hoechste besorgt
; http://ahkscript.org und diese umbenennt, sodass sie gleichnamig ist wie das Skript (im selben Ordner).
; Nun kann man die Exe ohne Installation starten.
#Persistent
MM := ComObjCreate("SongsDB.SDBApplication")
MM.ShutdownAfterDisconnect:=false
suche=Walzer
return
#s:: ; Tastenkombination kann geaendert werden
InputBox,Suche,Suche,über alle Datenbankeinträge,,,,,,,,%suche%
originalNodeType := MM.MainTree.CurrentNode.NodeType
; Clear current tracks from window
MM.MainTree.CurrentNode.NodeType := 12
MM.MainTracksWindow.Refresh
; <bei der Suche beruecksichtigte Felder> ; kann individuell angepasst werden
sql = WHERE (Songs.SONGTITLE Like '`%%Suche%`%'
OR Songs.ARTIST Like '`%%Suche%`%'
OR Songs.ALBUM Like '`%%Suche%`%'
OR Songs.ALBUMARTIST Like '`%%Suche%`%'
OR Songs.ACTORS Like '`%%Suche%`%'
OR Songs.PRODUCER Like '`%%Suche%`%'
OR Songs.SONGPATH Like '`%%Suche%`%'
OR Songs.EXTENSION Like '`%%Suche%`%'
OR Songs.Genre Like '`%%Suche%`%'
OR Songs.AUTHOR Like '`%%Suche%`%'
OR Songs.CUSTOM1 Like '`%%Suche%`%'
OR Songs.CUSTOM2 Like '`%%Suche%`%'
OR Songs.CUSTOM3 Like '`%%Suche%`%'
OR Songs.CUSTOM4 Like '`%%Suche%`%'
OR Songs.CUSTOM5 Like '`%%Suche%`%'
OR Songs.PUBLISHER Like '`%%Suche%`%'
OR Songs.ENCODER Like '`%%Suche%`%'
OR Songs.LYRICIST Like '`%%Suche%`%'
OR Songs.CONDUCTOR Like '`%%Suche%`%'
OR Songs.REMIXER Like '`%%Suche%`%'
OR Songs.INVOLVEDPEOPLE Like '`%%Suche%`%'
OR Songs.SUBTITLE Like '`%%Suche%`%'
OR Songs.COMMENT Like '`%%Suche%`%')
; </bei der Suche beruecksichtigte Felder>
MM.MainTracksWindow.AddTracksFromQuery(SQL)
MM.MainTracksWindow.FinishAdding
; IMPORTANT!! Restore original node type
MM.MainTree.CurrentNode.NodeType := originalNodeType
return
ExitSub:
MM:=""
ExitApp
; # ID ARTIST IDALBUM ALBUM ALBUMARTIST DISCNUMBER TRACKNUMBER EPISODENUMBER SEASONNUMBER ACTORS PRODUCER SONGTITLE SONGPATH EXTENSION YEAR GENRE FILELENGTH SONGLENGTH IDMEDIA CACHESTATUS CACHENAME RATING BITRATE SEEKABLE BROADCAST PREVIEWSTATE PREVIEWNAME PREVIEWSTARTTIME PREVIEWLENGTH AUTHOR SAMPLINGFREQUENCY STEREO VBR BPM SIGNTYPE SIGNPART1 SIGNPART2 SIGNPART3 SIGNPART4 PLAYCOUNTER LASTTIMEPLAYED AUDIOCDTRACK FILEMODIFIED TRACKMODIFIED MAXSAMPLE NORMALIZETRACK NORMALIZEALBUM CUSTOM1 CUSTOM2 CUSTOM3 CUSTOM4 CUSTOM5 DATEADDED ORIGFILELENGTH PREGAP POSTGAP TOTALSAMPLES PLAYBACKPOS STARTTIME STOPTIME SKIPCOUNT GAPLESSBYTES IDFOLDER IDEPISODE TRACKTYPE VIDEOWIDTH VIDEOHEIGHT FRAMERATE COPYRIGHT PUBLISHER ENCODER LYRICIST CONDUCTOR REMIXER INVOLVEDPEOPLE ORIGTITLE ORIGARTIST ORIGLYRICIST PARENTALRATING GROUPDESC SUBTITLE ISRC INITIALKEY LANGUAGE WEBCOMMERCIAL WEBCOPYRIGHT WEBFILEPAGE WEBARTIST WEBSOURCE WEBRADIO WEBPAYMENT WEBPUBLISHER WEBUSER CONTAINERTYPE STREAMCOUNT STREAMINFO ORIGYEAR TEMPO MOOD OCCASION QUALITY LYRICS COMMENT
Danke Lowlander.
Notbehelf auf eigene Gefahr:
[code]; Das AutoHotKey-Script sucht einzelene Wortteile, ohne eine Zwangsbindung an den Wortbeginn.
; Es selektiert die Fundstellen in einer neuen Liste.
; Leerzeichen Strichpunkte Sonderzeichen werden nicht unterstuetzt bzw. sind nicht getestet.
; Bedienung: nach der Tastenkombination [Fenster] [S] kann ein Wort(teil) eingegeben werden.
; PS. AutoHotKey muss dazu nicht installiert werden, wenn man sich eine aktuelle AutoHotKey.exe Version 1.hoechste besorgt
; http://ahkscript.org und diese umbenennt, sodass sie gleichnamig ist wie das Skript (im selben Ordner).
; Nun kann man die Exe ohne Installation starten.
#Persistent
MM := ComObjCreate("SongsDB.SDBApplication")
MM.ShutdownAfterDisconnect:=false
suche=Walzer
return
#s:: ; Tastenkombination kann geaendert werden
InputBox,Suche,Suche,über alle Datenbankeinträge,,,,,,,,%suche%
originalNodeType := MM.MainTree.CurrentNode.NodeType
; Clear current tracks from window
MM.MainTree.CurrentNode.NodeType := 12
MM.MainTracksWindow.Refresh
; <bei der Suche beruecksichtigte Felder> ; kann individuell angepasst werden
sql = WHERE (Songs.SONGTITLE Like '`%%Suche%`%'
OR Songs.ARTIST Like '`%%Suche%`%'
OR Songs.ALBUM Like '`%%Suche%`%'
OR Songs.ALBUMARTIST Like '`%%Suche%`%'
OR Songs.ACTORS Like '`%%Suche%`%'
OR Songs.PRODUCER Like '`%%Suche%`%'
OR Songs.SONGPATH Like '`%%Suche%`%'
OR Songs.EXTENSION Like '`%%Suche%`%'
OR Songs.Genre Like '`%%Suche%`%'
OR Songs.AUTHOR Like '`%%Suche%`%'
OR Songs.CUSTOM1 Like '`%%Suche%`%'
OR Songs.CUSTOM2 Like '`%%Suche%`%'
OR Songs.CUSTOM3 Like '`%%Suche%`%'
OR Songs.CUSTOM4 Like '`%%Suche%`%'
OR Songs.CUSTOM5 Like '`%%Suche%`%'
OR Songs.PUBLISHER Like '`%%Suche%`%'
OR Songs.ENCODER Like '`%%Suche%`%'
OR Songs.LYRICIST Like '`%%Suche%`%'
OR Songs.CONDUCTOR Like '`%%Suche%`%'
OR Songs.REMIXER Like '`%%Suche%`%'
OR Songs.INVOLVEDPEOPLE Like '`%%Suche%`%'
OR Songs.SUBTITLE Like '`%%Suche%`%'
OR Songs.COMMENT Like '`%%Suche%`%')
; </bei der Suche beruecksichtigte Felder>
MM.MainTracksWindow.AddTracksFromQuery(SQL)
MM.MainTracksWindow.FinishAdding
; IMPORTANT!! Restore original node type
MM.MainTree.CurrentNode.NodeType := originalNodeType
return
ExitSub:
MM:=""
ExitApp
; # ID ARTIST IDALBUM ALBUM ALBUMARTIST DISCNUMBER TRACKNUMBER EPISODENUMBER SEASONNUMBER ACTORS PRODUCER SONGTITLE SONGPATH EXTENSION YEAR GENRE FILELENGTH SONGLENGTH IDMEDIA CACHESTATUS CACHENAME RATING BITRATE SEEKABLE BROADCAST PREVIEWSTATE PREVIEWNAME PREVIEWSTARTTIME PREVIEWLENGTH AUTHOR SAMPLINGFREQUENCY STEREO VBR BPM SIGNTYPE SIGNPART1 SIGNPART2 SIGNPART3 SIGNPART4 PLAYCOUNTER LASTTIMEPLAYED AUDIOCDTRACK FILEMODIFIED TRACKMODIFIED MAXSAMPLE NORMALIZETRACK NORMALIZEALBUM CUSTOM1 CUSTOM2 CUSTOM3 CUSTOM4 CUSTOM5 DATEADDED ORIGFILELENGTH PREGAP POSTGAP TOTALSAMPLES PLAYBACKPOS STARTTIME STOPTIME SKIPCOUNT GAPLESSBYTES IDFOLDER IDEPISODE TRACKTYPE VIDEOWIDTH VIDEOHEIGHT FRAMERATE COPYRIGHT PUBLISHER ENCODER LYRICIST CONDUCTOR REMIXER INVOLVEDPEOPLE ORIGTITLE ORIGARTIST ORIGLYRICIST PARENTALRATING GROUPDESC SUBTITLE ISRC INITIALKEY LANGUAGE WEBCOMMERCIAL WEBCOPYRIGHT WEBFILEPAGE WEBARTIST WEBSOURCE WEBRADIO WEBPAYMENT WEBPUBLISHER WEBUSER CONTAINERTYPE STREAMCOUNT STREAMINFO ORIGYEAR TEMPO MOOD OCCASION QUALITY LYRICS COMMENT
[/code]