Hallo Leute!

Ja ich schon wieder! Ich kann mich leider mit meiner function so gar nicht zufrieden stellen, da sie nur "halbherzig" das tut was ich will. Liegt wohl daran, was ich ihr so als Code für diese Aufgabe mitgegeben habe.

Ich übergebe der u.s. function ein TStrings, lösche alle Leerzeichen heraus und erhalte einen einzigen String, aus dem ich, damit ich ihn danach ordentlich parsen kann alle Kommentare löschen will.

Ein Kommentar sieht im CSS so aus:

markieren

Code:

/*Kommentar*/

Das Problem ist nun, dass ich diese function bei jedem OnChange meiner SynEdit aufrufe und wenn jemand einen Kommentar beginnt und nicht abschliesst und dann noch einen neuen beginnt, komme ich ins trudeln. Ich versuche mich zum ersten mal an einer "so grossen" Aufgabe und scheitere immer wieder an solchen Sachen.

zusammenfalten · markieren

Delphi-Quellcode:

function ClearCommentarTStrings(Inhalt:TStrings):String;
var
  i,beg_com,end_com:integer;
  myInhalt:string;
begin
  {hier wird ein string konstruiert, der ohne cf und cr
   auskommt, da es sich dann besser suchen lässt!?}
  for i:=0 to Inhalt.Count -1 do
    begin
       myInhalt:=myInhalt + Inhalt.Strings[i]
    end;
  myInhalt:=Trim(myInhalt);
  while (Pos('/*',myInhalt)) > -1 do
    begin
      beg_com:=Pos('/*',myInhalt);
      end_com:=Pos('*/',myInhalt);
      if beg_com > 0 then
        begin
          if end_com > 0 then
            begin
              delete(myInhalt,beg_com,end_com-beg_com+2);
            end
          else exit;
        end
      else
        begin
          Result:=myInhalt;
          ShowMessage(result);
          exit;
        end;
    end;
end;

Wer kann helfen???
Wie könnte ich die Fehler zählen und trotzdem die korrekten CSS-Kommentare löschen, damit ich dem User eine info geben kann???

Hallo!
Also, ich bin jetzt gerade zufällig auf diese Nachricht gestoßen und hoffe, dass es noch nicht zu spät ist.
Ich würde das folgendermaßen machen:
-Ein Array mit einem Record aus einer Integerzahl und einem Booleanwert machen
-Alle Vorkommen von /* suchen und in das Array mit dem Booleanwert true eintragen
-Alle Vorkommen von */ suchen und in das Array mit dem Booleanwert false eintragen
-Das Array nach den Integerzahlen sortieren
-Überprüfen, ob zwei (oder mehr) true aufeinanderfolgen, wenn ja, werden alle bis auf das letzte Record gelöscht
-Überprüfen, ob zwei (oder mehr) false aufeinanderfolgen, wenn ja, werden alle bis auf das erste Record gelöscht
-Die Zahl der gelöschten wird zur Zahl der Fehler dazugezählt.
-Eine Schleife halb so oft, wie Einträge im Array, durchlaufen und immer von [0] bis [1], von [2] bis [3] usw. löschen.

Das Suchen kannst du mit der Funktion machen, die in diesem Thread suchen startposition steht.

Ich hoffe, ich konnte helfen.

Tschau, Lorenz

Hallo Lorenz,

man so viele Infos auf einmal. also ich habe es mit einem anderen Code auch hinbekommen, aber meiner Meinung nach eher schlecht als recht, da ich irgendwie ab und zu den Verdacht habe, dass mich meine Prozedure ausbremst oder sogar das Programm lahm legt, bzw. den Fokus auf meiner SynEdit verliert, was beim Proggen echt nervig sein kann.

Da ich wohl Wochen brauche, um das zu realisieren, was Du da so schoen theoretisch geschildert hast, wurde ich dich bitten Die mal meinen Code anzusehen!?

Zitat von torud:

Hallo Leute!
... lösche alle Leerzeichen heraus und erhalte einen einzigen String, aus dem ich, damit ich ihn danach ordentlich parsen kann alle Kommentare löschen will.

Bist du sicher, das du sowas machen willst?

Denn überleg mal, was du auf folgenter Struktur machst, wenn du wirklich alle leerzeichen löschst.

markieren

Code:

border-top:1px solid blue;

Als Empfehlung rate ich dir alle (Steuer)Zeichen, welche <= ' ' sind und wo davor und danach keine Zeichen, welche nicht zusammendürfen (z.B. a-z, A-Z, 0-9, _ und eventuell noch andere), sind.

Hast du schonmal dran gedacht, das mit einem netten regulären Ausdruck zu machen? Delphi bringt zwar soweit ich weiß keine Bibliothek dafür mit, aber bei Torry oder so findest du bestimmt eine. Das wäre auch einfacher, denn wenn ich mich nicht irre, gilt auch in CSS, dass Verschachtelungen nicht möglich sind:

/*
Kommentar
/*
Kommentar
*/
KEIN Kommentar
*/
KEIN Kommentar

