MediaMonkey forum

ZvezdanD wrote:

Alterx wrote:i'd like to Replace one custom field (let's say "Alternative Sort" field) with current value from "Artist" field and i want to swap "Surname, Name" to "Name Surname" (removing ",") but only if there is a "," in the source field

You want to modify two fields in same time using one preset which is not currently possible. However, you could get what you want using two existing presets:
1. Copy the Date when the file is last modified to the Date added field - just change fields with Into and From dropdown lists;
2. Swap the last and the first name of the Artist with removed ", ".

Alterx wrote:I want to modify just one field: Custom 5 (Alternative Sort)

RegSub(oSongData.ArtistName, "(.+?),(\s+)(.+?)($|\s&\s|;\s*)", "$3$2$1$4")

ZvezdanD wrote:

GIL wrote:Do you ever wish you could get the version 35.9 of this script from the year 2025?

I am not sure that (I) understand. Do you want to say that there are too many updates of this script or that its development is too slow?

GIL wrote:Couldn't wait for the variables, so I added this

Code: Select all

Dim Variables(9)

Function SetVariable(Number,Value)
Variables(Number) = Value
End Function

Could it be added to the official script?

Dim iVariable()
ReDim iVariable(0)
Dim oVariable
Set oVariable = CreateObject("Scripting.Dictionary")

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function SetVar(vVarName, vValue)
    If VarType(vVarName) = vbInteger Then
        If UBound(iVariable) < vVarName Then
            ReDim Preserve iVariable(vVarName)
        End If
        iVariable(vVarName) = vValue
    ElseIf oVariable.Exists(vVarName) Then
        oVariable.Item(vVarName) = vValue
    Else
        oVariable.Add vVarName, vValue
    End If
End Function

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function GetVar(vVarName)
    If VarType(vVarName) = vbInteger Then
        If UBound(iVariable) >= vVarName Then
            GetVar = iVariable(vVarName)
        Else
            GetVar = ""
        End If
    ElseIf oVariable.Exists(vVarName) Then
        GetVar = oVariable.Item(vVarName)
    Else
        GetVar = ""
    End If
End Function

you could write something like SetVar("My_variable", "some_value") and GetVar("My_variable")

GIL wrote:Will this be in the official script?

GIL wrote:"Find what" and "Replace with" fields should use a fixed width font

GIL wrote:You may have noticed there's a bug when working with functions that set variables
when using the function

Code: Select all

IIf(expr, truepart, falsepart)

Both truepart and falsepart seem to always be evaluated and call the funtcions in falsepart, like SetVariable, thus setting that variable when it should'nt

The expressions in the argument list can include function calls. As part of preparing the argument list for the call to IIf, the Visual Basic compiler calls every function in every expression. This means that you cannot rely on a particular function not being called if the other argument is selected by Expression.

Another issue with IIf arises because it is a library function: unlike the C-derived conditional operator, both truepart and the falsepart will be evaluated regardless of which one is actually returned.

GIL wrote:If you're adding a SetVariables to the script perhaps you should add this

Code: Select all

Function IIfx(expr, truepart, falsepart)
    If expr Then
        IIfx = Eval(truepart)
    Else
        IIfx = Eval(falsepart)
    End If
End Function