Question

我想选择页面上显示的所有文本并将其粘贴到记事本中。我有以下代码，但它无法正常工作。

Browser("Display Token").Page("Display Token").WebEdit("html tag:=TEXTAREA").Click
Browser("Display Token").Page("Display Token").WebEdit("html tag:=TEXTAREA").Type  micCtrlDwn + "a" + micCtrlUp
Browser("Display Token").Page("Display Token").WebEdit("html tag:=TEXTAREA").Type  micCtrlDwn + "c" + micCtrlUp

Click的第一行确实有效，但对于第二行我收到以下错误：

对象不支持此属性或方法：浏览器（..）。页面（...）。WebEdit（...）。键入＆＃39;

Answer 1

为什么要复制和粘贴文本？

使用QTP / UFT获取网页文本

sPageText = Browser("Display Token").Page("Display Token").object.innerText

要写入txt文件，

Set oFSO=CreateObject("Scripting.FileSystemObject")
oFileName="c:\<filepath>\pagecontent.txt"
Set oFile = oFSO.CreateTextFile(oFileName,True)
oFile.Write sPageText 
oFile.Close

如何选择浏览器中显示的所有文本并将其复制并粘贴到记事本中？

1 个答案: