ReNamer:Scripts:Convert file content from ANSI to UTF-8

Convert the content of processed files from ANSI (default system code page) to UTF-8 encoding.

To prevent files from being processed more than once, we will insert the UTF-8 byte order mark (BOM) "0xEF 0xBB 0xBF" at the beginning of converted files and check for it before processing the file.

Tested

• ReNamer 5.74.7 Beta

Code

Author: Denis Kozlov. Date: 12 February 2014.

<source> var

 DataAnsi, DataUTF8, UTF8BOM: AnsiString;
 DataWide: WideString;

begin

 UTF8BOM := Chr($EF) + Chr($BB) + Chr($BF);
 DataAnsi := FileReadContent(FilePath);
 if Copy(DataAnsi, 1, Length(UTF8BOM)) <> UTF8BOM then
 begin  
   DataWide := AnsiToWide(DataAnsi);
   DataUTF8 := UTF8BOM + UTF8Encode(DataWide);
   FileWriteContent(FilePath, DataUTF8);
 end;

end. </syntaxhighlight>