MyChat Scripts: функция TStringList.LoadFromFile, загрузить текст в список из файла

"Для разработчиков", "Серверные скрипты", "Описание функций", "Строки", "TStringList", "Методы", "LoadFromFile".

Загрузить в список текстовый файл с диска.

Синтаксис

procedure TStringList.LoadFromFile(sFileName: string);

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

Параметр	Тип	Значение
sFileName	string	название текстового файла с полным путём.

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

Пример

Подсчёт количества уникальных слов в песне.

const
LYRICS = 'C:\Text\Wicked Game.txt';
REMOVE_SYMBOLS = '.,()';

function GetClearLine(sInput: string): string;
var
s: string;
j: integer;
begin
s := LowerCase(Trim(sInput));
if length(s) > 0 then
for j := 1 to length(REMOVE_SYMBOLS) do
s := ReplaceString(s, REMOVE_SYMBOLS[j], '', true, false);

result := s;
end;
var
SLData, SLWords: TStringList;
sLine, sItem, sOut: string;
i: integer;
begin
SLData := TStringList.Create;
SLData.LoadFromFile(LYRICS);

SLWords := TStringList.Create;
SLWords.Sorted := true;
SLWords.Duplicates := dupIgnore;

for i := 0 to SLData.Count - 1 do begin
sLine := GetClearLine(SLData[i]);

while length(sLine) > 0 do begin
sItem := Fetch(sLine, ' ');
SLWords.Append(sItem);
end;
end;

mLogScript(CRLF + SLData.Text, 'Original text');
mLogScript('Unique words count is: ' + IntToStr(SLWords.Count), '');

sOut := '';

if SLWords.Count > 0 then
for i := 0 to SLWords.Count - 1 do begin
sOut := sOut + SLWords[i] + ' ';

if (i + 1) mod 10 = 0 then begin
mLogScript(sOut, '');
sOut := '';
end;
end;

if length(sOut) > 0 then mLogScript(sOut, '');

SLData.Free;
SLWords.Free;
end.