Блог

Я пытаюсь манипулировать строкой и извлекать из нее только определенные данные. Мне нужно сделать это для записи, извлеченной из базы данных, которая дает мне полное имя человека. Мне нужно извлечь только фамилию из строки и сохранить ее как переменную. Есть ли способ, которым я могу это сделать?

Пример: SQL-запрос извлекает полное поле «Мэри Эллен Джонс». Мне нужно извлечь только имя Джонса из строки, чтобы я мог сохранить его в переменной для дальнейшей обработки.

Я подумал, что, возможно, AnsiRightStr сработал бы, но проблема в том, что нужно присвоить ему заданное целое число для извлечения справа. Может быть, есть способ подсчета символов после последнего пробела, позволяющий мне использовать AnsiRightStr (string, int) для этого? Приветствуется любая помощь.

Дополнительная мысль: была бы возможна замена пробелов разделителем, скажем ::, а затем синтаксический анализ этих данных в Stringlist с последующим разрешением мне извлекать последний индекс списка строк?

На данный момент было представлено несколько допустимых вариантов. Ни один из них не решает ситуацию, если, скажем, имя что-то вроде «Джон Сент-Джеймс-младший». Это невозможно?

вы можете использовать LastDelimiter функцию, чтобы получить последнюю позицию пробела, а затем с помощью copy функции извлечь подстроку.

 uses
  SysUtils;


var
  Name      : string;
  p         : Integer;
  ShortName : string;
begin
  Name:='Mary Ellen Jones';
  //You can call trim to avoid problems with ending spaces in this case is not necesary, just is a test
  //Name:=Trim(Name); 
  //get the last space position
  p:=LastDelimiter(' ',Name);
  //get the name
  ShortName:=Copy(Name,p 1,length(Name)-p);
end;
  

или с помощью функции

 function GetLast(const Name:string) : string;
var
  p : Integer;
begin
  Result:=Trim(Name);
  p:=LastDelimiter(' ',Result);
  Result:=Copy(Result,p 1,length(Result)-p);
end;
  

 function GetLastWord(const Str: string): string;
var
  p: integer;
  i: Integer;
const
  SPACE = #$20;
begin
  p := 1;
  for i := length(Str) downto 1 do
    if Str[i] = SPACE then
    begin
      p := i   1;
      break;
    end;
  result := Copy(Str, p, MaxInt);
end;
  

Это приведет к сбою, если строка заканчивается (случайным) пробелом, как ‘Andreas Rejbrand’. Эта более надежная версия также справится с этим случаем:

 function GetLastWord(const Str: string): string;
var
  p: integer;
  i: Integer;
  FoundNonSpace: boolean;
const
  SPACE = #$20;
begin
  p := 1;
  FoundNonSpace := false;
  for i := length(Str) downto 1 do
    if (Str[i] = SPACE) and FoundNonSpace then
    begin
      p := i   1;
      break
    end
    else if Str[i] <> SPACE then
      FoundNonSpace := true;
  result := TrimRight(Copy(Str, p, MaxInt));
end;
  

Что, если фамилия, скажем, «Сент-Джеймс», как-нибудь это объяснить?

Вот мой подход.

1. Составьте список маркеров фамилий
2. Выполните поиск в этом списке в порядке предпочтения
3. Как только будет найдено совпадение, отметьте его как начало фамилии
4. Верните подстроку, начинающуюся с этого поз.

var 
 LastNameMarkers: TStringList = nil;
 Исправление суффикса: TStringList = nil;

 procedure InitLists;
begin
  LastNameMarkers:= TStringList.Create;
  //LastNameMarkers.LoadFromFile('c:markers.txt');
  LastNameMarkers.Add(' St.');
  LastnameMarkers.Add(' Mc');
  LastNameMarkers.Add(' '); //Marker of last resort.
  SuffixFix:= TStringList.Create;
  SuffixFix.Add(' Jr.');
  SuffixFix.Add(' Sr.');
end;

function GetLastName(FullName: string): string;
var
  i: integer;
  start: integer;
  found: boolean;
  ReplaceWith: string;
begin
  if LastNameMarkers = nil then InitLists;

  //Fix suffixes
  i:= 0;
  found:= false;
  while (i < SuffixFix.Count) and not found do begin
    start:= pos(lower(LastNameMarkers[i]),lower(Fullname));
    found:= Start > 0;
    Inc(i);
  end; {while}
  if Found then begin 
    Dec(i);
    ReplaceWith:= StringReplace(Suffix[i], ' ', '_',[]);
    FullName:= StringReplace(FullName, SuffixFix[i], ReplaceWith,[]);
  end; {if}

  //Look for lastnames 
  i:= 0;
  found:= false;
  while (i < LastNameMarkers.Count) and not found do begin
    start:= pos(LastNameMarkers[i],Fullname);
    found:= Start > 0;
    Inc(i);
  end; {while}

  if found then Result:= RightStr(FullName, Length(FullName)- Start   2)
  else Result:= '';

  StringReplace(Result, '_', ' ',[]);
end;
  

Я не разобрался должным образом с верхним и нижним регистром, но я надеюсь, что вы поняли идею.

 function TfrmCal.GetLastName(FullName: string): string;
var
    i: integer;
    found: boolean;
    suffix: string;
    marker: string;
begin
    // Build the lists for the compare.
    InitLists;

    // Look at Suffixes and attach them to the LastName
    i := 0;
    found := False;
    while (i < SuffixFix.Count) do
    begin
        if AnsiContainsStr(FullName, SuffixFix[i]) then
        begin
            suffix := '::'   trim(SuffixFix[i]);
            FullName := ReplaceStr(FullName, SuffixFix[i], suffix);
            found := True;
        end;
        inc(i);
        if found then
            break;
    end;
    // Look for LastName Markers
    i := 0;
    found := False;
    while (i < LastNameMarkers.Count) do
    begin
        if AnsiContainsStr(FullName, LastNameMarkers[i]) then
        begin
            marker := trimright(LastNameMarkers[i])   '::';
            FullName := ReplaceStr(FullName, LastNameMarkers[i], marker);
            found := True;
        end;
        inc(i);
        if found then
            break;
    end;

    FullName := GetLastWord(FullName);
    FullName := ReplaceStr(FullName, '::', ' ');
    LastNameMarkers.Clear;
    SuffixFix.Clear;
    Result := FullName;
end;

function TfrmCal.GetLastWord(const Str: string): string;
var
    p: integer;
    i: integer;
const
    SPACE = #$20;
begin
    p := 1;
    for i := Length(Str) downto 1 do
        if Str[i] = SPACE then
        begin
            p := i   1;
            break;
        end;
    Result := Copy(Str, p, MaxInt);
end;
  

Эти две функции вместе выполняют то, что мне нужно было сделать. Существует также функция initlists, которая неуклюжа и уродлива, и мне нужно поработать над ней, поэтому я не разместил ее здесь.