Ir al contenido principal

Sage X3 convert RTF to plain text


Here a function to convert a Clob rtf text to plain text
Example of function that return the converted text into a Char variable
Good only for short text, less than 250 chars
  1. Funprog F_RTF2TEXT(CLOB)
  2. Variable Clbfile CLOB
  4. Local Integer LENTXMT : LENTXMT = 250
  5. Local Integer NRIGHE : NRIGHE = 4 # 4 = 250x4 char
  7. Local Char XOUT(LENTXMT)(NRIGHE)
  9. Call S_RTF2TEXT(LENTXMT,CLOB,XOUT,NRIGHE)
  11. #Concatenate the row with plain text, by removing the empty space
  12. Local Char XRET(250) : Raz XRET
  13. For XI = 0 To NRIGHE
  14. XRET += vireblc(XOUT(XI),2)
  15. Next
  17. End XRET
Example,
Convert the header text of a sales order
  1. $MYTEST
  2. If !clalev ([F:SOH]) : Local File SORDER [F:SOH] : Endif
  3. If !clalev ([F:TXC]) : Local File TEXCLOB [F:TXC] : Endif
  5. Filter [F:SOH]
  6. Filter [F:TXC]
  7. For [F:SOH] Where SOHNUM = "000000001"
  8. For [F:TXC] Where CODE = [F:SOH]SOHTEX1
  9. local char MYTEXT(250)
  10. MYTEXT = func F_RTF2TEXT([F:TXC]TEXTE)
  11. Infbox "MYTEXT= "+ MYTEXT
  12. Next
  13. Next
  14. Return

