String auf Tabulatoren prüfen

[Dejan Vu]

Wenigstens 1x bis zum ersten nicht-TAB Zeichen rennen und dann mit Substring abschnippeln, das erspart unnötige
'Delete' Operationen.

Delphi-Quellcode:

function LeadingTabs(var AData: string): integer;
var
  i: integer;
begin
  for i:=1 to length(aData) do
    if aData[i] <> #0 then begin
      result := i;
      aData := Substring(aData,i,maxint);
      exit;
    end;

  result := 0;
End;

Aber wo ist da der Mehrwert zu meiner Funktion? Und den Namen musst Du auch noch rausbekommen.

Übrigens sind beide Funktionen falsch, wenn der String z.B. so aussieht '<TAB>Name<Tab>: Meyer'. Meine Funktion liefert nur den falschen Level, aber deine vergisst den Prefix 'Name' und liefert einen noch falscheren (also nicht nur ein bischen falsch, sondern total falsch falsch) Level.

[Ajintaro]

Hallo ihr lieben,

vielen Dank für eure Impulse !

Also

Zitat von sx2008:

Hier kommt die Hilfe zur Selbsthilfe...

Warum verwendest du keine Zwischenvariablen?

ist natürlich völlig richtig.

Ich habe mir den code von Dejan Vu einmal angesehen und an einigen Stellen modifiziert. Das Ergebnis funktioniert ganz gut:

Delphi-Quellcode:

Type
  TTreeNodeDescriptor = record
    level : Integer;
    Caption : String;
    Value : String;
    Procedure FromString (aString : String);
  end;
{++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
// TTreeNodeDescriptor - credits to Dejan Vu
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++}
Procedure TTreeNodeDescriptor.FromString (aString : String);
const
  TAB = #009;
var
  valueDelimiterFound: Boolean;
  c:char;
Begin
  Level := 0;
  Value := '';
  Caption := '';
  valueDelimiterFound := False;

  for c in aString do
    case c of
      TAB :
        Inc(Level);
      ':' :
        valueDelimiterFound := true;
      else
        if valueDelimiterFound then
           Value := Value + c
        else
           Caption:=Caption + c;
    end
end;
{++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
// Datei importieren button
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++}
procedure TFmain.button_scen_importClick(Sender: TObject);
var 
 line:string;
 t : TTreeNodeDescriptor;
 anode:TTreeNode;
begin
   treeview.Items.Clear;
   if Opendialog1.Execute then memo1.Lines.LoadFromFile(Opendialog1.FileName);

   for line in memo1.lines do
   begin
    t.FromString(line);
    if (t.Caption = '"name"') then
    begin
     case t.level of
      1:  anode:=treeview.Items.Add(Nil,t.Value);
      3:  begin
           treeview.Items.AddChild(anode,t.Value);
           //Node als knoten für die nächste Ebene vorbereiten?
          end;
      5:  treeview.Items.AddChild(anode,t.Value);
     end;
    end;
   end;
End;

So kann man nicht nur den String auf Tabulatoren untersuchen for <achar> in <astring> sondern erhält auch den dazugehörigen Wert. Das Einsortieren in ein Treeview klappt nur noch nicht ganz, da die 3. Ebene 5: treeview.Items.AddChild(anode,t.Value); nicht als Child von der 2. Ebene einsortiert wird.

[himitsu]

Gibt es nur vorne Tabulatoren?
Wenn nicht, dann zehlt das falsch, da du dann ja am ersten anderen Zeichen aufhören müsstest, mit dem Zählen.

Gibt es vorne nur Tabulatoren?
Wenn ja, dann TrimLeft und das Abgeschnittene zählen Length(alt)-Length(neu). (oder eben nur vorhne die Tabs zählen)

Und das Zerlegen:
* Pos
* SplitString
* TStringList.DelimitedText (jede Zeile einzeln) oder gleich alles in die StringList, den Delimiter auf ":" einstellen und dann über Name und Value zugreifen. (TrimLeft beim Namen, was auch gleich den Level ergibt), nein Name (also '') ist kein ":" vorhaden, und Trim/TrimLeft entfernt auch das Leerzeichen nach dem ":", also am Anfang vom Value.
* oder sonseine der vielen weiteren Varianten, ohne alles Zeichen für Zeichen einzeln behandeln zu müssen.

[Dejan Vu]

Zitat von himitsu:

Gibt es nur vorne Tabulatoren?
Wenn nicht, dann zehlt das falsch, da du dann ja am ersten anderen Zeichen aufhören müsstest, mit dem Zählen.

Hab ich schon geschrieben.

Zitat:

Und das Zerlegen:
...
* TStringList.DelimitedText

wieso mit Kanonen auf Spatzen? Geht doch so.

Delphi-Quellcode:

Procedure TTreeNodeDescriptor.FromString (aString : String);
const
   TAB = #009;
var
   captionFound,
   valueDelimiterFound: Boolean;
   c : char;

   Function _AddToText(c : Char);
   begin
     if (c=':') and captionFound then
       valueDelimiterFound := true
     else if valueDelimiterFound then
       Value := Value + c
     else
       Caption:=Caption + c;
   end;

