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

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

对象不支持此属性或方法：浏览器 （..）。页面（...）。网站编辑（...）.类型'

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