Help with a script needed !

Post a reply


In an effort to prevent automatic submissions, we require that you complete the following challenge.
Smilies
:D :) :( :o :-? 8) :lol: :x :P :oops: :cry: :evil: :roll: :wink:

BBCode is ON
[img] is ON
[flash] is OFF
[url] is ON
Smilies are ON

Topic review
   

Expand view Topic review: Help with a script needed !

Update song tags itself?

by Lowlander » Tue Oct 21, 2003 11:57 am

Does a script like this also update the tags in the file itself or just in the DB?

by mockturtle » Tue Oct 21, 2003 1:12 am

Look at this post (http://www.songs-db.com/forum/viewtopic.php?t=426), there is an IDL definition of all exported objects. It's not much, there isn't any description of them, but together with the examples it should be enough for making new scripts.

Jiri

by Apopsis » Tue Oct 21, 2003 12:32 am

Thank you Jiri - its working now !

Can you please tell me how to name the other fields
(i want to make some simillar scripts)

Filename, Path, Artist, Title, Genre, etc
I tried the ''Filename'' field like ''itm.Filename'' or ''itm.FilenameLabel''
and did not worked

by mockturtle » Mon Oct 20, 2003 7:29 am

There is a problem in the line assigning Media label to the custom field, which should look like:

itm.Custom1 = itm.MediaLabel

Jiri

Help with a script needed !

by Apopsis » Mon Oct 20, 2003 5:17 am

Help with a script needed !
I have no experience with visual basic
I want to make a simple script to copy the ''media'' field of every song
in the database (or selected songs) to the custom 1 field(s).
I take as a reference the ''SwapTitleArtist'' script, because it looks similar.
Added in the Scripts.ini file the lines :

[CopyMedia2custom1]
FileName=CopyMedia2custom1.vbs
ProcName=CopyMedia2custom1
Order=3
DisplayName=&Copy Media to custom 1
Description=Copy Media content to custom 1 field
Language=VBScript
ScriptType=0


After that, i modified the ''SwapTitleArtist.vbs''
and made the file ''CopyMedia2custom1.vbs'' in the scripts directory.
whith these lines inside :

' A simple script that copy the content of media field to custom 1 field of selected tracks

Sub CopyMedia2custom1
' Define variables
Dim list, itm, i, tmp

' Get list of selected tracks from MediaMonkey
Set list = SDB.SelectedSongList
If list.count=0 Then
Set list = SDB.AllVisibleSongList
End If

' Process all selected tracks
For i=0 To list.count-1
Set itm = list.Item(i)

' copy the fields
itm.Custom 1 = itm.Media

' Update the changes in DB
itm.UpdateDB
Next
End Sub


The script appear now in the scripts menu, but it give me some errors when i run it.
What is wrong ? Am i missing something ?

Thanks, (and sorry for my bad english !)

Top