Copy text from file1, Replace text from file2 with text from file1

[bjotorres]

I want to replace text from file2 with text copied from file1 using QTP. Can anyone help me find my way?

[roxer]

hi, bjotorres
Here simple code that I wrote.

Code:

'path to file from which text will be copied fromPath = "c:\from.txt" 'path to file where text should be replaced toPath = "c:\to.txt" textThatShouldBeReplaced = "some text to search" 'create File System Object to perform manipulations with files Set fso = CreateObject("Scripting.FileSystemObject") 'Open text file for reading, copy text from it and close it Set from_file = fso.OpenTextFile(fromPath, 1) copiedText = from_file.ReadAll from_file.Close 'Open text file for writing, replace text in it and close it Set to_file = fso.OpenTextFile(toPath, 1) fileText = to_file.ReadAll to_file.Close fileText = Replace(fileText, textThatShouldBeReplaced, copiedText, 1, -1, 1) Set to_file = fso.OpenTextFile(toPath, 2) to_file.Write fileText to_file.Close

Maybe it'll help you.