[electrichesky]

Ребята выручайте!

Ищу реально головастого гения, буду рад если хотя бы подскажете к кому можно обратиться с этим вопросом =(

Очень интересная загадка. Подключайтесь к ветке... давайте размышлять!

Работаю с буфером обмена, нужно заменять в нём одну строку на другую.

к примеру копирую такой текст:

note.png

в буфере он выглядит так:

111.png

я в нём меняю 111 на ^
получается так:

caret.png

Код:

var
  US1, US2: UTF8String;
  MStream: TMemoryStream;

//  то что было в буфере обмена сохраняю в zzz.dat
// далее

  MStream:=TMemoryStream.Create;
  MStream.LoadFromFile('zzz.dat'); // открываю буфер
  SetLength(US2, MStream.Size);
  MStream.Position := 0;

  MStream.Read(Putf8String(US2)^, MStream.Size);
// загружаю в US2 содержимое буфера

  US1:=Decoder(us2); // декодирую строку US2 в US1

  MStream.Position := 0;
  MStream.Write(Putf8String(US1)^, Length(US1)); // 
  mstream.SaveToFile('zzz.dat'); // сохраняюсь
  MStream.Free;

// затем загружаю это обратно в буфер

а вот декодер

Код:

function Decoder(Target: utf8String): utf8String;
begin
  Target:=StringReplace(Target,'111','^',[rfReplaceAll,rfIgnoreCase]);
  // сначала думал что этого будет достаточно, но нет! в HEX viewer есть ещё строка 1.1.1. это (31 00 31 00 31 00)

  Result:=StringReplace(Target,HexToStr('310031003100'),HexToStr('5e00'),
  //когда поменял именно её всё сработало

[rfReplaceAll,rfIgnoreCase]);
end;

вроде бы должно всё работать... НО если например в тексте вместо XYZ написано что-нибудь длинное, например: zzzzzzzzzzzzzzzzzzzzzzzzzzzz
то уже ничего не работает =(
в буфер это обратно не загружается =(

В общем, хотелось бы понять по какому принципу в буфере всё распределяется =(

почему например текст
note.png

в буфере выглядит именно так
111.png

чтоб понимать чего ещё там нужно править =(

[NumLock]

Clipboard.AsText легко изменит текст в буфере обмена.

[electrichesky]

Сообщение от NumLock

Clipboard.AsText легко изменит текст в буфере обмена.

дело в том что мне нужно редактировать внутреннюю разметку...
не знаю как правильно назвать её...
в общем когда допустим копирую текст где изменён размер и цвет.

не знаю как получить его... пробовал вот так:

Код:

 
//копирую текст в Buffer
  if OpenClipboard(0) then
  begin
      BufferData:=GetClipboardData(CF_UNICODDETEXT);
      try
        if BufferData<>0 then Buffer:=PChar(GlobalLock(BufferData)) else Buffer:='';
      finally
        if BufferData<>0 then GlobalUnlock(BufferData);
      end;
  CloseClipboard;
  end;


  US1 := Buffer; 
  Memo1.Clear;
  MStream := TMemoryStream.Create;
  MStream.Write(Putf8String(US1)^, Length(US1));
  MStream.SaveToFile('mytext.dat');
// сохраняю его в mytext.dat
  Memo1.Text := US1;
//и вывожу его в мемо
  MStream.Free;

но таким образом тоже видно только видимый текст...
хотя в буфере текст с разметкой =(
пробовал ещё вместо CF_UNICODDETEXT указать CF_TEXT
но получаю в этом случае кракозябру =( может это он и есть просто его расшифровать нужно? но у меня не получается это сделать.