Исправление некорректного юникода из буфера обмена

Здесь обсуждается всё, что касается макросов.
LAT
Posts: 343
Joined: Thu 21 Jan, 2010 20:00
Has thanked: 22 times
Been thanked: 39 times

Re: Вставка текста из буфера и обработка результата макросом

Post by LAT »

Latest post of the previous page:

Smitis wrote:Начиная с Висты уже не лечится. Только заменой файлов nls
Для висты/семерки как-то так: http://my-soft-blog.net/549-krjakozjabl ... sta_7.html. Но сам не пробовал.
User avatar
Smitis
Posts: 1709
Joined: Fri 18 Mar, 2005 12:51
Location: Питер
Has thanked: 23 times
Been thanked: 55 times

Re: Вставка текста из буфера и обработка результата макросом

Post by Smitis »

LAT wrote:Для висты/семерки как-то так:
Я же и говорю - заменой файлов. И действительно, только для если нужны русский/английский.

2useven10, спасибо!
Макрос полезный. Я наконец смог из WinCC нормально текст скопировать.
Разум когда-нибудь победит.
User avatar
zg
zero-gravity
Posts: 6015
Joined: Tue 15 Mar, 2005 17:36
Location: riga
Been thanked: 185 times
Contact:

Re: Вставка текста из буфера и обработка результата макросом

Post by zg »

LAT wrote:Проблема с некоторыми (всеми?) такими кривыми программами лечится правкой реестра:
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Nls\CodePage]
"1250"="c_1251.nls"
"1251"="c_1251.nls"
"1252"="c_1251.nls"
"1253"="c_1251.nls"
Возможно, достаточно будет поправить только параметр "1252"
вот после таких чудо-хакеров звонят и жалуются, что символ евро не печатается.
User avatar
Smitis
Posts: 1709
Joined: Fri 18 Mar, 2005 12:51
Location: Питер
Has thanked: 23 times
Been thanked: 55 times

Re: Вставка текста из буфера и обработка результата макросом

Post by Smitis »

zg wrote:вот после таких чудо-хакеров звонят и жалуются, что символ евро не печатается.
Иногда просто нет выбора - либо русские буквы в нужной программе, либо символ евро где-то ещё.
Разум когда-нибудь победит.
User avatar
zg
zero-gravity
Posts: 6015
Joined: Tue 15 Mar, 2005 17:36
Location: riga
Been thanked: 185 times
Contact:

Re: Вставка текста из буфера и обработка результата макросом

Post by zg »

Smitis wrote:Иногда просто нет выбора - либо русские буквы в нужной программе, либо символ евро где-то ещё.
в моём случае это было не так. чудо-хакер исправил реестр на всякий случай. ну и в данной теме это звучит тоже необоснованно.
User avatar
John Doe
Бюрократ
Posts: 13801
Joined: Wed 27 Apr, 2005 20:42
Has thanked: 72 times
Been thanked: 425 times
Contact:

Исправление некорректного юникода из буфера обмена

Post by John Doe »

