Befehle erstellen

[TonyR]

Lass doch wieder mit POS das nächste Leerzeichen suchen!

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
befehl, user, s, reason: string;
begin
S :='/kick k4ni weil er zu viel fragen stellt =)';
if s[1] = '/' then  // Prüfen, ob Befehl!
  begin
    befehl := Copy(s, 2, Pos(' ', s) - 2);  //DA IST JETZ NE 2 STATT NER 1
    if befehl = 'kick' then
      begin //edit: der anweisungsblock hier
      user := Copy(s, Pos(' ', s) + 1, Pos(' ', s) - 2);
      reason := Copy(s, Pos(user, s) + 1 + Length(user), Length(s));
      end;
  end;
  ShowMessage(user+' wurde gekickt, reason: '+reason);
end;

Das haut hin, habs getestet ... bzw, funktioniert natürlich nur, wenn die User-Namen keine Leerzeichen enthalten!

[k4ni]

Ich dachte das POS immer das erste leerzeichen nimmt :(

Vielen dank :)

[k4ni]

Ohh das ist auch so.
Der name darf nicht länger als 4 zeichen sein. (immer solange wie der befehl, also wenn der befehl hahaha heist darf der name auch 6 zeichen lang sein).
Also sucht er hier zweimal nach dem gleichen leerzeichen:

Delphi-Quellcode:

      user := Copy(s, Pos(' ', s) + 1, Pos(' ', s) - 2);

Ich hab jetzt schon ein bisschen rumversucht wie er nach dem 2. suchen könnte, aber ich krieg es nicht raus. :x

[DeddyH]

Schau Dir mal PosEx an.

[TonyR]

Zitat:

Zitat von DeddyH

Schau Dir mal PosEx an.

genau ... also pass auf (ich hoffe, dass du dir auch fein selber Gedanken machst, weil du weißt ja, wie das hier läuft)

bisheriger Code:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var 
befehl, user, s, reason: string; 
begin 
S :='/kick k4ni weil er zu viel fragen stellt =)'; 
if s[1] = '/' then  // Prüfen, ob Befehl! 
  begin 
    befehl := Copy(s, 2, Pos(' ', s) - 2);  //Copy will als dritten Parameter keine zweite STELLE, sondern die ANZAHL der Zeichen! Also ist es ja logisch, dass man eine '2' braucht...
    if befehl = 'kick' then 
      begin
      user := Copy(s, Pos(' ', s) + 1, Pos(' ', s) - 2); // hier dasselbe nur nicht mit '2' sondern mit was anderem, weil ja der 'kick' befehl schon mit drin ist
      reason := Copy(s, Pos(user, s) + 1 + Length(user), Length(s));
      end; 
  end; 
  ShowMessage(user+' wurde gekickt, reason: '+reason); 
end;

jetziger code:

Delphi-Quellcode:

uses StrUtils;
...
procedure TForm1.Button1Click(Sender: TObject);
var
befehl, user, s, reason: string;
begin
S :=edit1.text;
if s[1] = '/' then
  begin
    befehl := Copy(s, 2, Pos(' ', s) - 2);
    if befehl = 'kick' then
      begin
      user := Copy(s, 7, PosEx(' ', s, 7) - 7); //bei PosEx (unit-einbinden nicht vergessen) kann man nun den startwert zum suchen mit eingeben: '7' weil dort das erste zeichen nach dem leerzeichen hinter kick kommt, damit kann man denke ich hier arbeiten, weil ja schon feststeht, dass 'kick' der befehl ist, ansonsten müsste man dynamisch rangehen =)
      reason := Copy(s, PosEx(' ', s, 7) + 1, Length(s));
      end;
  end;
  ShowMessage(user+'#'+reason);
end;

[himitsu]

ja entweder du zerlegst erstmal den String anhand von Trennzeichen (z.B. " "), wobei sich dafür auch Explode und Co. ganz gut machen,

oder man prüft einzeln, wobei letzteres gut ist, wenn man (ohne dynamische Arrays) auf verschiedene Befehlsformate reagieren möchte.

Zitat:

Nicht zu empfehlen... was ist, wenn der Befehl einmal lauten sollte "/abrakadabra" dann ist nichts mehr mit Copy(Text, 1, 6).

wie wäre es, wenn man dann die Zahlen anpaßt? :zwinker:

Delphi-Quellcode:

S := LowerCase(Msg.Text);
if copy(S, 1, 6) = '/kick ' then begin
  name := copy(S, 7, ...);
  ...
end else if S = '/exit' then begin
  ...
end else if copy(S, 1, 13) = '/abrakadabra ' then begin
  param := copy(S, 14, ...);
  ...
end;

Delphi-Quellcode:

A := Explode(Msg.Text, ' ');
if Length(A) < 1 then exit;
A[0] := LowerCase(A[0]);
if (A[0] = '/kick') and (Length(A) > 1) then begin
  name := A[1];
  ...
end else if A[0] = '/exit' then begin
  ...
end else if (A[0] = '/abrakadabra') and (Length(A) > 1) then begin
  param := A[1];
  ...
end;