e.g.
* with WM/SharedUserRating = 0, .ReadIDTagElementValue reports 2 and .AudioProperties reports 1
* with WM/SharedUserRating = 128 .ReadIDTagElementValue reports 10 and .AudioProperties reports 5
* with WM/SharedUserRating = 255, .ReadIDTagElementValue reports 10 and .AudioProperties reports 5
dbScripting.DLL 13.3.0.2
Demo vbscript
'' DMC Rating bug
filename= "tempratingset.wma"
r = 0
dMC.WriteIDTag filename,"Rating",r
WScript.StdOut.Write("Setting rating to "&r&vbCrLf)
For each e in Split(dMC.AudioProperties(filename) ,VbCr)
if Instr(e,"Rating :")<>0 then WScript.StdOut.Write(".AudioProps says: "&e&vbCrLf) ' for 0 reports 1!
next
For i = 0 To 10000
keyvalue = dMC.ReadIDTagElementValue(filename, i)
If Instr(keyvalue,"Rating:")<>0 then
WScript.StdOut.Write(".ReadIDTagElementValue says "&keyvalue&VbCrLf) '' for 0 reports 2!
exit For
end if
Next
* with WM/SharedUserRating = 0, .ReadIDTagElementValue reports 2 and .AudioProperties reports 1
* with WM/SharedUserRating = 128 .ReadIDTagElementValue reports 10 and .AudioProperties reports 5
* with WM/SharedUserRating = 255, .ReadIDTagElementValue reports 10 and .AudioProperties reports 5
dbScripting.DLL 13.3.0.2
Demo vbscript
'' DMC Rating bug
filename= "tempratingset.wma"
r = 0
dMC.WriteIDTag filename,"Rating",r
WScript.StdOut.Write("Setting rating to "&r&vbCrLf)
For each e in Split(dMC.AudioProperties(filename) ,VbCr)
if Instr(e,"Rating :")<>0 then WScript.StdOut.Write(".AudioProps says: "&e&vbCrLf) ' for 0 reports 1!
next
For i = 0 To 10000
keyvalue = dMC.ReadIDTagElementValue(filename, i)
If Instr(keyvalue,"Rating:")<>0 then
WScript.StdOut.Write(".ReadIDTagElementValue says "&keyvalue&VbCrLf) '' for 0 reports 2!
exit For
end if
Next
Comment