Auto Rating of Songs & Radio Announcer v5.02 [Script]

[DiddeLeeDoo]

Tried that, (you'll find how a bit back in this thread)
But it becomes very annoying seeing the screen jump like that after each song. Would be so nice to target that one song only, and ensure that it get updated using the 'front-door'.... it's sort of a 'back-door' operation at the moment.

[Steegy]

Indeed, "front-door" *is* the way to go.
(other reasons already explained in my previous post)

This will work:

Code: Select all

            Dim MySongIter, MySong, strWhere
            strWhere = "AND Songs.ID=" & LastSongsID
            Set MySongIter = SDB.Database.QuerySongs(strWhere)
            If Not MySongIter.EOF Then
                Set MySong = MySongIter.Item
                MySong.Rating = 50
                MySong.UpdateDB
            End If

I forgot that the QuerySongs function returns a SDBSongIterator object, not a SDBSongData object.
To get the SDBSongData object from the iterator, you have to use .Item
So "songdata = songiterator.Item"
(it's all in the scripting reference, if you were wondering how I knew that)

What the code does:
-Declaring the variables (using Dim)
-Using QuerySongs, getting the SDBSongIterator object, filled with all SDBSongData objects that suit the strWhere condition(s).
-Check if there is an entry in the iterator (in this case, check if there really was a song with ID = LastSongsID) so there will never be an error if you supply a wrong LastSongsID.
-Get the current (first and only) SDBSongData object from the iterator (using .Item), and call it MySong.
-Change the rating for the song's object.
-Let MM update the database (and internal data and GUI and file tags).
(make sure you understand every line of code you write)

BTW: Pablo hasn't been seen here for months, so probably he won't respond to your message anymore. (It's him that wrote the MagicNodes script, now becoming out-of-date).

Cheers
Steegy

[DiddeLeeDoo]

I'll give it a try right aways... Currently trying to reduce the code, and correct some errors done in timing issues.

Old code

Code: Select all

REMOVED

and I'll try your so very much appreciated suggestion....

Testing version.

Code: Select all

REMOVED

[DiddeLeeDoo]

YAAAAAAAAAAAAAHHHHHHHHHOOOOOOOOOOO!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!




There's a very happy boy 'down under' at the moment.

Thank you STEEGY!!!!!!!!!

I'll write a new version right aways.........

[judas]

Love it...congrats DiddeLeeDoo...and thx steegy!

judas

EDIT: What happened to the %played thing?

[DiddeLeeDoo]

I removed the 'played percentage in the version above'

That may have been a mistake.

Situation;
Stop playing a song in the middle of the song.
Start playing another song later...

The current version above will believe that you skipped that stopped song, so I need to get in that percentage thing in again... Version above is just a testing project. You'll see the cool screen update Steegy is responsible for.. What a gem!

[judas]

yah....i noticed the update...its beautiful allthough i can't appreciate the beauty of the code itself

cheers

[Guest]

so ya down under are ya?

thats were a lot of people are this time of the year.

down under the weather ha hah just a joke.

will see what this new script is like i will put it on this xp. and test here first

roving cowboy / keith hall.

[DiddeLeeDoo]

Here it goes, a new version to test.

Installation procedure:
That is, if you haven not tried one of the earlier versions.
If you already did the scripts.ini section, you just replace text in the
AutoRateSongs.vbs file

Exit MM

Edit \scripts\scripts.ini file
Add section

Code: Select all

REMOVED


Then the script, should be \Scripts\AutoRateSongs.vbs
Note: There are some options (parameters) there to
consider/modify, and then you forget about it, and see
your collection get rated as you go.

Code: Select all

REMOVED

[DiddeLeeDoo]

down under the weather ha hah just a joke.
roving cowboy / keith hall.

The weather is too nice. When living in north europe, we could at least bitch and complain about the weather. You cannot down here. A weird change really. People are too nice too, friendly all the time. Appreciate the bitching you have. I sort of miss it, it unites...

Anyways, hope the script works out. May have bugs, and have no fancy option sheet at the moment. I plan to just lay back a bit, and take a break from this and just see it do the ratings. (bit tired I guess, it's very dark here at the moment) A million thanks to Steegy! I tried to figure out how to get that update to screen to work, but that was not that easy to figure out...

I welcome any improvements from anyone. Like it would be nice to have the log file stored in the \scripts\ folder and other stuff. It may even have bugs. Time to test I guess. The script only touch the rating field by the way, and should behave well together with other stuff...

[Steegy]

it would be nice to have the log file stored in the \scripts\ folder

Well, you can use

Code: Select all

Dim DataFileLocation
DataFileLocation = """" & SDB.ApplicationPath & "Scripts\AutoRateSongs.dat"""

BTW: To natively use a " in a string, you have to double it. You can also insert it with the method Chr(34) (I'm not sure about the 34).


Actually, it's a data file, and not a log file. For that, if you would move the file to the Scripts folder, please also change the extension to .dat
One of the reasons is that log files just contain logs (unneccessary information), they are almost never used as data. Log files can get deleted by "hard disk cleaners" and similar software (that delete all *.log files), and that would mean that your data file would be gone too...

Cheers
Steegy

[rovingcowboy]

well i came to say WOW i did not want the auto refresh or think that i needed it but it sure is nice to sit and watch it change on the playlist and on the now playing playlist..

will put it on the 24/7 computer in a few minutes.

great job of it i don't see anything that will make any errors show up for me but that can always change you know.

[Steegy]

Off-topic but here it comes anyway:

Some posts up, I said that Pablo has been away for a long time, well.............. HE'S BACK!!!

Welcome back Pablo!

[DiddeLeeDoo]

Good to see Pablo is back!

I do not know the history there, but if he was one of those real major resources of knowledge, maybe his brain got picked dry ?

Anyways, I just discovered a timing issue. Like when do MM really register a song to be played. It seems to be at the 50% mark or something like that. So if you find a song to no be degraded even if skipped at 60% that may be the reason.

Just something to be aware about.

Next version will certainly get a .dat file. A very good idea, and the .dat should be together with the script.

Just need to give it a break and give it some testing, as those things are not really critical. Updating the database/screen was critical, and I've just had the best night sleep, knowing that was fixed.!

Need to play catch-up with life, so today I plan just playing music, and get on with life.... sure to be back when catch-up is done...

[Pablo]

Welcome back Pablo!

Thanks!!!

I think Jiri said that the play counter is increased after a third (or 30%) has played.

I'm still catching up with all the great new scripts. I'll probably give this one a pass because there are many songs I love and give a high rating but I only listen to in some special occasions/moods. So even though I don't listem to them that often and skip them, I still want them to keep their high rating. But this is a cool script!

My scripting skills are definitely rusty