Thanks guys:
That script looks like it might do the trick, but returns many errors when run as a .VS file.
Unfortunately i'm not very au fait with scripting so not sure what is required to fix it. I'll paste it here for reference nevertheless and in case anyone can see what might be required to fix it or indeed suggest what i'm doing wrong.
PROCEDURE FindRenameClasses; { Modded by Andrew Chau based on Renameclasses by ? Petri Sakkinen 1997 - 2009 }
VAR
className, newName, cs1, cs2 {cs1 is the trigger or to be replaced, cs2 is the replacement} : STRING;
i, j, n : INTEGER;
BEGIN
cs1:=StrDialog(Concat('Find text string in class name to rename...',Chr(13),Chr(13),'Find:'), 'S_');
IF NOT DidCancel THEN cs2:=StrDialog(Concat('Rename text string in class name...',Chr(13),Chr(13),'Replace:'),'X_S-');
j := LEN(cs1);
FOR i := 3 TO CLASSNUM DO BEGIN
className := CLASSLIST(i);
n := POS(cs1, className);
IF (n=1) THEN BEGIN
newName := className;
DELETE(newName, 1, j);
RENAMECLASS(className, CONCAT(cs2, newName));
END;
END;
END;
RUN(FindRenameClasses);
In this instance I saved it as a text file on the desktop and changed the file extension to .vs so the file is now called FindRenameClasses.vs and then within VW Spotlight 2017 using the Tools > Plugins > Run Script command, found the file and hit okay. It then stops with an error.