如何選擇瀏覽器中顯示的所有文本並將其復制並粘貼到記事本中？

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確實起作用，但是對於第二行，我收到以下錯誤：

對象不支持此屬性或方法：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