Copy RTF file to clipboard in RTF format?

[emendelson]

I have a script that tries to read an RTF file to the Windows clipboard so that the clipboard data can be pasted into Word and other RTF-aware applications as formatted text. Unfortunately, the script always pastes the "raw" RTF code (with all the curly brackets, etc.), not formatted RTF text. I've studied the help file and searched the forum, but haven't come up with an answer,

Here is the relevant part of my code (simplified):

$outfile = outfile.rtf
$txthandle = FileOpen($outfile)
$convtext = FileRead($txthandle)
FileClose($txthandle)
ClipPut($convtext)

Is there a solution to this problem?

 

 

[BrewManNH]

ClipPut and ClipGet only work with text, you'd need to use _ClipBoard_SetData to put formatted text onto the clipboard.

[emendelson]

Thank you. That pointed me in the right direction. This works:

$outfile = outfile.rtf
$txthandle = FileOpen($outfile)
$convtext = FileRead($txthandle)
FileClose($txthandle)
FileDelete($outfile)
$clipFmt = _ClipBoard_RegisterFormat("Rich Text Format")
$ret = _ClipBoard_SetData($convtext, $clipFmt)

The tricky part was setting the $clipFmt variable and then using it. This detail was missing from at least one other solution posted on the forum a few years ago.

Thank you again!

[mLipok]

Here:

  Quote

$outfile = outfile.rtf

Expand  

should be used quotation marks.

Here is small modification:

#include <Clipboard.au3>
_Example()
Func _Example()
    Local $sRTF_FileFullPath = @ScriptDir & '\outfile.rtf'
    Local $hFile = FileOpen($sRTF_FileFullPath)
    Local $sRTF_Content = FileRead($hFile)
    FileClose($hFile)
;~  FileDelete($sRTF_FileFullPath)
    Local $iClipboardFormat = _ClipBoard_RegisterFormat("Rich Text Format")
    Local $hMemory = _ClipBoard_SetData($sRTF_Content, $iClipboardFormat)   
EndFunc

 

[emendelson]

Thank you for that. I'll put this into a function, as you suggest.

The simplified code in my post simplified the file specification. In my real code it's:

$convdir = @TempDir & "\wpconv"
$outfile = $convdir & "\output.rtf"

The script copies a WordPerfect file into the temporary directory, then runs a conversion program to create $outfile.

Again, thanks for the improvements and for the "like"!