https://kb.sagedev.it/index.php?action=history&feed=atom&title=Funzione_replace 2026-06-10T11:36:15Z Revision history for this page on the wiki MediaWiki 1.35.1 https://kb.sagedev.it/index.php?title=Funzione_replace&diff=424&oldid=prev 2021-06-24T08:12:51Z

<p>Created page with &quot;&lt;pre&gt;# #File YSAGEDEV # ############################################################################# # Author: SageDev.it # sostituisce tutte le occorrenze di OLD con NEW #...&quot;</p> <p><b>New page</b></p><div>&lt;pre&gt;#<br /> #File YSAGEDEV<br /> #<br /> <br /> #############################################################################<br /> # Author: SageDev.it<br /> # sostituisce tutte le occorrenze di OLD con NEW<br /> # STR è un clob<br /> #############################################################################<br /> Funprog REPLACE(STR, OLD, NEW)<br /> Value Clbfile STR()<br /> Value Char OLD()<br /> Value Char NEW()<br /> Local Integer LENOLD<br /> Local Integer LENNEW<br /> <br /> #lunghezza della stringa da sostituire<br /> LENOLD= len(OLD)<br /> #lunghezza della stringa che sostituirà la OLD<br /> LENNEW= len(NEW)<br /> <br /> If LENOLD&lt;=0 or LENOLD&gt;len(STR)<br /> #la stringa da sostituire è vuota o è più lunga della stringa iniziale, quindi non sostituisco niente<br /> End STR<br /> Endif<br /> <br /> Local Integer INDEX<br /> Local Integer INDEXSTART<br /> <br /> #cerco la stringa da sostituire<br /> INDEX=instr(1,STR,OLD)<br /> <br /> While INDEX&gt;0<br /> #INDEX&gt;0 significa che è stata trovata una corrispondenza di OLD<br /> #sostituisco l'occorrenza di OLD con la stringa NEW<br /> STR =left$(STR, INDEX-1) + NEW + right$(STR, INDEX+LENOLD)<br /> <br /> #calcolo l'indice a cui finisce la stringa NEW inserita<br /> INDEXSTART=INDEX+LENNEW<br /> <br /> #cerco la stringa da sostituire a partire dalla fine dell'ultima corrispondenza trovata<br /> INDEX=instr(INDEXSTART,STR,OLD)<br /> Wend<br /> End STR<br /> #############################################################################<br /> <br /> #############################################################################<br /> # Author: SageDev.it<br /> # Wrapper di REPLACE(STR, OLD, NEW)<br /> # sostituisce tutte le occorrenze di OLD con NEW<br /> # il parametro STR è un CHAR(), non un clob<br /> #############################################################################<br /> Funprog REPLACESTR(STR, OLD, NEW)<br /> Value Char STR()<br /> Value Char OLD()<br /> Value Char NEW()<br /> <br /> Local Char RET(250)<br /> Local Clbfile STRCLB(1)<br /> STRCLB = STR<br /> RET = func YSAGEDEV.REPLACE(STRCLB, OLD, NEW)<br /> End RET<br /> #############################################################################<br /> &lt;/pre&gt;</div>

94.102.143.228