Delphi XE3 - Entfernen Ansi-Code/Farbe aus String

Question

Ich habe Probleme mit dem Umgang mit Ansi-Code-Strings. Ich bekomme die [32m, [37m, [K etc Zeichen.

Gibt es eine schnellere Möglichkeit, die ANSI-Codes aus den Strings, die ich bekomme, zu entfernen/strippen, anstatt es mit den Schleifen zu machen, die nach den Anfangs- und Endpunkten der ANSI-Codes suchen?

Ich weiß die Deklaration ist in etwa so: #27'['#x';'#y';'#z'm'; wo x, y, z ... sind die ANSI-Codes. Ich nehme an, ich sollte nach # 27 suchen, bis ich "m" finde.

Gibt es irgendwelche bereits gemachten Funktionen, um das zu erreichen, was ich will? Meine Suche ergab nichts außer this Artikel. Dank

Answer 1

Sie dieses Protokoll sehr schnell mit Code wie folgt (einfachste Finite State Machine) behandeln:

var 
    s: AnsiString; 
    i: integer; 
    InColorCode: Boolean; 
begin 
    s := 'test'#27'['#5';'#30';'#47'm colored text'; 

    InColorCode := False; 

    for i := 1 to Length(s) do 
    if InColorCode then 
     case s[i] of 
      #0: TextAttrib = Normal; 
      ... 
      #47: TextBG := White; 
      'm': InColorCode := false; 
     else; 
     // I do nothing here for `;`, '[' and other chars. 
     // treat them if necessary 

     end; 
    else 
     if s[i] = #27 then 
     InColorCode := True 
     else 
     output char with current attributes 

Clearing-String aus ESC-Codes:

procedure StripEscCode(var s: AnsiString); 
const 
    StartChar: AnsiChar = #27; 
    EndChar: AnsiChar = 'm'; 
var 
    i, cnt: integer; 
    InEsc: Boolean; 
begin 
    Cnt := 0; 
    InEsc := False; 
    for i := 1 to Length(s) do 
    if InEsc then begin 
     InEsc := s[i] <> EndChar; 
     Inc(cnt) 
    end 
    else begin 
     InEsc := s[i] = StartChar; 
     if InEsc then 
     Inc(cnt) 
     else 
     s[i - cnt] :=s[i]; 
    end; 
    setLength(s, Length(s) - cnt); 
end;