Gettok style

Commenter

Contenu du snippet

Comme je l'explique c'est une commande comme mIRC, un while qui recherche le mot voulu.
Je suis nouveau en delphi mais cette commande mes telement pratique, je l'ai cherché mais sa exploit.

Se qui faut pas oublier c'est que dans ma commande j'ai mis un if que le N dois être supérieur 1. Car avec un Copy normal tu peux très bien retrouvé le premier mot ou string voulus.

Pour avoir la commande:

var := Gettok('Ta Phrase',N,#32);
(Le N = au Nième mots recherché
Et le #32 et biensûr le char numéro 32 .

Source / Exemple : 


function GetTok(Phrase: string; Num: Integer; Char: string): string;
var
    g1, g2 : string;
    g4, g7, i : Integer;
begin
    if (Num > 0) then // pour retour premier mot
    begin
     i := 1;
    g2 := Phrase + Char; // pour retour dernier mot
    while (i < Num) do
    begin
     g4 := Length(g2);                       { Nombre de caractère de la phrase }
     g7 := Length(Copy(g2,1,Pos(Char,g2)-1)); { Nombre de caractère du Premier   Mot }
     g1 := Copy(g2,g7+2,Pos(#32,g2)+g4); { Phrase - le mot donnée }
     g2 := g1;
     i := i+1
    end;
    Result := Copy(g2, 1, Pos(Char, g2)-1); // pour retour 1er mot
end;

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_OmbreNoir)