QTP如何实现复制粘贴功能

Mr.Prince

我现在测试的一个软件中有一个输入框，该输入框不支持从键盘输入，只能通过复制粘贴来输入数据，请问能不能用QTP脚本来实现从测试数据文本文件中拷贝测试数据粘贴到该输入框的功能？求达人指教，不胜感激！

lijinshui

恩 可以找到了，但是感觉好麻烦
HP把这个帮助文档搞得藏着掖着，偷来的阿

lijinshui

关于 mercury提供的这些有用的函数在那里可以查阿，好像QTP自带的那个帮助文档不是很全阿

hihotb

哇塞，学习了。。

Mr.Prince

我是在搜索里查找clipboard，然后在搜索出的结果中找到标题为Standard Windows Environment里面看到的，我这里是第五个标题。内容里的最后几行就是21#说的那些。

intothestorm

原帖由 Mr.Prince 于 2009-6-11 11:53 发表
我查了一下帮助，果然如楼上所说，Mercury自带操作剪切板的方法……

不是楼上的回答，我的弯路走得好远
不过我在帮助文档里查不到这个方法，楼主怎么查的？

ls_721521

学习。。。

欧阳

Set MyClipboard = CreateObject("Mercury.Clipboard")
MyClipboard.Clear
MyClipboard.SetText "TEST"
MsgBox MyClipboard.GetText

Mr.Prince

我查了一下帮助，果然如楼上所说，Mercury自带操作剪切板的方法……

hsjzfling

哪里需要那么麻烦呢，添加到剪贴板直接使用Mercury提供的对象就好了

1. Set oCB = CreateObject("Mercury.Clipboard")
   
2. oCB.SetText "Copy me"
   
3. Set oCB = Nothing

复制代码

shanxi

function getData(path)
set fso = Createobject("Scripting.FileSystemObject")
set file_p=fso.OpenTextFile(path)
str=file_p.readall()

dim objhtm,flg   
set objhtm=createobject("htmlfile")  
  
flg=objhtm.parentwindow.clipboarddata.setdata("text",str)  

end function
getData "d:\a.txt"

Mr.Prince

我理解上面的代码是利用IE的地址栏将测试数据拷贝到剪切板，并且隐藏了IE窗口，确实解决了ctrl+c的问题，学习了
非常感谢intothestorm

intothestorm

' Have you played this funny game?
str = "Plants Vs Zombies"
setClipBoardData str
Msgbox getClipBoardData

Public Function getClipBoardData
        Set oIE = CreateObject("InternetExplorer.Application")
        oIE.Navigate("about:blank")
        oIE.visible=False
        getClipBoardData = oIE.document.parentwindow.clipboardData.GetData("text")
        Set oIE = Nothing
End Function

Public Sub setClipBoardData(strCopy)
        Set oIE = CreateObject("InternetExplorer.Application")
        oIE.Navigate("about:blank")
        oIE.visible=False
        oIE.document.parentwindow.clipboardData.SetData "text", strCopy
        Set oIE = Nothing
End Sub

Mr.Prince

原帖由 intothestorm 于 2009-6-10 18:20 发表
解决问题不能一根筋
你不要老想着怎么ctrl+c, ctrl+v...
退一步海阔天空，你尝试一下怎么通过操作windows的clipboard来解决你的问题。

你的意思是把测试数据保存到剪切板吧，这我还真不会，你教教我？

intothestorm

解决问题不能一根筋
你不要老想着怎么ctrl+c, ctrl+v...
退一步海阔天空，你尝试一下怎么通过操作windows的clipboard来解决你的问题。

peterz

原帖由 Mr.Prince 于 2009-6-10 17:29 发表
太难了，查不到……

用模拟录制试试看看。

intothestorm

什么控件这么神奇，不能输入，只能粘贴

Mr.Prince

太难了，查不到……

ls_721521

是啊，ctrl+c如何选择数据呢，用鼠标拖动选中数据？那就得更改qtp的录制方式了。。还要考虑用坐标。。
估计这个不可行吧。。
用别的方法吧，查查api看有没有可用的函数

Mr.Prince

原帖由 ls_721521 于 2009-6-10 17:04 发表
哦，那个只适合web的。
你可以用模拟键盘操作，用shell对象试试吧。。

是考虑过shell对象，ctrl+v倒是简单，怎么从测试数据中ctrl+c难住我了……