复制文本并粘贴到UFT

问题描述：

我想复制网页中的文本并将其粘贴到同一网页上的其他字段中。复制文本并粘贴到UFT

这里是我试过至今没有成功

这是我的代码：

Browser("Candidate").Page("Candidate").WebEdit("ctl00$Main$Tabs").GetROProperty + micCtrlDwn + "a" + micCtrlUp 
Browser("Candidate").Page("Candidate").WebEdit("ctl00$Main$Tabs").GetROProperty + micCtrlDwn + "c" + micCtrlUp 
Browser("Candidate").Page("Candidate").WebEdit("ctl00$Main$TabsCPe_3").Click 
Browser("Candidate").Page("Candidate").WebEdit("ctl00$Main$TabsCPe_3").GetROProperty + micCtrlDwn + "v" + micCtrlUp

它点击场上我需要它的文本复制从，但不选择所有文本并将其复制到定义的目标。

Object properties for feild1 after entering text manually

feild1 object spy

答

你为什么不只是从FIELD1获取值，将其存储在一个变量，该值设置为FIELD2，如下图所示：

Dim strValue 
'fetch the value from field1 and store it in a variable 
strValue = Browser("Candidate").Page("Candidate").WebEdit("ctl00$Main$Tabs").getRoProperty("value") 

'set that value to field2 
Browser("Candidate").Page("Candidate").WebEdit("ctl00$Main$TabsCPe_3").set strValue

中的价值field1没有设置并不断变化。这就是为什么我想模拟复制和粘贴操作。 – Nova

无论值是什么，getroproperty（“text”）都会获取该字段的属性“文本”的运行时值。这意味着，在运行期间，field1中的任何值/文本将被提取并存储在变量中 – Gurman

@Nova您是否试过这段代码？如果是的话，你是否得到任何错误或者代码是否被执行而没有做任何事情？尝试打印提取的值并查看正在提取的值是否正确。如果不是，请检查是否存在使用对象间谍存储field1值的field1的其他任何属性。 – Gurman

复制文本并粘贴到UFT

相关推荐