主页 / 问题 / 1111434
Accepted
Татьяна
Asked:2020-04-17 03:47:41 +0000 UTC2020-04-17 03:47:41 +0000 UTC

查找数值

  • 772

该函数搜索字符串中的所有数值。如何使函数只查找长度为 = 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']);
delphi

1 个回答

  1. Best Answer
    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;
    • 1

相关问题