Попытка ускорить работу функции за счет замены обычной конкатенации н…

…а textmerge
s-s-a · Jan 19, 2019 · a5cd65f · a5cd65f · s-s-a · Jan 19, 2019
1 parent 00ebf1c
commit a5cd65f
Showing 1 changed file with 8 additions and 8 deletions.
diff --git a/rtf_report/w_report.PRG b/rtf_report/w_report.PRG
@@ -2304,14 +2304,14 @@ FUNCTION ENCODE_SYMBOLS	&&
 LPARAMETERS rus_text
 LOCAL i,kus_text,out_hex
 	out_hex=''
-	FOR i=1 TO LEN(m.rus_text)
+Set Textmerge On
-		kus_text=SUBSTR(m.rus_text, m.i, 1)
+Set Textmerge To Memvar out_hex Additive Noshow
-		IF ASC(m.kus_text)<127
+For I=1 To Len(m.rus_text)
-			out_hex=m.out_hex+m.kus_text
+  kus_text=Substr(m.rus_text, m.I, 1)
-		ELSE
+    \<<Iif(ASC(m.kus_text)<127, m.kus_text, LOWER("\'"+RIGHT(TRANSFORM(ASC(m.kus_text),'@0'),2)))>>
-			out_hex=m.out_hex+ LOWER("\'"+RIGHT(TRANSFORM(ASC(m.kus_text),'@0'),2))
+Next
-		ENDIF
+Set Textmerge Off
-	ENDFOR
+Set Textmerge To
 RETURN m.out_hex
 *############################################################################################
 *############################################################################################