Convert Strings in Variables [duplicate]

Question

I want to convert strings to variables. I want to create the term pionprodg1. I tried to do this:

particula ="pion";
ToExpression[particula <> "prodg1"]=MyTable1;

But there is a error:

Set::write: Tag ToExpression in ToExpression[pionprodg1] is Protected.

How can I solve this?

Answer 1

Try with this:

ToExpression[
    particula <> "prodg1",
    InputForm,
    Function[f, f = MyTable1, HoldAll]
]

Answer 2

The resource function ConvertStringsToSymbols is useful for this, but you need to use With to evaluate the symbol names:

With[{
  sym = "pion" <> "prodg1"
  },
 ResourceFunction["ConvertStringsToSymbols"][sym = 1, sym]
]