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

"Для разработчиков", "Серверные скрипты", "Описание функций", "Строки", "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.