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