Альтернативная реализация макроса.
Используя ffi проверяет какому приложению принадлежит текущий буфер, и если это одно из заданных, то заново формирует CF_UNICODETEXT из CF_TEXT.
Написано исключительно из спортивного интереса.
  1. --http://forum.farmanager.com/viewtopic.php?f=15&t=8093&p=131056#p131056
  2.  
  3. local ffi = require"ffi"
  4.  
  5. ffi.cdef[[
  6.  
  7. BOOL OpenClipboard(HWND hWndNewOwner);//_In_opt_ //https://msdn.microsoft.com/library/ms649048
  8.  
  9. BOOL CloseClipboard(void); //https://msdn.microsoft.com/library/ms649035
  10.  
  11. HANDLE GetClipboardData(UINT uFormat); //https://msdn.microsoft.com/library/ms649039
  12.  
  13. HANDLE SetClipboardData( //https://msdn.microsoft.com/library/ms649051
  14.  
  15.   UINT   uFormat,//_In_
  16.  
  17.   HANDLE hMem    //_In_opt_
  18.  
  19. );
  20.  
  21. BOOL EmptyClipboard(void); //https://msdn.microsoft.com/library/ms649037
  22.  
  23. HWND GetClipboardOwner(void); //https://msdn.microsoft.com/library/ms649041
  24.  
  25. HGLOBAL GlobalAlloc( //https://msdn.microsoft.com/library/aa366574
  26.  
  27.   UINT   uFlags,
  28.  
  29.   SIZE_T dwBytes
  30.  
  31. );
  32.  
  33. HGLOBAL GlobalFree(HGLOBAL hMem); //https://msdn.microsoft.com/library/aa366579
  34.  
  35. LPVOID GlobalLock(HGLOBAL hMem); //https://msdn.microsoft.com/library/aa366584
  36.  
  37. BOOL GlobalUnlock(HGLOBAL hMem); //https://msdn.microsoft.com/library/aa366595
  38.  
  39. DWORD GetWindowThreadProcessId(  //https://msdn.microsoft.com/library/ms633522
  40.  
  41.   HWND    hWnd,         //_In_
  42.  
  43.   LPDWORD lpdwProcessId //_Out_opt_
  44.  
  45. );
  46.  
  47. DWORD GetModuleFileNameExW( //https://msdn.microsoft.com/library/ms683198
  48.  
  49.   HANDLE  hProcess,    //_In_
  50.  
  51.   HMODULE hModule,     //_In_opt_
  52.  
  53.   LPTSTR  lpFilename,  //_Out_
  54.  
  55.   DWORD   nSize        //_In_
  56.  
  57. );
  58.  
  59. //DWORD GetProcessImageFileNameW( //https://msdn.microsoft.com/library/ms683217
  60.  
  61. //  HANDLE hProcess,         //_In_
  62.  
  63. //  LPTSTR lpImageFileName,  //_Out_
  64.  
  65. //  DWORD  nSize             //_In_
  66.  
  67. //);
  68.  
  69. HANDLE OpenProcess( //https://msdn.microsoft.com/library/ms684320
  70.  
  71.   DWORD dwDesiredAccess,
  72.  
  73.   BOOL  bInheritHandle,
  74.  
  75.   DWORD dwProcessId
  76.  
  77. );
  78.  
  79. BOOL IsClipboardFormatAvailable(UINT format); //https://msdn.microsoft.com/library/ms649047
  80.  
  81. ]]
  82.  
  83.  
  84.  
  85. local C = ffi.C
  86.  
  87. local CF_TEXT = 1
  88.  
  89. --local CF_OEMTEXT = 7
  90.  
  91. local CF_UNICODETEXT = 13
  92.  
  93. local GMEM_MOVEABLE = 0x0002
  94.  
  95. local PROCESS_VM_READ = 0x0010
  96.  
  97. local PROCESS_QUERY_INFORMATION = 0x0400
  98.  
  99.  
  100.  
  101. local maxlen = 256
  102.  
  103. local buff = ffi.new("wchar_t[?]",maxlen)
  104.  
  105. local PSAPI = ffi.load"psapi"
  106.  
  107. local function GetClipboardOwnerExe()
  108.  
  109.   local HWND = C.GetClipboardOwner()
  110.  
  111.   local lpdwProcessId = ffi.new("DWORD[1]")
  112.  
  113.   if C.GetWindowThreadProcessId(HWND,lpdwProcessId)~=0 then
  114.  
  115.     local dwProcessId = lpdwProcessId[0]
  116.  
  117.     local hProcess =    C.OpenProcess(bit64.bor(PROCESS_VM_READ,PROCESS_QUERY_INFORMATION),0,dwProcessId)
  118.  
  119.     if hProcess==nil then far.Message("",nil,nil,"e"); return end
  120.  
  121.     --local c = PSAPI.GetProcessImageFileNameW(hProcess,ffi.cast("void*",buff),maxlen)
  122.  
  123.     local c = PSAPI.GetModuleFileNameExW(hProcess,nil,ffi.cast("void*",buff),maxlen)
  124.  
  125.     if c~=0 then
  126.  
  127.       return win.Utf16ToUtf8(ffi.string(buff,c*ffi.sizeof"wchar_t")):match"([^\\]+)%.exe$":lower()
  128.  
  129.     else
  130.  
  131.       --far.Message("",nil,nil,"e")
  132.  
  133.     end
  134.  
  135.   end
  136.  
  137. end
  138.  
  139.  
  140.  
  141. local function fixUnicodeText()
  142.  
  143.   --based on sample from https://msdn.microsoft.com/library/ms64 ... _Clipboard
  144.  
  145.   if C.IsClipboardFormatAvailable(CF_TEXT) and C.OpenClipboard(nil)~=0 then
  146.  
  147.     local hglb = C.GetClipboardData(CF_TEXT)
  148.  
  149.     local lpstr = C.GlobalLock(hglb)
  150.  
  151.     local utf16
  152.  
  153.     if lpstr~=nil then
  154.  
  155.       local str = ffi.string(lpstr)
  156.  
  157.       utf16 = win.MultiByteToWideChar(str,win.GetACP())
  158.  
  159.       ---> set proper CF_UNICODETEXT
  160.  
  161.       local hglbCopy = C.GlobalAlloc(GMEM_MOVEABLE,(str:len()+1)*ffi.sizeof"wchar_t");
  162.  
  163.       if hglbCopy~=nil then
  164.  
  165.         local lptstrCopy = ffi.gc(C.GlobalLock(hglbCopy),function()C.GlobalFree(hglbCopy)end)
  166.  
  167.         if lptstrCopy~=nil then
  168.  
  169.           ffi.copy(lptstrCopy,utf16.."\0")
  170.  
  171.           if C.GlobalUnlock(hglbCopy)==0 and C.SetClipboardData(CF_UNICODETEXT,hglbCopy)~=nil then
  172.  
  173.             ffi.gc(lptstrCopy,nil)
  174.  
  175.           end
  176.  
  177.         end
  178.  
  179.       end
  180.  
  181.       ---<
  182.  
  183.       C.GlobalUnlock(hglb)
  184.  
  185.     end
  186.  
  187.     C.CloseClipboard()
  188.  
  189.     --return win.Utf16ToUtf8(utf16)
  190.  
  191.   end
  192.  
  193. end
  194.  
  195.  
  196.  
  197. local legacy = {["1cv7s"]=true}
  198.  
  199.  
  200.  
  201. Macro { description="исправление кривого юникода в буфера обмена";
  202.  
  203.   area="Editor Dialog Shell QView Tree Info"; key="ShiftIns";
  204.  
  205.   uid="A012927B-C307-4177-A8BB-FE3C3EB1921C";
  206.  
  207.   condition=function()
  208.  
  209.     if not Area.Dialog or Dlg.ItemType==far.Flags.DI_EDIT then
  210.  
  211.       local exe = GetClipboardOwnerExe()
  212.  
  213.       return exe and legacy[exe]
  214.  
  215.     end
  216.  
  217.   end;
  218.  
  219.   action=function()
  220.  
  221.     fixUnicodeText()
  222.  
  223.     Keys"AKey"
  224.  
  225.   end;
  226.  
  227. }
