Delphi XE3 - Ansi Kodunu/Rengi Kaldır dizgeden

Question

Ansi kod dizeleriyle uğraşırken güçlük çekiyorum. Ben [32m, [37m, [K vs chars alıyorum.

ansi kodlarının başlangıç ​​ve bitiş noktalarını ararken chars aracılığıyla döngü yapmak yerine aldığım dizelerden ansi kodlarını ortadan kaldırmak/şeritlemenin daha hızlı bir yolu var mı?

Bildirimin böyle bir şey olduğunu biliyorum: #27'['#x';'#y';'#z'm'; Burada x, y, z ... ANSI kodlarıdır. Bu yüzden "m;" yi bulana kadar # 27 aramam gerektiğini düşünüyorum.

İstediğim şeyi elde etmek için önceden yapılmış işlevler var mı? Aramam, this makalesi dışında hiçbir şey döndürmedi. Teşekkür

Böyle kodu (en basit sonlu durum makinesi) ile çok hızlı bu protokolü tedavi edebilir

Answer 1

: ESC-kodlarından

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 

Takas dizesi:

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;