如何在 MS Windows XP 中检索 Unicode CSV 剪贴板数据？

发布于 2024-09-06 07:31:53 字数 962 浏览 5 评论 0原文

我正在为一个较大的项目编写一个测试应用程序，似乎无法从 Windows 剪贴板检索 Unicode CSV 数据，我使用内置的 GetClipboardData api 调用成功检索 CF_UNICODETEXT，但是当我将 Unicode CSV 放在 MSExcel 中的剪贴板上时，尝试使用 CSV 格式检索，但得到的数据不正确。这是一些代码；

procedure TForm1.Button7Click(Sender: TObject);
var
   hMem     : THandle;
   dwLen    : DWord;
   ps1, ps2 : pChar;
begin
   OpenClipboard( form1.Handle );
   RichEdit1.Lines.Clear;
   try
      if Clipboard.HasFormat( CF_UNICODETEXT ) then
      begin
         hMem := GetClipboardData( CF_UNICODETEXT );
         ps1 := GlobalLock( hMem );
         dwLen := GlobalSize( hMem );
         ps2 := StrAlloc( 1 + dwLen );
         StrLCopy( ps2, ps1, dwLen );
         GlobalUnlock( hMem );
         RichEdit1.Lines.Add( ps2 );
      end
      else
         ShowMessage( 'No CF_UNICODETEXT on Clipboard!' );
   finally
      CloseClipboard;
   end;
end;

现在这段代码也应该适用于 CSV，但是当我将剪贴板格式更改为我想要的格式时，应用程序将无法获取正确的数据。重要的是要知道我可以很好地获得选项卡式 Unicode，但不是我想要的 CSV。

原文

I am writing a test app for a larger project and cant seem to retrieve Unicode CSV data from the Windows Clipboard, I am successful at retrieving CF_UNICODETEXT, using the built in GetClipboardData api call, however when I place Unicode CSV on the clipboard in MSExcel and try to retrieve with CSV format, I get bad data. Here is some code;

procedure TForm1.Button7Click(Sender: TObject);
var
   hMem     : THandle;
   dwLen    : DWord;
   ps1, ps2 : pChar;
begin
   OpenClipboard( form1.Handle );
   RichEdit1.Lines.Clear;
   try
      if Clipboard.HasFormat( CF_UNICODETEXT ) then
      begin
         hMem := GetClipboardData( CF_UNICODETEXT );
         ps1 := GlobalLock( hMem );
         dwLen := GlobalSize( hMem );
         ps2 := StrAlloc( 1 + dwLen );
         StrLCopy( ps2, ps1, dwLen );
         GlobalUnlock( hMem );
         RichEdit1.Lines.Add( ps2 );
      end
      else
         ShowMessage( 'No CF_UNICODETEXT on Clipboard!' );
   finally
      CloseClipboard;
   end;
end;

Now this code should work for CSV as well, but when I change my Clipboard format to what I'm desiring, the app will not get proper data. It might be important to know that I can get tabbed Unicode just fine, just not he CSV I desire.

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

浅暮の光 2024-09-13 07:31:53

Excel 使用的 CSV 剪贴板格式是 ANSI编码，而不是 Unicode。

通过转储 Excel 2007 剪贴板，启用 Unicode 的有：

CF_UNICODETEXT
“HTML 格式”
“富文本格式”
“XML 电子表格”

“XML 电子表格”和“HTML 格式”都有明确定义的表/行，因此它们应该'从中提取数据并不难。

回复收藏 0 原文

初熏 2024-09-13 07:31:53

您需要请求 CF_CSV 格式。在获得 CF_CSV 形式的数据后，您可以将其视为 AnsiString，然后根据需要转换为 UnicodeString。

下面的屏幕截图显示了从 Excel2007 复制的 6 个单元格。我将其捕获为 CF_CSV，然后用 ClipMate 的十六进制查看器显示。您将看到这些字段以逗号（十六进制 2C）分隔，并以 CRLF (x0Dx0A) 终止。您在下面看到的是一个带注释的合成图，显示了 Excel、复制的区域以及 ClipMate 将 CF_CSV 呈现为十六进制字节的情况。

_{（来源：thornsoft.com）}