gabi123 wrote: ↑03 Feb 2024, 14:32
a fost pe FB zilele trecute postata o procedura, imi pare rau dar nu mai stiu autorul
PARAMETERS _PARSEMN
** de folosit ptr curatarea XMLurilor ---------------------------------------------------------------------------**
LOCAL X
*=LEN(_PARSEMN)
_PARSEMN = STRTRAN(_PARSEMN,"&","&")
_PARSEMN = STRTRAN(_PARSEMN,">",">")
_PARSEMN = STRTRAN(_PARSEMN,"<","<")
_PARSEMN = STRTRAN(_PARSEMN,"|","")
_PARSEMN = STRTRAN(_PARSEMN,'"',""")
_PARSEMN = STRTRAN(_PARSEMN,"'",""")
_PARSEMN = STRTRAN(_PARSEMN,"´","'")
_PARSEMN = STRTRAN(_PARSEMN,"/","")
_PARSEMN = STRTRAN(_PARSEMN,"<-","")
_PARSEMN = STRTRAN(_PARSEMN,"->","")
_PARSEMN = STRTRAN(_PARSEMN,"<?","")
_PARSEMN = STRTRAN(_PARSEMN,"?>","")
_PARSEMN = STRTRAN(_PARSEMN,"=","")
_PARSEMN = STRTRAN(_PARSEMN,"Á","A")
_PARSEMN = STRTRAN(_PARSEMN,"É","E")
_PARSEMN = STRTRAN(_PARSEMN,"Í","I")
_PARSEMN = STRTRAN(_PARSEMN,"Ó","O")
_PARSEMN = STRTRAN(_PARSEMN,"Ú","U")
_PARSEMN = STRTRAN(_PARSEMN,"á","a")
_PARSEMN = STRTRAN(_PARSEMN,"é","e")
_PARSEMN = STRTRAN(_PARSEMN,"í","i")
_PARSEMN = STRTRAN(_PARSEMN,"ó","o")
_PARSEMN = STRTRAN(_PARSEMN,"ú","u")
_PARSEMN = STRTRAN(_PARSEMN,"?","")
_PARSEMN = STRTRAN(_PARSEMN,"°","")
_PARSEMN = STRTRAN(_PARSEMN,"?","")
_PARSEMN = STRTRAN(_PARSEMN,"!","")
_PARSEMN = STRTRAN(_PARSEMN,"?","")
_PARSEMN = STRTRAN(_PARSEMN,"'","")
_PARSEMN = STRTRAN(_PARSEMN,"^","")
_PARSEMN = STRTRAN(_PARSEMN,"`","")
_PARSEMN = STRTRAN(_PARSEMN,"~","")
_PARSEMN = STRTRAN(_PARSEMN,"¬","")
_PARSEMN = STRTRAN(_PARSEMN,":","")
_PARSEMN = STRTRAN(_PARSEMN,"%","")
_PARSEMN = STRTRAN(_PARSEMN,"#","")
*!* // para html
*!* //_PARSEMN = STRTRAN(_PARSEMN,"?","ñ")
*!* //_PARSEMN = STRTRAN(_PARSEMN,"?","Ñ")
_PARSEMN = STRTRAN(_PARSEMN,"?","¿")
_PARSEMN = STRTRAN(_PARSEMN,"?","¡")
_PARSEMN = STRTRAN(_PARSEMN,"á","á")
_PARSEMN = STRTRAN(_PARSEMN,"é","é")
_PARSEMN = STRTRAN(_PARSEMN,"í","í")
_PARSEMN = STRTRAN(_PARSEMN,"ó","ó")
_PARSEMN = STRTRAN(_PARSEMN,"ú","ú")
_PARSEMN = STRTRAN(_PARSEMN,"Á","Á")
_PARSEMN = STRTRAN(_PARSEMN,"É","É")
_PARSEMN = STRTRAN(_PARSEMN,"Í","Í")
_PARSEMN = STRTRAN(_PARSEMN,"Ó","Ó")
_PARSEMN = STRTRAN(_PARSEMN,"Ú","Ú")
_PARSEMN = STRTRAN(_PARSEMN,"ü","ü")
_PARSEMN = STRTRAN(_PARSEMN,"Ü","Ü")
_PARSEMN = STRTRAN(_PARSEMN,"–","")
_PARSEMN = STRTRAN(_PARSEMN,"*","")
*Carácter Entidad HTML Carácter Entidad HTML
*á á Á Á
*é é É É
*í í Í Í
*ó ó Ó Ó
*ú ú Ú Ú
*ü ü Ü Ü
*? ñ ? Ñ
*? ¡ ? ¿
RETURN _PARSEMN