这种想法能实现么(数据提取)

Question

详细情况是这样：我公司是有一台分析不锈钢成分的设备，该设备有附带软件，
现需要将分析后的部分数据提取出来，我现在的做法是：
选中要提取的数据按Ctrl+C,然后再在按Ctrl+V粘贴到cxgrid表格里，有没有更简单的方法，如选中要提取的数据后自动将数据粘贴到相应的cxgrid表格里。

Answer 1

是不是只要思路，不要代码啊？那我可答了在拖放过程中完成Ctrl+C和Ctrl+V所做的工作，貌似简单一点。

Answer 2

你要选择并提取的数据，是用什么形式与用户交互的？DBGrid吗？

Answer 3

cxGrid
我提取的数据格式是：[0.91234]
将0.91234选中后粘贴到cxGrid某一单元格里。

Answer 4

如果是Grid1---->Grid2，可以分别设置数据源，然后设置Grid1多选，多选后直接用一个按钮就可以了，也不必拖放，也不必设置快捷键。按钮的代码，就是把Grid1中多选的记录，Append到Grid2对应的DataSet中。关于“把Grid1中多选的记录，Append到Grid2对应的DataSet中”，可以参考下面这贴5楼GDTOPONE的代码
http://topic.csdn.net/u/20080324/22/92943439-c01f-46ea-8917-f150b9c1ca37.html

Answer 5

刀友：
可能我没说清楚：这台分析设备连接在电脑上，该设备有附带分析软件，
每次分析完成后会有一个窗口显示所分析的结果，
结果呈现格式为：
Ni        Mo
----------------
0.1235   8.1254
2.5674   7.8556
5.2567   8.0125
...      ...
数据就是从这个窗口提取，cxGrid是我自己做的统计分析软件

Answer 6

哦，我还真的是误会了你的意思。原来是在两个程序之间交换信息啊！
前面我说的所有话，都作废。重新考虑思路。监视附带分析软件数据控件上的鼠标消息，然后GetText，放入自己的程序。

Answer 7

关键是你要取的数据在哪个分析软件的什么窗口里面如果是文本的话直接gettext取出来就行了如果gettext取不出来的话可以试试postmessage()

Answer 8

你的问题就几个字：怎么使用cxGrid。
说那么多废话干嘛。

Answer 9

cxGrid格式： 日期      No.   Ni       Mo
----------------------------
08/3/27  1   0.1235    8.1254
...

Answer 10

现在只能看到要取的数据窗口的Caption

Answer 11

你在分析软件中,把结果存成一个文本文件
然后,用你的程序去读取这个文本文件,将其提交到数据库中就可以了.
Ni        Mo
----------------
0.1235   8.1254
2.5674   7.8556
5.2567   8.0125 

Answer 12

在cxgrid中如何实现复制、粘贴功能
如果cxgrid的edit属性为false ，cxgrid将不具有复制、粘贴功能，此法可实现
1、uses clipbrd;
2、复制
procedure TForm1.cxButton1Click(Sender: TObject);
var
p1,p2:integer;
p3:string;
begin
p1:=cxGrid5DBTableView1.Controller.FocusedRowIndex;
p2:=cxGrid5DBTableView1.Controller.FocusedColumnIndex;
p3:=cxGrid5DBTableView1.DataController.Values[p1,p2];
showmessage(inttostr(p1)+','+inttostr(p2)+','+p3);
clipboard.AsText:=p3;
3.粘贴
procedure TForm1.cxButton1Click(Sender: TObject);
begin
  keybd_event(VK_Control, MapVirtualKey(VK_Control, 0), 0, 0);
    keybd_event(ord('C'), MapVirtualKey(ord('C'), 0), 0, 0);
    keybd_event(ord('C'), MapVirtualKey(ord('C'), 0), KEYEVENTF_KEYUP, 0);
    keybd_event(VK_Control, MapVirtualKey(VK_Control, 0), KEYEVENTF_KEYUP,0); 
end;
---------------------------------------------- 
[email protected]