Delphi XE3 - 从字符串中删除 Ansi 代码/颜色

Question

我正在努力处理 Ansi 代码字符串。我得到了[32m, [37m, [K 等字符。

有没有一种更快的方法来消除/去除我得到的字符串中的 ansi 代码，而不是通过字符循环搜索 ansi 代码的起点和终点？

我知道声明是这样的：#27'['#x';'#y';'#z'm'; 其中 x, y, z... 是 ANSI 代码。所以我假设我应该搜索#27，直到找到“m;”

是否有任何已经实现的功能来实现我想要的？除了this 文章，我的搜索没有返回任何内容。 谢谢

Answer 1

您可以使用这样的代码（最简单的有限状态机）非常快速地处理此协议：

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

从 ESC 代码中清除字符串：

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;