Zeichen aus einem String filtern/löschen

[DeddyH]

Poste doch mal einen Beispieldatensatz (oder noch besser 2 verschiedene) mit dem beabsichtigten Ergebnis. Diese Raterei macht irgendwie keinen Spaß.

[Blubbel]

[28.11.2011 16:54:04.875]:<PSSourceGraphThread> Reinit successful processed.
[28.11.2011 14:20:16.930]:<PSRenderGraphTCPBuilder><DS>Graph.Connect

Naja Zerteilen dann die zeichen löschen und ganz später ne andere funktion solls dann kürzen aber das hab ich glaub ich schon

Wie genau das nachher aussehen soll weiß ich auch net genau

[Sir Rufo]

Zitat von Blubbel:

[28.11.2011 16:54:04.875]:<PSSourceGraphThread> Reinit successful processed.
[28.11.2011 14:20:16.930]:<PSRenderGraphTCPBuilder><DS>Graph.Connect

Naja Zerteilen dann die zeichen löschen und ganz später ne andere funktion solls dann kürzen aber das hab ich glaub ich schon

Ich habe irgendwie das Gefühl, dass der String sich immer wieder ändert

Wo bitte kommt denn jetzt der Doppelpunkt her?

[Blubbel]

das ist das womit wir es machen sollen hatte den doppelpunkt wohl immer übersehen... so langsam macht mir diese aufgabe keinen spaß mehr

Also das ist irgendwas fürn server was der ausspuckt wie ich das verstanden habe und wenn man das in der eingabeaufforderung eingibt soll das dann gekürzt sein auf eine bestimmte zeilen länge... wieso ich das erst splitten soll keine ahnung

[Blubbel]

das hier hatte er und gegeben:



Parameter:
-1. einzelne Zeile
(out parameter)
-2. Datum als TDateTime
-3. Array of Ident (String)
-4. Logmessage
-5. severity Status (Fehler Anzahl *chen)
Result: Boolean


Parameter:
-1. einzelne Zeile
(outparameter)
-2. Gekürzte Zeile
Result: Boolean

[Blubbel]

BIs dahin hab ich schon was gebastelt

Delphi-Quellcode:

function TForm1.Filter(lLine: String; out lDate: TDateTime; out lIdent: array of String; out lLogMessage,
  lSeverityStatus: String): Boolean;
var
  Pos: Integer;
begin
  Result:= false;
  for lLine := 1 to SetLength do
  begin
    if Pos:= Pos('<','>','[',']','*',':', lLine) then
    begin
      Delete(Pos);
    end;
  end;
  Result:= true;
end;

[Sir Rufo]

Zitat von Blubbel:

das ist das womit wir es machen sollen hatte den doppelpunkt wohl immer übersehen... so langsam macht mir diese aufgabe keinen spaß mehr

Also das ist irgendwas fürn server was der ausspuckt wie ich das verstanden habe und wenn man das in der eingabeaufforderung eingibt soll das dann gekürzt sein auf eine bestimmte zeilen länge... wieso ich das erst splitten soll keine ahnung

Ich nehme jetzt mal stark an, du hast da ein paar ganz entscheidende Sachen im Unterricht nicht mitbekommen.
Das hört sich irgendwie nach "Geh mah und hol wat zum Kuchen backen" denn ausser "Kuchen" ist hier nix klar.
Versuch mit der Information mal die Zutaten für den Kuchen zu kaufen. Richtig, geht auch nicht.

Also mal die Mitschüler oder auch den Lehrer gefragt.

[Luckie]

Also so schwer ist das ja eigentlich nicht. In die Funktion rein geht der String vom Server, wahrscheinlich wird da was geloggt. Rauskommen soll der in seine Bestandteile zerlegte String.

procedure SplitLogLine(LogLine: string; out TimeStamp: string; out Indent1: string; out Indent2: string; out LogMessage: string); Das sagt eigentlich schon alles, was passieren soll.

Jetzt haben wir noch den Aufbau von dem String der vom Server kommt:

Code:

[TimeStamp]:<Indent1><Indent2>LogMessage

Mit Pos und PosEx kann ich jetzt nach "[", "]", "<" und ">" suchen und mit Copy die Bestandteile in die out Parameter kopieren. Kein Problem. Eigentlich nur eine Fingerübung, wenn da jetzt nicht noch eine kleine Gemeinheit wäre. So wie es aussieht, ist Inden2 optional, also nicht in jeder LogLine enthalten. Aber auch das lässt sich lösen, in dem man eine Fallunterscheidung macht in Abhängigkeit von der Anzahl der "<".

Ich denke, das sollte auch für einen Anfänger lösbar sein. Sieh und Zweck der Übung ist es wohl, dass ihr die Zeichenmanipuilationsroutinen (Pos, PosEx, Copy, Delete) von Delphi kennen lernen sollt.

So, deswegen guck mal in der Hilfe, was die Routinen machen und wie man sie anwendet. Wenn du das verstanden hast, sollte es kein Problem sein, die Aufgabe zu lösen.

[Blubbel]

Danke!!!
Ich hatte mir auch grad was überlegt:
Wenn ich immer nach diesen Zeichen es in einem Buffer speichern lasse und ab dem zeichen was grad ausgemacht wurde weiter suche usw. Das könnte doch auch gehen...