This formula's pretty messy, but here's something that may work:

=SUBSTITUTE(SUBSTITUTE(REPLACE(A1,1,MAX(IFERROR(SEARCH({0,0,"JAN","JANS","JANTX","JANTXV"},A1),)*COLUMN(A:F)),),"/",),"TR",)&INDEX({0,0,"JAN","JANS","JANTX","JANTXV"},MAX(IFERROR(SEARCH({0,0,"JAN","JANS","JANTX","JANTXV"},A1),)*COLUMN(A:F)))

You need to confirm it with ctrl+shift+enter since it is an array formula. As it is, it refers to data in cell A1.

I will work on this a little bit more to see if I can clean it up at all.