Program composer_to_Lyricist;
var
i, iCount: integer;
sComposer: string;
begin
iCount := on_getGrdRowCount;
if iCount = 0 then exit;
for i := 1 to iCount do begin
on_setGrdRow(i);
on_LoadFile;
sComposer := on_getGrdField( 'Composer' );
gTag.Lyricist := sComposer;
gTag.OrigLyricist := sComposer;
on_UpdateThis( false );
end;
on_setGrdRow(1);
end.
When I was trying the script in the new 0.85 beta the following error message appeared:
A few redundant online script functions have gone away due to the new unified grid, the help file is updated to reflect that.
I edited your script to the following, try it and let me know.
Program composer_to_Lyricist;
var
sComposer: string;
begin
if not tg_init then exit;
repeat
tg_loadFile;
sComposer := tg_getField( 'Composer' );
gTag.Lyricist := sComposer;
gTag.OrigLyricist := sComposer;
gTag.SavetoFile( 0, false, false );
until not tg_skip;
end.
With the newest beta from yesterday there is a strange behaviour. When clicking on the button to execute the script in the online panel nothing happens. All scripts can't be executed. Do I have to activate it or is it a bug?
.scl makes trouble (all files that come with TGF, the custom scripts I use are only modifications of the script I posted here, which means scripts to copy data from one tag field to another)
.sct is working (BTW: the script is executed very fast)