Справка MyChat

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

Вырезать подстроку из указанной строки до первого разделителя.

Синтаксис

function Fetch(var sOriginal:string; sDelimiter: string): string;

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

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

Возвращает "вырезанную" строку с первой позиции до разделителя. Разделитель в результат не включается. От начала исходной строки отрезается найденный кусок. Если разделитель — пустая строка, или его нет в исходной строке, то будет вырезана вся строка полностью.

Пример

const
  sText = 'You get a shiver in the dark|' +
          'It''s been raining in the park but meantime|' +
          'South of the river you stop and you hold everything|' +
          'A band is blowing Dixie double four time|' +
          'You feel all right when you hear|' +
          'That music ring';
var
  s, sMsg: string;
  i: integer;
begin
  s := sText;
  i := 0;
  
    while length(s) > 0 do begin
      sMsg := GetNextSt(s, '|');
      inc(i);
      mLogScript(sMsg, inttostr(i));
    end;
end.

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

[19:19:50] (Log "Fetch"): [1] You get a shiver in the dark

[19:19:50] (Log "Fetch"): [2] It's been raining in the park but meantime

[19:19:50] (Log "Fetch"): [3] South of the river you stop and you hold everything

[19:19:50] (Log "Fetch"): [4] A band is blowing Dixie double four time

[19:19:50] (Log "Fetch"): [5] You feel all right when you hear

[19:19:50] (Log "Fetch"): [6] That music ring

[19:19:50] (Run "Fetch"): Время выполнения скрипта: 6 мс

[19:19:50] (Run "Fetch"): Скрипт выполнен успешно.
 

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

Inc

Length

mLogScript