Begin
   Level := 0;
   Value := '';
   Caption := '';
   valueDelimiterFound := False;
   captionFound := False;
   for c in aString do
     if captionFound or (c <> TAB) then
       _AddToText(c)
     else 
       inc(Level)
end;

So müsste es (ungetestet) gehen, damit nur <TAB> Zeichen am Anfang gezählt werden: Sobald das erste nicht-TAB Zeichen gefunden wird, wird das Zählen beendet. Das Zerlegen des Textes in Caption und Value solle aber auch mit Pos und Splitstring gehen. Aber ich dachte mir: Wenn man schon in einer For-Schleife ist, um die TAB-Zeichen vorne zu zählen, kann man auch gleich durchrennen. Na ja. Man kanns auch sein lassen

Delphi-Quellcode:

Procedure TTreeNodeDescriptor.FromString (aString : String);
const
   TAB = #009;
var
   function GetLevel (Const aString : String) : Integer;
   begin
     for result := 1 to Length(aString) do if aString[Result] <> TAB then exit;
     result := 0;
   end;

Begin
   Level := 0;
   Value := '';
   Caption := '';
   valueDelimiterFound := False;
   captionFound := False;
   Level := GetLevel(aString);
   if Level>0 then Delete(astring,1,Level);
   p := Pos(':', aString);
   if p=0 then Caption := aString
   else begin
     Caption := substring(aString,1,p-1);
     Value := substring(astring,p+1,maxint);
   end
end;

Ungetestet (hab kein Delphi)

[himitsu]

Zitat:

Delphi-Quellcode:

       Value := Value + c
     else
       Caption:=Caption + c;

Wieso mit einem Einrad (Einzelzeichenstringmanipulationsoperationen) einen Käfer (Delphi mit TStringList) versuchen zu verfolgen?
Gut, man kann auch einen Ferrari nehmen (Position suchen und alles zusammen machen).

Selbst eine TStringList erzeugen (jedes Mal und nichtmal über ein globales Singleton) und verwenden, erzeugt weniger Speicheroperationen (Get/Free/Realloc), als das da, mit der For-Schleife.
Gerade in Delphi 7 (ohne FastMM) ist dieses Einzelzeichenstringzusammensetzzeugs die totale Bremse. (zum Glück haben wir seit 2006 standardmäßig ein eigebautes InPlaceRealloc vom Pierre drin, welches solchen Code getwas verbessert, solange die Codeoptimierung aus dem Caption:=Caption+c ein Insert(Caption,C,1) hinbekommt).

Delphi-Quellcode:

(*procedure TTreeNodeDescriptor.FromString(Value: string);
var
  i: Integer;
begin
  i := Pos(':', Value);
  Caption := Trim(Copy(Value, 1, i - 1));
  Value := Trim(Copy(Value, i + 1));
  Level := Length(Value) - Length(TrimLeft(Value));
end;*)

procedure TTreeNodeDescriptor.FromString(Value: string);
var
  i: Integer;
  S: string;
begin
  i := Pos(':', Value);
  S := LeftStr(Value, i - 1);
  Caption := TrimLeft(S);
  Value := TrimLeft(Copy(Value, i + 1));
  Level := Length(S) - Length(Caption);
end;

Gut, man kann das jetzt noch extrem optimieren, indem man die Trims selber berechnet und bei den Copy sofort anwendet, bzw. zum Ausrechnen des Level heranzieht, ohne die String-Zwischenvariable, aber man kann es damit (im Normalfall) auch übertreiben.

[Dejan Vu]

Zitat von himitsu:

Wieso mit einem Einrad (Einzelzeichenstringmanipulationsoperationen) einen Käfer (Delphi mit TStringList) versuchen zu verfolgen?
Gut, man kann auch einen Ferrari nehmen (Position suchen und alles zusammen machen).

Das ist nicht schneller. Zum suchen musst Du eh bis zum ':' laufen. Und danach kopieren. Bei den kleinen Strings macht das keinen Unterschied. Und deine Argumente bezüglich Speicher ziehen seit FastMem auch nicht mehr. Probiere es mal aus.

Hier mal dein Code kommentiert.

Delphi-Quellcode:

procedure TTreeNodeDescriptor.FromString(Value: string);
var
  i: Integer;
  S: string;
begin
  i := Pos(':', Value);                  --- 1. mal laufen
  S := LeftStr(Value, i - 1);            --- 2. mal laufen und kopieren
  Caption := TrimLeft(S);                --- 3. mal laufen und kopieren
  Value := TrimLeft(Copy(Value, i + 1)); --- 4. mal laufen und kopieren
  Level := Length(S) - Length(Caption);
end;

Du rennst 5 mal durch den String bzw. setzt zu einer Schleife an. Wozu?

Also, ich meine, wir reden hier ziemlich abgehoben über Codeästhetik und ob man eher Makros (Trim,Copy,LeftStr,Pos) nimmt, oder alles per Hand macht.

Rein performancetechnisch würde ich annehmen, das ein einmaliges Durchlaufen am schnellsten ist.
Von der Lesbarkeit würde ich die Makro-Variante wohl vorziehen.