Discussion :

[trakiss]

Bonsoir,

j'utilise TRegExpr pour faire mes regex.
Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
procedure TForm1.testClientRead(Sender: TObject; Socket: TCustomWinSocket);
const
RRegister = '[A-Za-z]+ : [a-zA-Z0-9]+ || [a-zA-Z0-9]+';
var
r : TRegExpr;
result : String;
begin
  //Log data
  Memo1.Lines.Add(DateTimetoStr(Now()) + ' | ' + Socket.RemoteAddress + ' | ' + 'Client Sending Data');
  Result := '';
  r := TRegExpr.Create;
 
  try
    r.Expression := RRegister;
    if r.Exec(Socket.ReceiveText) then
      REPEAT
      Result := Result + r.Match [0];
      UNTIL not r.ExecNext;
    finally r.Free;
  end;
  ShowMessage(Result);
 
end;

Voila ce que vaut Socket.ReceiveText : Register : Pseudo || Pass où pseudo et pass contiennent n'importe quel charactère.

Voila ce que je veux faire : sortir dans uen variable le mod Register, dans une autre le pseudo et dans une derneire le password.

Quelqu'un peut il m'aider ?

[edam]

il y as une fonction qui fait la séparation en donne comme paramétre le caractére de séparation
en plus tu peut meme crée cette procedure en utlisant copy,pos

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
 
Function  separe(mot:string;sep:char):Tstrings;
  var  s,d:string;
   i:integer;
begin
      result:=TString.creat; 
      result.clear;
      repeat
          i:=pos(sep,mot);
          if i>1 then
            begin
              s:=copy(mot,1,i-1);
              result.add(s);
              mot:=copy(mot,i+1,length(mot)-i);
            end;
      until i=0;
end;
procedure dessait;
var  list:TStrings;
begin
 list:=separe(motrsu,'|');
//utilisation des donnée dans list ......
list.free;
end;

[trakiss]

Thx