如何select将浏览器中显示的所有文字复制粘贴到记事本中？

Question

我想select将页面上显示的所有文字粘贴到记事本中。我有以下代码，但它不起作用。

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 的第一行确实有效，但对于第二行，我收到以下错误：

Object doesn't support this property or method: Browser (..).Page(...).WebEdit(...).Type'

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

如何select将浏览器中显示的所有文字复制粘贴到记事本中？

How to select all text displayed in browser and copy and paste it in the Notepad?

vbscript

qtp

hp-uft