Vérifier si une chaîne contient un mot, mais seulement dans certaines position?

Comment puis-je vérifier si une chaîne contient une sous-chaîne, mais seulement dans une position?

Exemple de chaîne:

Qu'est-ce que votre préféré couleur? mon [préféré] la couleur est bleu

Si je voulais vérifier si la chaîne de caractères contenue un mot spécifique, j'ai l'habitude de le faire:

var
  S: string;
begin
  S := 'What is your favorite color? my [favorite] color is blue';
  if (Pos('favorite', S) > 0) then
  begin
    //
  end;
end;

Ce dont j'ai besoin est de déterminer si le mot préféré existe dans la chaîne, ignorant si elle apparaît à l'intérieur du [ ] symboles, le code ci-dessus de l'échantillon n'est manifestement pas le faire.

Donc, si nous avons mis le code dans une fonction booléenne, certains résultats de l'échantillon devrait ressembler à ceci:

VRAI: qu'est-Ce que votre préféré couleur? mon [mon préféré] la couleur est bleu

VRAI: qu'est-Ce que votre préféré couleur? mon [bla bla] la couleur est bleu

FAUX: qu'est-Ce que votre bla bla couleur? mon [certains favoris] la couleur est bleu

Les deux premiers exemples ci-dessus sont vraies parce que le mot favori se trouve en dehors de la [ ] les symboles, si elle est à l'intérieur ou pas.

La 3ème échantillon est faux car même si il y a le mot favori, il n'apparaît à l'intérieur de l' [ ] symboles - nous ne devrions vérifier si il existe en dehors des symboles.

J'ai donc besoin d'une fonction pour déterminer si ou non un mot (favori dans cet exemple) apparaît dans une chaîne de caractères, mais en ignorant le fait que si le mot est entouré à l'intérieur de [ ] symboles.

  • Idées: 1) Diviser la chaîne sur le \s et de vérifier pour la 4ème élément. 2) cochez la Case pour "favori" (notez les espaces autour de la parole). 3) Diviser la chaîne sur le point d'interrogation ? et de vérifier ensuite si elle détient favorite.
  • De recherche '[', si trouvé de recherche ']', supprimer dans l'entre-deux, y compris '[]', recherche pour le favori.
  • Ou utiliser une expression régulière (avec les unités incluses dans XE) avec une regex de '\b' + wordtofind + '\b'. La seule chose que vous avez à regarder dehors pour est Is it your favorite?, où la ? ferait-il pas de match.
  • Pour élargir @Ken idée regex, this peut-être une source d'inspiration.
InformationsquelleAutor | 2012-09-11
  1. 8

    J'aime Sertac l'idée de propos de la suppression de chaînes de caractères délimitée par des crochets et de rechercher une chaîne de suite. Voici un exemple de code prolongée par une recherche de mots entiers et le respect de la casse:

    function ContainsWord(const AText, AWord: string; AWholeWord: Boolean = True;
  ACaseSensitive: Boolean = False): Boolean;
var
  S: string;
  BracketEnd: Integer;
  BracketStart: Integer;
  SearchOptions: TStringSearchOptions;
begin
  S := AText;
  BracketEnd := Pos(']', S);
  BracketStart := Pos('[', S);
  while (BracketStart > 0) and (BracketEnd > 0) do
  begin
    Delete(S, BracketStart, BracketEnd - BracketStart + 1);
    BracketEnd := Pos(']', S);
    BracketStart := Pos('[', S);
  end;
  SearchOptions := [soDown];
  if AWholeWord then
    Include(SearchOptions, soWholeWord);
  if ACaseSensitive then
    Include(SearchOptions, soMatchCase);
  Result := Assigned(SearchBuf(PChar(S), StrLen(PChar(S)), 0, 0, AWord,
    SearchOptions));
end;

    Ici est une version optimisée de la fonction, qui utilise le pointeur de char itération sans manipulation de chaîne. En comparaison avec la version précédente de cette traite le cas lorsque vous avez une chaîne avec manque de fermeture de support, comme par exemple My [favorite color is. Une telle chaîne est-il Vraie raison de cette absence de support.

    Le principe est d'aller à travers l'ensemble de la chaîne de char par char et quand vous trouver le crochet ouvrant, regardez si le support a une paire de clôture pour lui-même. Si oui, puis vérifiez si la sous-chaîne à partir de la position stockée jusqu'à l'ouverture du support contenant le mot recherché. Si oui, la sortie de la fonction. Si pas le cas, déplacer la position enregistrée pour le crochet de fermeture. Si le support n'est pas propre paire de clôture, recherche pour le mot à partir de la position enregistrée à la fin de l'ensemble de la chaîne et de sortie de la fonction.

    Pour la version commentée de ce code suivez ce lien.

    function ContainsWord(const AText, AWord: string; AWholeWord: Boolean = True;
ACaseSensitive: Boolean = False): Boolean;
var
CurrChr: PChar;
TokenChr: PChar;
TokenLen: Integer;
SubstrChr: PChar;
SubstrLen: Integer;
SearchOptions: TStringSearchOptions;
begin
Result := False;
if (Length(AText) = 0) or (Length(AWord) = 0) then
Exit;
SearchOptions := [soDown];
if AWholeWord then
Include(SearchOptions, soWholeWord);
if ACaseSensitive then
Include(SearchOptions, soMatchCase);
CurrChr := PChar(AText);
SubstrChr := CurrChr;
SubstrLen := 0;
while CurrChr^ <> #0 do
begin
if CurrChr^ = '[' then
begin
TokenChr := CurrChr;
TokenLen := 0;
while (TokenChr^ <> #0) and (TokenChr^ <> ']') do
begin
Inc(TokenChr);
Inc(TokenLen);
end;
if TokenChr^ = #0 then
SubstrLen := SubstrLen + TokenLen;
Result := Assigned(SearchBuf(SubstrChr, SubstrLen, 0, 0, AWord,
SearchOptions));
if Result or (TokenChr^ = #0) then
Exit;
CurrChr := TokenChr;
SubstrChr := CurrChr;
SubstrLen := 0;
end
else
begin
Inc(CurrChr);
Inc(SubstrLen);
end;
end;
Result := Assigned(SearchBuf(SubstrChr, SubstrLen, 0, 0, AWord,
SearchOptions));
end;
    • Super réponse, particulièrement utile est le lien vers la réponse aux commentaires, rend un peu plus facile à digérer et à comprendre ce qui se passe.
    • Merci! De toute façon, la regex est la bonne façon de faire ce que vous avez besoin (et sûrement plus facile), mais d'un autre côté, c'est plus simple juste pour cette tâche spécifique (et la plus efficace, je dirais, depuis regex a au moins besoin d'analyser l'expression avant de commence à correspondre). Je dirais, si vous n'allez pas construire un analyseur par exemple, où vous avez beaucoup de tâches similaires comme ce match, alors cette solution peut être plus léger que l', y compris les regex. Mais la principale raison, pourquoi j'ai posté c'est qu'aucune des réponses ici utilisé pur Delphi.
    InformationsquelleAutor TLama
  2. 7

    Dans les expressions régulières, il y a un truc qui s'appelle regardez autour de que vous pouvez utiliser. Dans votre cas, vous pouvez résoudre avec des lookbehind: vous voulez "favori", sauf s'il est précédé d'une parenthèse ouvrante. Il pourrait ressembler à ceci:

    (?<!\[[^\[\]]*)favorite

    Étape par étape: (?<! est le négatif lookbehind préfixe, nous sommes à la recherche pour \[ éventuellement suivie par aucun ou plusieurs choses qui ne sont pas de la fermeture ou de l'ouverture des crochets: [^\[\]]*, fermer le négatif lookbehind avec ), puis favorite juste après.

    • Je pense que le vôtre est un élégant et de bonne solution
    InformationsquelleAutor Stijn Sanders
  3. 0

    Je pense que vous pouvez reformuler votre problème à trouver un ocurrence de la chaîne de ne pas être entouré par des crochets." Si cela décrit votre problème, alors vous pouvez aller de l'avant et à l'utilisation d'une expression régulière simple comme [^\[]favorite[^\]].

    InformationsquelleAutor Leonardo Herrera