Und damit würde ein einfacher regulärer Ausdruck à la '/\*(.|\n)*?\*/' (bzw. '/\*.*?\*/' im Singleline-Mode) ausreichen (getestet (c; ).
Auch das Parsen des CSS würde mit einem regulären Ausdruck etwas einfacher werden...

Im Übrigen würde ich nicht direkt im OnChange neu parsen, sondern im OnChange beispielsweise einen Timer mit minimalem Intervall starten (und zwar immer wieder, so dass beim neu tippen keine Probleme auftreten) und erst im Timer-Event neu parsen. Dann bekommst du nicht so'n Performance-Problem.

Hallo!
Wenn du schon einen Code hast, der nicht funktioniert, dann zeige ihn doch mal her. Vielleicht findet hier in der DP den Fehler. (Am Besten mit Kommentaren, was du als nächstes machst.)
Man liest sich,
Lorenz

ok, und hier kommt mein code. ich hoffe, es ist einigermaßen durchschaubar.

zusammenfalten · markieren

Delphi-Quellcode:

function ClearCommentarTStrings(Inhalt:TStrings):String;
var
  i,beg_com,end_com:integer;
  myInhalt:string;
begin
  CommentCount:=0;
  for i:=0 to Inhalt.Count -1 do
    begin
       myInhalt:=myInhalt + Inhalt.Strings[i]
    end;
  myInhalt:=Trim(myInhalt);
  while (Pos('/*',myInhalt)) > -1 do
    begin
      beg_com:=Pos('/*',myInhalt);
      end_com:=Pos('*/',myInhalt);
      if beg_com > 0 then
        begin
          if end_com > 0 then
            begin
              CommentCount := CommentCount + 1;
              delete(myInhalt,beg_com,end_com-beg_com+2);
            end
          else
            begin
              Result:=myInhalt;
              exit;
            end;
        end
      else
        begin
          Result:=myInhalt;
          
          exit;
        end;
    end;
end;

auf den 1. Blick scheint es ja zu laufen.

- also zum Ordnungsgemäßen verlaßen der Schleife hätte ich Break, statt Exit verwendet.
- "while (Pos('/*',myInhalt)) > -1 do" ist auch unnötig, da du ja schon innerhalb der Schleife die Kontrollen hast.
Ausserdem würde, wenn mal kein '/*' in dem CSS-Code drin ist kein String von deiner Funktion zurückgegeben, da du das ja nur innerhalb der Schleife machst und wenn die Schleife erst garnicht betreten wird, dann ist natürlich das Funktionsergebnis undefiniert
- am Anfang macht sich das Trim schon beim Zusammensetzten besser, da dieses ja nur die Zeichen am Anfang/Ende des Strings löscht und du demnach die Leerzeichen in den Zeilen dazwischen, welche ja fast immer am Zeilenanfang (die Einrückung) vorhanden sind, drinläßt.
- "if beg_com > 0 then" und "if end_com > 0 then" werkennt auch sowas "*/ ... /*", was aber kein Kommentar ist
und außerdem lassen sich diese Abfragen vereinen und somit ein Austrittspunkt einsparen
- die Leerzeichen ' ' werden wegen dem oben beschriebenem Problem eingefügt, weil ja bestimmte Zeichen nicht zusammen dürfen, weil es sonst Probleme gibt - nach der While-Schleife könnte man jetzt noch diese und die eh schon vorhanden und teilweise überflüssigen Leerzeigen entfernen
- "inc(CommentCount);" ist nur 'ne verkürzung von "CommentCount := CommentCount + 1;" (siehe inc)

zusammenfalten · markieren

Delphi-Quellcode:

function ClearCommentarTStrings(Inhalt:TStrings):String;
var
  i,beg_com,end_com:integer;
  myInhalt:string;
begin
  CommentCount:=0;
  for i:=0 to Inhalt.Count -1 do
    myInhalt:=myInhalt + ' ' + Trim(Inhalt.Strings[i]);
  while true do
    begin
      beg_com:=Pos('/*', myInhalt);
      end_com:=Pos('*/', myInhalt);
      if (beg_com > 0) and (end_com > beg_com) then
        begin
          inc(CommentCount);
          delete(myInhalt,beg_com,end_com-beg_com+2);
          insert(myInhalt,' ',beg_com);
        end
      else
        Break;
    end;
  Result:=myInhalt;
end;

hallöchen!

ich werde es heute abend mal testen und hoffe, dass dann die manmal auftretenden focusverluste auf meinem synedit weg sind!

vielen dank für den code und die erläuterungen!!!

Hm, also leider bekomme ich eine Fehlermeldung in dieser Zeile:

  insert(myInhalt,' ',beg_com); Meldung:
Konstantenobjekt kann nicht als Var-Parameter weitergegeben werden!

Was nun ???
Also, da ich anstelle des Komentares keine Leerzeichen benötige, habe ich erstmal, bis auf Wideruf, den InsertCode gelöscht.