MyChat Scripts: функция SaveTextToFile, сохранить текст в файл в указанной кодировке

MyChat Scripts: функция SaveTextToFile, сохранить текст в файл в указанной кодировке

Сохранить текст в файл в указанной кодировке. Если файл существовал до этого, он будет перезаписан поверху.

 

Синтаксис

function SaveTextToFile(sFileName, sText: string; iEncodingType: integer): int64;

 

Параметры и возвращаемые значения

Параметр

Тип

Значение

sFileName

string

имя текстового файла с полным путём к нему;

sText

string

содержимое, которое следует сохранить в файл;

iEncodingType

integer

тип кодировки файла, число.

 

Результат функции

Результат

Значение

>=0

всё Ок, файл успешно сохранён, функция возвращает размер в байтах;

-1

ошибка при сохранении файла, указано неправильное имя, нет места на диске или другая ошибка.

 

Пример

Функция читает содержимое текстового файла в формате UTF-8 из C:\Temp\testmessage.txt, затем выводит результат в консоль, используя декодирование и не используя его (файл должен существовать, можете создать его вручную для теста или скачать).

var
  sText: array[1..7] of string;
  sOut: string;
  i, iSize: integer;
begin
  sText[1] := 'There''s a lady who''s sure';
  sText[2] := 'All that glitters is gold';
  sText[3] := 'And she''s buying a stairway to heaven';
  sText[4] := 'When she gets there she knows';
  sText[5] := 'If the stores are all closed';
  sText[6] := 'With a word she can get what she came for';
  sText[7] := 'Oh oh oh oh and she''s buying a stairway to heaven';
  
  sOut := '';
  
    for i := 1 to 7 do sOut := sOut + sText[i] + CRLF;
  
  mLogScript(sOut, '');
  mLogScript('Size: ' + IntToSTr(sOut) + ' bytes', '');
  
  iSize := SaveTextToFile('c:\temp\stairway-to-heaven-utf-16.txt', sOut, 3);
  
  mLogScript('Size on the disk in big-endian UTF-16 format: ' + IntToStr(iSize) + ' bytes', '');
end.

 

Результат работы скрипта

[17:28:18] (Log "SaveTextToFile"): There's a lady who's sure

All that glitters is gold

And she's buying a stairway to heaven

When she gets there she knows

If the stores are all closed

With a word she can get what she came for

Oh oh oh oh and she's buying a stairway to heaven

[17:28:18] (Log "SaveTextToFile"): Size: 248 bytes

[17:28:18] (Log "SaveTextToFile"): Size on the disk in big-endian UTF-16 format: 498 bytes

[17:28:18] (Run "SaveTextToFile"): Время выполнения скрипта: 11 мс

[17:28:18] (Run "SaveTextToFile"): Скрипт выполнен успешно.

 

Ещё посмотреть

IntToStr

mLogScript