richedit streamtofile adds newline every time

[TheAutomator]

doing _GUICtrlRichEdit_StreamToFile($rich_edit, 'test.rtf') and _GUICtrlRichEdit_StreamFromFile($rich_edit, 'test.rtf') on repeat keeps adding a newline at the end of the text over and over every step, how can i prevent this?

Edited March 5 by TheAutomator

[Nine]

Seems that Windows automatically add a new paragraph at the end of the document.  But it can be easily removed before writing the rich edit to the file.  You could create a new ticket in Bug Tracker and ask the devs to modify _GUICtrlRichEdit_StreamToFile in order to delete the new added paragraph at the end.

In the mean time, you will need to replace the UDF callback with your own.  Here how you could do it  :

expandcollapse popup

#include <GUIConstants.au3>
#include <GuiRichEdit.au3>
#include <WindowsConstants.au3>

Opt("MustDeclareVars", True)

$__g_pGRC_StreamToFileCallback = DllCallbackRegister("__GCR_StreamToFileCallbackEx", "dword", "long_ptr;ptr;long;ptr")

Example()

Func Example()
  Local $hGui = GUICreate("Example (" & StringTrimRight(@ScriptName, StringLen(".exe")) & ")", 320, 350, -1, -1)
  Local $hRichEdit = _GUICtrlRichEdit_Create($hGui, "This is a test.", 10, 10, 300, 220, _
      BitOR($ES_MULTILINE, $WS_VSCROLL, $ES_AUTOVSCROLL))
  Local $idBtnIn = GUICtrlCreateButton("In", 270, 310, 40, 30)
  Local $idBtnOut = GUICtrlCreateButton("Out", 170, 310, 40, 30)
  GUISetState(@SW_SHOW)

  _GUICtrlRichEdit_SetText($hRichEdit, "First paragraph")
  While True
    Switch GUIGetMsg()
      Case $GUI_EVENT_CLOSE
        ExitLoop
      Case $idBtnOut
        _GUICtrlRichEdit_StreamToFile($hRichEdit, @DesktopDir & "\gcre.rtf")
      Case $idBtnIn
        _GUICtrlRichEdit_StreamFromFile($hRichEdit, @DesktopDir & "\gcre.rtf")
    EndSwitch
  WEnd
  _GUICtrlRichEdit_Destroy($hRichEdit)
EndFunc   ;==>Example

Func __GCR_StreamToFileCallbackEx($hFile, $pBuf, $iBuflen, $pQbytes)
  Local $tQbytes = DllStructCreate("long", $pQbytes)
  DllStructSetData($tQbytes, 1, 0)
  Local $tBuf = DllStructCreate("char[" & $iBuflen & "]", $pBuf)
  Local $s = StringReplace(DllStructGetData($tBuf, 1), "\par" & @CRLF & "}", @CRLF & "}")
  FileWrite($hFile, $s)
  DllStructSetData($tQbytes, 1, StringLen($s))
  Return 0
EndFunc   ;==>__GCR_StreamToFileCallbackEx

ps. Not much testing in there and I did not test all the options,  I'll let you do that if you will...

[TheAutomator]

10 minutes ago, Nine said:

Seems that Windows automatically add a new paragraph at the end of the document.  But it can be easily removed before writing the rich edit to the file.  You could create a new ticket in Bug Tracker and ask the devs to modify _GUICtrlRichEdit_StreamToFile in order to delete the new added paragraph at the end.

In the mean time, you will need to replace the UDF callback with your own.  Here how you could do it  :

expandcollapse popup

#include <GUIConstants.au3>
#include <GuiRichEdit.au3>
#include <WindowsConstants.au3>

Opt("MustDeclareVars", True)

$__g_pGRC_StreamToFileCallback = DllCallbackRegister("__GCR_StreamToFileCallbackEx", "dword", "long_ptr;ptr;long;ptr")

Example()

Func Example()
  Local $hGui = GUICreate("Example (" & StringTrimRight(@ScriptName, StringLen(".exe")) & ")", 320, 350, -1, -1)
  Local $hRichEdit = _GUICtrlRichEdit_Create($hGui, "This is a test.", 10, 10, 300, 220, _
      BitOR($ES_MULTILINE, $WS_VSCROLL, $ES_AUTOVSCROLL))
  Local $idBtnIn = GUICtrlCreateButton("In", 270, 310, 40, 30)
  Local $idBtnOut = GUICtrlCreateButton("Out", 170, 310, 40, 30)
  GUISetState(@SW_SHOW)

  _GUICtrlRichEdit_SetText($hRichEdit, "First paragraph")
  While True
    Switch GUIGetMsg()
      Case $GUI_EVENT_CLOSE
        ExitLoop
      Case $idBtnOut
        _GUICtrlRichEdit_StreamToFile($hRichEdit, @DesktopDir & "\gcre.rtf")
      Case $idBtnIn
        _GUICtrlRichEdit_StreamFromFile($hRichEdit, @DesktopDir & "\gcre.rtf")
    EndSwitch
  WEnd
  _GUICtrlRichEdit_Destroy($hRichEdit)
EndFunc   ;==>Example

Func __GCR_StreamToFileCallbackEx($hFile, $pBuf, $iBuflen, $pQbytes)
  Local $tQbytes = DllStructCreate("long", $pQbytes)
  DllStructSetData($tQbytes, 1, 0)
  Local $tBuf = DllStructCreate("char[" & $iBuflen & "]", $pBuf)
  Local $s = StringReplace(DllStructGetData($tBuf, 1), "\par" & @CRLF & "}", @CRLF & "}")
  FileWrite($hFile, $s)
  DllStructSetData($tQbytes, 1, StringLen($s))
  Return 0
EndFunc   ;==>__GCR_StreamToFileCallbackEx

ps. Not much testing in there and I did not test all the options,  I'll let you do that if you will...

Thanks for the help, added ticket to bugtracker

[jpm]

I am wondering if this proposal is complete

as I understand the wrong (/par) is replaced at the end by a /fs17

so why it is not coming first ?

as I a don't know about .rtf content can you clarify

Thanks

[Nine]

3 hours ago, jpm said:

I am wondering if this proposal is complete

as I understand the wrong (/par) is replaced at the end by a /fs17

so why it is not coming first ?

as I a don't know about .rtf content can you clarify

Not sure I understand what you are asking.  \fs17 means a font size.  \par is for paragraph.  (notice it is a back slash, not a slash)

The code I suggested simply remove the last \par.  There is no harm to have a font size at the end.

If you want to learn about rtf encoding, you can refer to this.

[jpm]

WIth your mod a /fs17 is included 

That was my concern

[Nine]

I do not include it, it is Windows that is including it with the \par

Edited March 11 by Nine
typo

[jpm]

I agree  you do not include it biy at the end it is included

[TheAutomator]

For those who are interested in what I'm making:  Gonna upload this in the example scripts and udf's section

https://www.autoitscript.com/forum/topic/212763-minimark-a-minimalistic-rtf-editor/

 

Edited March 13 by TheAutomator