Core procedures:

  1. ###############################################################################
  2. # CORE PROCEDURES
  3. #
  4. # Author: Matteo Carminati (mcarminati@ma-tica.it)
  5. #
  6. # This program is free software; you can redistribute it and/or modify it
  7. # under the terms version 3 of the GNU General Public License as published
  8. # by the Free Software Foundation. This program is distributed in the hope
  9. # that it will be useful, but WITHOUT ANY WARRANTY; without even the implied
  10. # warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  11. # See the GNU General Public License for more details.
  12. #
  13. ###############################################################################
  15. Subprog S_RTF2TEXT(PLENRIGAOUT,CLOB,PTXTOUT,PNRIGEOUT)
  16. Value Integer PLENRIGAOUT
  17. Variable Clbfile CLOB
  18. Variable Char PTXTOUT
  19. Variable Integer PNRIGEOUT
  21. Local Integer XRIGHE
  22. Local Integer XNOL
  23. Local Integer XNCH
  24. Local Char XCH(1)
  25. Local Char XCHPREV(1)
  26. Local Integer XSTRTAG1 : XSTRTAG1 = 0
  27. Local Integer XSTRTAG2 : XSTRTAG2 = 0
  29. Local Integer LENGHT : LENGHT = len(CLOB)
  30. Local Integer CLOTAI : CLOTAI = int(LENGHT/GCLOLNG)+1
  32. Local Char PRTFIN (GCLOLNG)(CLOTAI)
  34. Setlob PRTFIN With CLOB
  37. XRIGHE = dim(PRTFIN,1)
  39. Local Char XOUT(250)(XRIGHE)
  40. Local Integer XOUTRLEN(XRIGHE)
  41. Local Char RIGA(250)
  42. Local Integer XESCAPE
  46. #Toglie i tag RTF
  48. For XNOL = 0 To XRIGHE - 1
  49. Raz RIGA
  50. RIGA = PRTFIN(XNOL)
  53. XOUTRLEN(XNOL) = 0
  54. For XNCH = 1 To len(RIGA)
  55. XCHPREV = XCH
  57. XCH = mid$(RIGA,XNCH,1)
  58. If XCH = "\" Then
  59. XESCAPE = -1
  60. If func F_GETNEXTCHR(PRTFIN,1,XNCH,XNOL,XRIGHE)= "}" Then
  61. XCHPREV = XCH
  62. XNCH = XNCH + 1
  63. XCH = "}"
  64. XESCAPE = 1
  65. Endif
  66. If func F_GETNEXTCHR(PRTFIN,1,XNCH,XNOL,XRIGHE)= "{" Then
  67. XCHPREV = XCH
  68. XNCH = XNCH + 1
  69. XCH = "{"
  70. XESCAPE = 1
  71. Endif
  72. If func F_GETNEXTCHR(PRTFIN,4,XNCH,XNOL,XRIGHE)= "pard" Then
  73. XNCH = XNCH + 4
  74. XCH = " "
  75. XESCAPE = 1
  76. Endif
  77. If func F_GETNEXTCHR(PRTFIN,3,XNCH,XNOL,XRIGHE)= "par" Then
  78. XNCH = XNCH + 3
  79. XCH = " "
  80. XESCAPE = 1
  81. Endif
  82. If func F_GETNEXTCHR(PRTFIN,3,XNCH,XNOL,XRIGHE)= "'e0" Then
  83. XNCH = XNCH + 3
  84. XCH = "a"
  85. XESCAPE = 1
  86. Endif
  87. If func F_GETNEXTCHR(PRTFIN,3,XNCH,XNOL,XRIGHE)= "'e9" Then
  88. XNCH = XNCH + 3
  89. XCH = "e"
  90. XESCAPE = 1
  91. Endif
  92. If func F_GETNEXTCHR(PRTFIN,3,XNCH,XNOL,XRIGHE)= "'e8" Then
  93. XNCH = XNCH + 3
  94. XCH = "e"
  95. XESCAPE = 1
  96. Endif
  97. If func F_GETNEXTCHR(PRTFIN,3,XNCH,XNOL,XRIGHE)= "'b0" Then
  98. XNCH = XNCH + 3
  99. XCH = "°"
  100. XESCAPE = 1
  101. Endif
  102. If func F_GETNEXTCHR(PRTFIN,3,XNCH,XNOL,XRIGHE)= "'ec" Then
  103. XNCH = XNCH + 3
  104. XCH = "i"
  105. XESCAPE = 1
  106. Endif
  107. If func F_GETNEXTCHR(PRTFIN,3,XNCH,XNOL,XRIGHE)= "'f2" Then
  108. XNCH = XNCH + 3
  109. XCH = "o"
  110. XESCAPE = 1
  111. Endif
  112. If func F_GETNEXTCHR(PRTFIN,3,XNCH,XNOL,XRIGHE)= "'f9" Then
  113. XNCH = XNCH + 3
  114. XCH = "u"
  115. XESCAPE = 1
  116. Endif
  117. If func F_GETNEXTCHR(PRTFIN,2,XNCH,XNOL,XRIGHE)= "fs" Then #Font size
  118. XNCH = XNCH + 2
  119. XCH = ""
  120. XESCAPE = -1
  121. Endif
  123. If XESCAPE = -1 Then
  124. XSTRTAG1 = 1
  125. XNCH = XNCH + 1
  126. Endif
  128. Endif
  130. If XCH = "{" and XCHPREV <> "\" Then XSTRTAG2 = XSTRTAG2 + 1 : Endif
  132. If XSTRTAG1 = 0 and XSTRTAG2 <= 1 Then
  133. XOUT(XNOL) += XCH
  134. XOUTRLEN(XNOL) += 1
  135. Endif
  136. If XCH = " " or find(func F_GETNEXTCHR(PRTFIN,2,XNCH-1,XNOL,XRIGHE) ,'\}','\{','\\') > 0 Then XSTRTAG1 = 0 : Endif
  137. If XCH = "}" and XCHPREV <> "\" Then XSTRTAG2 = XSTRTAG2 - 1 : Endif
  138. Next
  139. Next
  142. Local Integer XNOL2
  143. Local Integer XCONTA2
  145. XNOL2 = 0
  146. XCONTA2 = PLENRIGAOUT
  147. For XNOL = 0 To XRIGHE - 1
  148. Raz RIGA
  149. RIGA = XOUT(XNOL)
  150. If XNOL = XRIGHE : RIGA = vireblc(RIGA,1) : Endif
  151. If len(RIGA) > 0 Then
  152. For XNCH = 1 To len(RIGA)
  153. XCH = mid$(RIGA,XNCH,1)
  154. If XCH = chr$(13) Then
  155. XCH = " "
  156. If func F_GETNEXTCHR(XOUT,1,XNCH,XNOL,XRIGHE)= chr$(10) Then
  157. XNCH = XNCH + 1
  158. Endif
  159. Endif
  160. If XCH = chr$(10) Then
  161. XCH = " "
  162. If func F_GETNEXTCHR(XOUT,1,XNCH,XNOL,XRIGHE)= chr$(13) Then
  163. XNCH = XNCH + 1
  164. Endif
  165. Endif
  166. If XNCH = 1 and XNOL = 0 and XCH = "{" Then XCH = "" : Endif
  167. PNRIGEOUT = XNOL2 + 1
  168. PTXTOUT(XNOL2) += XCH
  169. XCONTA2 = XCONTA2 - 1
  170. If XCONTA2 = 0 Then
  171. XNOL2 = XNOL2 + 1
  172. XCONTA2 = PLENRIGAOUT
  173. Endif
  174. Next
  175. Endif
  176. Next
  178. #tolgo la graffa finale
  179. RIGA = vireblc(PTXTOUT(XNOL2),1)
  180. If mid$(RIGA,len(RIGA),1) = "}" Then
  181. PTXTOUT(XNOL2) = mid$(RIGA,1,len(RIGA)-1)
  182. Endif
  185. End
  187. ############################
  188. Funprog F_GETNEXTCHR(PARRIN,NCHNEXT,NCURPOS,NCURNOL,NTOTRIGHE)
  189. Value Char PARRIN
  190. Value Integer NCHNEXT
  191. Value Integer NCURPOS
  192. Value Integer NCURNOL
  193. Value Integer NTOTRIGHE
  195. Local Char XRET(NCHNEXT) : XRET = ""
  197. Local Integer XNCH
  198. Local Char RIGA(250)
  199. Local Integer XCONTA
  201. For XNOL = NCURNOL To NTOTRIGHE - 1
  202. RIGA = PARRIN(NCURNOL)
  203. For XNCH = NCURPOS + 1 To len(RIGA) - 1
  204. XRET += mid$(RIGA,XNCH,1)
  205. XCONTA += 1
  206. If XCONTA = NCHNEXT Then
  207. Break
  208. Endif
  209. Next
  210. If XCONTA = NCHNEXT Then
  211. Break
  212. Endif
  213. NCURPOS = 0
  214. Next
  215. End XRET

