複製文本並粘貼到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

來源

2017-09-19 Nova

你爲什麼不只是從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

來源

2017-09-19 12:47:24 Gurman

中的價值field1沒有設置並不斷變化。這就是爲什麼我想模擬複製和粘貼操作。 – Nova

無論值是什麼，getroproperty（「text」）都會獲取該字段的屬性「文本」的運行時值。這意味着，在運行期間，field1中的任何值/文本將被提取並存儲在變量中 – Gurman

@Nova您是否試過這段代碼？如果是的話，你是否得到任何錯誤或者代碼是否被執行而沒有做任何事情？嘗試打印提取的值並查看正在提取的值是否正確。如果不是，請檢查是否存在使用對象間諜存儲field1值的field1的其他任何屬性。 – Gurman

複製文本並粘貼到UFT

回答

相關問題