0

Функция ищет все числовые значения в строках. Как сделать что бы функция искала только числовые значения длина которых равна = 5.

То есть строка состоит из:

12345 FC-text212 12345FC-text212

На выходе нужно получить:

12345
12345

Функция:

function StripNonConforming(const S: string;
  const ValidChars: TCharSet): string;
var
  DestI: Integer;
  SourceI: Integer;
begin
  SetLength(Result, Length(S));
  DestI := 0;
  for SourceI := 1 to Length(S) do
    if S[SourceI] in ValidChars then
    begin
      Inc(DestI);
      Result[DestI] := S[SourceI]
    end;
  SetLength(Result, DestI)
end;

Пыталась сделать вот так:

if Length(S) = 5 then

Но результат не отображается...

Использую функцию вот так:

Memo2.Text := StripNonConforming(S1, ['0'..'9']);
3
  • 1
    вам задачу надо решить, или решить с помощью вот этих посимвольных операций? Если решить, то это задача для регулярных выражений.
    – teran
    16 апр 2020 в 19:52
  • @teran, Задачу решить. То есть этой функцией я не получу результат ? 16 апр 2020 в 19:55
  • 1
    ваша функция в исходном виде просто копирует все цифры в новую строку. Зачем вы пытаетесь проверить длину S = 5 не ясно. ведь S это входная строка, она явно не длины 5. Есть более подходящие инструменты для решения данной задачи. Ознакомьтесь с принципами построения регулярных выражений, протестируйте их на regex101.com и используйте TRegEx для решения задачи
    – teran
    16 апр 2020 в 20:01

1 ответ 1

1
procedure Extract5Digits(const s: string; res: TStrings);
var
  i: integer;
  start: integer;
begin
  res.Clear;
  start := -1;
  for i := Low(s) to High(s) do
    if (s[i] in ['0'..'9']) then begin
      if start < 0 then
      start := i;
    end else begin
      if (start > 0) and (i - start = 5) then
        res.Add(Copy(s, start, 5));
      start := -1;
    end;
  if (start > 0) and (Length(s) - start = 4) then
        res.Add(Copy(s, start, 5));
end;
2
  • А использовать функцию вот так ? Memo2.Text := Extract5Digits(S1); 17 апр 2020 в 8:58
  • 1
    Это не функция, а процедура. Результат работы - второй аргумент, в качестве его можно использовать Memo.Lines или другой объект типа TStrings
    – MBo
    17 апр 2020 в 12:36

Ваш ответ

Нажимая на кнопку «Отправить ответ», вы соглашаетесь с нашими условиями использования и подтверждаете, что прочитали и поняли наши политику конфиденциальности и нормы поведения.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.