Copy content from a text file & paste it in text area in a web page

[qtpnewbie1]

Hi,

Can anyone please tell me how to automate copying the content from a text file and pasting it on a text area of a web browser?

The code I have tried copies the content and pastes it on the QTP expert view as a huge line. It is a big text file and I don't want the content to be copied as inline text in QTP. Is this possible?

Please Help!

[roxer]

Hi
Yes, it's possible.
Before running test you can save text, that should be copied, to some text file.
Below code that opens this file and reads it's content to some variable. As I understand, you know how to paste text in text area of browser, and you just need code how to read text from file.
I write function for you that receives pathToFile as argument and returns text, that this file contains:

Code:

Function readTextFromFile(pathToFile)
  'creating File System Object
  Set fso = createObject("Scripting.FileSystemObject")
  If fso.FileExists(pathToFile) = True Then
   'open text file for reading
   Set f = fso.openTextFile(pathToFile, 1)
   'read all text from file and return it to function
   readTextFromFile = f.ReadAll
   'close file
   f.Close
  End If
End Function

Using this function:

Code:

text = readTextFromFile(filePath)

[qtpnewbie1]

Thank you so much. It worked. Thanks again.