Update
Переделал:
User avatar
John Doe
Бюрократ
Posts: 13801
Joined: Wed 27 Apr, 2005 20:42
Has thanked: 72 times
Been thanked: 425 times
Contact:

Исправление некорректного юникода из буфера обмена

Post by John Doe »

Упрощённая версия:
  1. --http://forum.farmanager.com/viewtopic.php?f=15&t=8093&p=131056#p131056
  2.  
  3. local ffi = require"ffi"
  4.  
  5. ffi.cdef[[
  6.  
  7. BOOL OpenClipboard(HWND hWndNewOwner); //_In_opt_ //https://msdn.microsoft.com/library/ms649048
  8.  
  9. BOOL CloseClipboard(void); //https://msdn.microsoft.com/library/ms649035
  10.  
  11. HANDLE GetClipboardData(UINT uFormat); //https://msdn.microsoft.com/library/ms649039
  12.  
  13. LPVOID GlobalLock(HGLOBAL hMem); //https://msdn.microsoft.com/library/aa366584
  14.  
  15. BOOL GlobalUnlock(HGLOBAL hMem); //https://msdn.microsoft.com/library/aa366595
  16.  
  17. BOOL IsClipboardFormatAvailable(UINT format); //https://msdn.microsoft.com/library/ms649047
  18.  
  19. UINT EnumClipboardFormats(UINT format); //_In_ //https://msdn.microsoft.com/library/ms649038
  20.  
  21. ]]
  22.  
  23.  
  24.  
  25. local C = ffi.C
  26.  
  27. local CF_TEXT = 1
  28.  
  29. local CF_LOCALE = 16
  30.  
  31.  
  32.  
  33. local function GetClipboardData(format,getf)
  34.  
  35.   local hglb = C.GetClipboardData(format)
  36.  
  37.   if hglb~=0 then
  38.  
  39.     local lpstr = C.GlobalLock(hglb)
  40.  
  41.     if lpstr~=nil then
  42.  
  43.       local out = (getf or ffi.string)(lpstr)
  44.  
  45.       C.GlobalUnlock(hglb)
  46.  
  47.       return out
  48.  
  49.     end
  50.  
  51.   end
  52.  
  53. end
  54.  
  55.  
  56.  
  57. local ru_RU = 0x419 --https://msdn.microsoft.com/en-us/goglobal/bb896001.aspx
  58.  
  59. local function fixUnicodeText()
  60.  
  61.   if C.IsClipboardFormatAvailable(CF_TEXT) and C.OpenClipboard(nil)~=0 then
  62.  
  63.     local utf8
  64.  
  65.     if C.EnumClipboardFormats(0)==CF_TEXT then
  66.  
  67.       local locale = GetClipboardData(CF_LOCALE,function(buf)return ffi.cast("LCID*",buf)[0] end)
  68.  
  69.       if locale~=ru_RU then
  70.  
  71.         local ansi = GetClipboardData(CF_TEXT)
  72.  
  73.         if ansi then
  74.  
  75.           utf8 = win.Utf16ToUtf8(win.MultiByteToWideChar(ansi,win.GetACP()))
  76.  
  77.         end
  78.  
  79.       end
  80.  
  81.     end
  82.  
  83.     C.CloseClipboard()
  84.  
  85.     return utf8
  86.  
  87.   end
  88.  
  89. end
  90.  
  91.  
  92.  
  93. local text
  94.  
  95. Macro { description="исправление кривого юникода в буфера обмена";
  96.  
  97.   area="Editor Dialog Shell QView Tree Info"; key="ShiftIns";
  98.  
  99.   id="A012927B-C307-4177-A8BB-FE3C3EB1921C";
  100.  
  101.   condition=function()
  102.  
  103.     if not Area.Dialog or Dlg.ItemType==far.Flags.DI_EDIT then
  104.  
  105.       text = fixUnicodeText()
  106.  
  107.       return text
  108.  
  109.     end
  110.  
  111.   end;
  112.  
  113.   action=function()
  114.  
  115.     mf.beep()
  116.  
  117.     mf.print(text)
  118.  
  119.   end;
  120.  
  121. }
Post Reply

Return to “Обсуждение макросов”