如何从字符串中删除字符直到第一个字符是字母？

Question

我有一个使用字符串（Pascal）的程序。读取字符串后，如果第一个字符不是字母，那么我需要删除所有第一个字符，直到第一个字符是字母。我曾多次尝试编写它，但它总是删除所有字符串或什么也不删除。

如果程序读取“123%^&abc”，则结果应为“abc” 在 ASCII 表中，字母是从 65..90 到 97..122

这就是我的距离：

variables    a: set of 65..90;
             b: set of 97..122;
-------------------
  bool:=false;
  While (bool=false) do
  begin
    Writeln(s[1]);
    If (Ord(s[1]) in a) or (Ord(s[1]) in b) then
    begin
    bool:=true;
    end else
    delete(s,1,1);
  end;

我不明白为什么它不起作用？ 你能帮我完成这个小程序吗？谢谢。

Answer 1

您可以执行

function RemoveNonAlphaASCIIFromStart(const Str: AnsiString): AnsiString;
const
  ALPHA = ['A'..'Z', 'a'..'z'];
var
  i: Integer;
  firstIndex: integer;
begin
  result := '';
  firstIndex := 0;
  for i := 1 to length(Str) do
    if Str[i] in ALPHA then
    begin
      firstIndex := i;
      break;
    end;
  if firstIndex > 0 then
    result := Copy(Str, firstIndex, length(Str));
end;

or 作为一个过程

procedure RemoveNonAlphaASCIIFromStart(var Str: AnsiString);
const
  ALPHA = ['A'..'Z', 'a'..'z'];
var
  i: Integer;
  firstIndex: integer;
begin
  firstIndex := 0;
  for i := 1 to length(Str) do
    if Str[i] in ALPHA then
    begin
      firstIndex := i;
      break;
    end;
  if firstIndex > 0 then
    Delete(Str, 1, firstIndex - 1)
  else
    Str := '';
end;

对于更复杂的方法，也可以使用 Unicode Delphi，请参阅

那么，为什么你的算法不起作用？嗯，它应该有效，而且对我也有效。但请注意，它可以用稍微更优雅的形式编写

const
  ALPHA = ['A'..'Z', 'a'..'z'];

while true do
  if (length(s) = 0) or (s[1] in ALPHA) then
    break
  else
    delete(s, 1, 1);

。但是，OP 的原始代码有一个问题是，如果 s 是空字符串，它将失败。事实上，s[1] 不存在。如果 s 完全由非字母字符组成（例如 '!"#¤%），它也不起作用。

Answer 2

尽管以前的解决方案确实有效，但效率非常低。由于2个原因：
1. 在集合中搜索非常耗时
2. 每次从字符串中删除一个字符效率更低，因为字符串（对象）必须在内部删除该字符并调整其数组等。

理想情况下，您将字符串转换为 PChar 并使用它，同时检查“手动”字符范围。我们将让搜索一直运行，直到找到第一个字母，然后才调用 DeleteString 方法。这是我的方法的演示：

procedure Frapp;
var
  TheString: string;
  pcStr: PChar;
  StrLen, I: Integer;
begin
  TheString := '123%^&abc';
  StrLen := Length(TheString);
  pcStr := PChar(TheString);

  for I := 0 to StrLen - 1 do
  begin
    if ((pcStr^ >= #65) and (pcStr <= #90)) or ((pcStr >= #97) and (pcStr <= #122)) then
    begin
      Delete(TheString, 1, I);
      Break;
    end;
    Inc(pcStr);
  end;
end;