MyChat Scripts: функция LoadTextFromFile, загрузить текст из файла

MyChat Scripts: функция LoadTextFromFile, загрузить текст из файла

Загрузить содержимое текстового файла в переменную типа string с указанием кодировки файла.

 

Синтаксис

function LoadTextFromFile(sFileName: string; iEncodingType: integer): string;

 

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

Параметр

Тип

Значение

sFileName

string

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

iEncodingType

integer

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

 

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

Если файл существует и прочитался без ошибок, функция вернёт его содержимое, иначе будет возвращена пустая строка.

 

Пример

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

const
  TEST_FILE = 'c:\temp\testmessage.txt';
var
  s: string;
begin
  if FileExists(TEST_FILE) then begin
    s := LoadTextFromFile(TEST_FILE, 0);
    mLogScript(s, 'AS IS');

    s := LoadTextFromFile(TEST_FILE, 6);
    mLogScript(s, 'UTF8');
  end;  
end.

 

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

[11:09:22] (Log "LoadTextFromFile"): [AS IS] Привет! Это тестовое сообщение в формате UTF8!

[11:09:22] (Log "LoadTextFromFile"): [UTF8] Привет! Это тестовое сообщение в формате UTF8!

[11:09:22] (Run "LoadTextFromFile"): Время выполнения скрипта: 6 мс

[11:09:22] (Run "LoadTextFromFile"): Скрипт выполнен успешно.

 

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

FileExists

mLogScript