Entradas populares de este blog

Valores de fstat

Fstat fstat  is a numeric status that is returned upon execution of a database operation, a sequential file operation, or a lock instruction. Syntax fstat Examples # MYTABLE is a table with a key called KEY1, that has a unique component called KEYVAL # Create a record in the table MYTABLE with they key value 1 if it doesn't exist Local File MYTABLE [MYT] Read [MYT]KEY1=1 If fstat [MYT]KEYVAL=1 : Write [MYT] If fstat MSG="The key was created in the mean time" Else MSG="Key created" Endif Else MSG="Key already exists" Endif Details fstat  is always set to '0' if the operation is successfully completed, and has a non-null value if there is an error: In a sequential read ( Getseq  and  Rdseq ),  fstat  is set to '1' at the end of the file. On  Lock ,  fstat  is set to '1' if the lock could not be performed. For a database operation ( Read ,  Look ,  Readlock ,  For ,  Write ,  ...
Leer más

3 ways to send a mail from code in Sage X3, with more attachments too

Origen Fuente:  https://en.sagedev.it/sagex3/send-mail-from-code-with-attachments-sage-x3/ Autor:  https://en.sagedev.it/category/sagex3/ In this post I’ll show you how to send a mail from adonix code in Sage X3. The points we will face are: 1) Meladx/Send introduction 2) Sending  through  meladx (the best way for me: at the end with just a single code line you send a mail!) 3) Sending  through  Workflow 4) Sending  through  ENVOI_MAIL(…) From AWRKMEL Sending mail from code in Sage X3: Send vs meladx Sage X3 has two native ways for sending mails. The first way is  meladx  executable file, that you can find in  runtime\bin  directory. The seconde one is Send instruction, that was used to send mail through an application of the client station (for more information on “Send GSERMES”  go here ). The Meladx executable Meladx send messages through SMTP/POP3 protocols by means of the mail  ...
Leer más

How to Install and Manage Sage X3 Add-Ins in Microsoft Office

When you enable an add-in, it adds custom commands and new features to Microsoft Office programs that help increase your productivity. In this blog post, we’ll review how to install the Sage X3 Add-In for MS Excel and what to do if your Sage X3 Add-In is missing. Fuente original: https://www.netatwork.com/how-to-install-and-manage-sage-x3-add-ins-in-ms-office/ How to Install the Sage X3 Add-In in Microsoft Excel Go to Administration > Utilities > Installation > Install addins for Office V11 Image:   V12 Image:   It should begin downloading the exe, open the exe Next > Install   Open Excel > File > Options   Select Add–Ins > Manage: COM Add-ins > Go   Check the “Excel AddIn for Sage” > Ok   You are now ready to export Excel-based reports/grids from Sage X3. How to troubleshoot and fix a missing Sage X3 add-in in Microsoft Excel Open the Microsoft Office product where the  Sage X3  add-in is missing. Go to Options: Se...
Leer más