ciao a tutti,
devo acquisire un testo da form, scriverlo a database, ma anche dare la possibilità dimodificarlo.
Per l'INSERT, preventivamente coveto il testo acquisito dalla text area con la funzione:
Codice PHP:
Function SostCarSpecialiTextAreaEdit(ByVal testo)
        If 
testo <> "" Then
        testo 
replace(testo"'""''")
        
testo replace(testo"‘","&lsquo;")
        
testo replace(testo"’","&rsquo;")
        
testo replace(testo"""","&quot;"
        
testo replace(testo".",".")
        
testo replace(testo"#","&amp;")
        
testo replace(testo"<","&lt;")
        
testo replace(testo">","&gt;")
        
testo replace(testo"¡","&iexcl;")
        
testo replace(testo"¢","&cent;")
        
testo replace(testo"£","&pound")
        
testo replace(testo"¤","&curren;")
        
testo replace(testo"¥","&yen;")
        
testo replace(testo"¦","&brvbar;")
        
testo replace(testo"§","&sect;")
        
testo replace(testo"¨","&uml;")
        
testo replace(testo"©","<sup>&copy;</sup>")
        
testo replace(testo"ª","&ordf;")
        
testo replace(testo"«","&laquo;")
        
testo replace(testo"¬","&not;")
        
testo replace(testo"_","&shy;")
        
testo replace(testo"–","&ndash;")
        
testo replace(testo"—","&mdash;")
        
testo replace(testo"®","<sup>&reg;</sup>")
        
testo replace(testo"¯","&macr;")
        
testo replace(testo"°","&deg;")
        
testo replace(testo"±","&plusmn;")
        
testo replace(testo"²","&sup2;")
        
testo replace(testo"³","&sup3;")
        
testo replace(testo"´","&acute;")
        
testo replace(testo"µ","&micro;")
        
testo replace(testo"¶","&para;")
        
testo replace(testo"·","&middot;")
        
testo replace(testo"¸","&cedil;")
        
testo replace(testo"¹","&sup1;")
        
testo replace(testo"º","&ordm;")
        
testo replace(testo"»","&raquo;")
        
testo replace(testo"¼","&frac14;")
        
testo replace(testo"½","&frac12;")
        
testo replace(testo"¾","&frac34;")
        
testo replace(testo"¿","&iquest;")
        
testo replace(testo"À","&Agrave;")
        
testo replace(testo"Á","&Aacute;")
        
testo replace(testo"Â","&Acirc;")
        
testo replace(testo"Ã","&Atilde;")
        
testo replace(testo"Ä","&Auml;")
        
testo replace(testo"Å","&Aring;")
        
testo replace(testo"Æ","&AElig;")
        
testo replace(testo"Ç","&Ccedil;")
        
testo replace(testo"È","&Egrave;")
        
testo replace(testo"É","&Eacute;")
        
testo replace(testo"Ê","&Ecirc;")
        
testo replace(testo"Ë","&Euml;")
        
testo replace(testo"Ì","&Igrave;")
        
testo replace(testo"Í","&Iacute;")
        
testo replace(testo"Î","&Icirc;")
        
testo replace(testo"Ï","&Iuml;")
        
testo replace(testo"Ð","&ETH;")
        
testo replace(testo"Ñ","&Ntilde;")
        
testo replace(testo"Ò","&Ograve;")
        
testo replace(testo"Ó","&Oacute;")
        
testo replace(testo"Ô","&Ocirc;")
        
testo replace(testo"Õ","&Otilde;")
        
testo replace(testo"Ö","&Ouml;")
        
testo replace(testo"×","&times;")
        
testo replace(testo"Ø","&Oslash;")
        
testo replace(testo"Ù","&Ugrave;")
        
testo replace(testo"Ú","&Uacute;")
        
testo replace(testo"Û","&Ucirc;")
        
testo replace(testo"Ü","&Uuml;")
        
testo replace(testo"Ý","&Yacute;")
        
testo replace(testo"Þ","&THORN;")
        
testo replace(testo"ß","&szlig;")
        
testo replace(testo"à","&agrave;")
        
testo replace(testo"á","&aacute;")
        
testo replace(testo"â","&acirc;")
        
testo replace(testo"ã","&atilde;")
        
testo replace(testo"ä","&auml;")
        
testo replace(testo"å","&aring;")
        
testo replace(testo"æ","&aelig;")
        
testo replace(testo"ç","&ccedil;")
        
testo replace(testo"è","&egrave;")
        
testo replace(testo"é","&eacute;")
        
testo replace(testo"ê","&ecirc;")
        
testo replace(testo"ë","&euml;")
        
testo replace(testo"ì","&igrave;")
        
testo replace(testo"í","&iacute;")
        
testo replace(testo"î","&icirc;")
        
testo replace(testo"ï","&iuml;")
        
testo replace(testo"ð","&eth;")
        
testo replace(testo"ñ","&ntilde;")
        
testo replace(testo"ò","&ograve;")
        
testo replace(testo"ó","&oacute;")
        
testo replace(testo"ô","&ocirc;")
        
testo replace(testo"õ","&otilde;")
        
testo replace(testo"ö","&ouml;")
        
testo replace(testo"÷","&divide;")
        
testo replace(testo"ø","&oslash;")
        
testo replace(testo"ù","&ugrave;")
        
testo replace(testo"ú","&uacute;")
        
testo replace(testo"û","&ucirc;")
        
testo replace(testo"ü","&uuml;")
        
testo replace(testo"ý","&yacute;")
        
testo replace(testo"þ","&thorn;")
        
testo replace(testo"ÿ","&yuml;")
        
testo replace(testo" ","")
        
testo replace(testo"€","&euro;")
        
testo replace(testo,"¢","&cent;")
        
testo replace(testo,"£","&pound;")
        
testo replace(testo,"¤","&curren;")
        
testo replace(testo,"¥","&yen;")
        
testo replace(testo,"¦","&brvbar;")
        
testo replace(testoChr(13) & Chr(10), "
"
)
        
testo replace(testovbCrlf"
"
)
        
End If
        
SostCarSpecialiTextAreaEdit testo
End 
Function 
mentre per l'editing, nella rappresentazione del testo prelevato da database access 2000, lo inserisco in una textarea modificandolo con la funzione:
Codice PHP:
Function ReverseSostCarSpecialiTextAreaEdit(ByVal testo)
        If 
testo <> "" Then
        testo 
replace(testo,"
"
vbCrlf)
        
testo replace(testo,""" ")
        
testo replace(testo,"&pound;","£")
        
testo replace(testo,"&curren;","¤")
        
testo replace(testo,"&yen;","¥")
        
testo replace(testo,"&brvbar;","¦")
        
testo replace(testo,"&yuml;""ÿ")
        
testo replace(testo,"&thorn;""þ")
        
testo replace(testo,"&yacute;""ý")
        
testo replace(testo,"&uuml;""ü")
        
testo replace(testo,"&ucirc;""û")
        
testo replace(testo,"&uacute;""ú")
        
testo replace(testo,"&ugrave;""ù")
        
testo replace(testo,"&oslash;""ø")
        
testo replace(testo,"&divide;""÷")
        
testo replace(testo,"&ouml;""ö")
        
testo replace(testo,"&otilde;""õ")
        
testo replace(testo,"&ocirc;""ô")
        
testo replace(testo,"&oacute;""ó")
        
testo replace(testo,"&ograve;""ò")
        
testo replace(testo,"&ntilde;""ñ")
        
testo replace(testo,"&eth;""ð")
        
testo replace(testo,"&iuml;""ï")
        
testo replace(testo,"&icirc;""î")
        
testo replace(testo,"&iacute;""í")
        
testo replace(testo,"&igrave;""ì")
        
testo replace(testo,"&euml;""ë")
        
testo replace(testo,"&ecirc;""ê")
        
testo replace(testo,"&eacute;""é")
        
testo replace(testo,"&egrave;""è")
        
testo replace(testo,"&ccedil;""ç")
        
testo replace(testo,"&aelig;""æ")
        
testo replace(testo,"&aring;""å")
        
testo replace(testo,"&auml;""ä")
        
testo replace(testo,"&atilde;""ã")
        
testo replace(testo,"&acirc;""â")
        
testo replace(testo,"&aacute;""á")
        
testo replace(testo,"&agrave;""à")
        
testo replace(testo,"&szlig;""ß")
        
testo replace(testo,"&THORN;""Þ")
        
testo replace(testo,"&Yacute;""Ý")
        
testo replace(testo,"&Uuml;""Ü")
        
testo replace(testo,"&Ucirc;""Û")
        
testo replace(testo,"&Uacute;""Ú")
        
testo replace(testo,"&Ugrave;""Ù")
        
testo replace(testo,"&Oslash;""Ø")
        
testo replace(testo,"&times;""×")
        
testo replace(testo,"&Ouml;""Ö")
        
testo replace(testo,"&Otilde;""Õ")
        
testo replace(testo,"&Ocirc;""Ô")
        
testo replace(testo,"&Oacute;""Ó")
        
testo replace(testo,"&Ograve;""Ò")
        
testo replace(testo,"&Ntilde;""Ñ")
        
testo replace(testo,"&ETH;""Ð")
        
testo replace(testo,"&Iuml;""Ï")
        
testo replace(testo,"&Icirc;""Î")
        
testo replace(testo,"&Iacute;""Í")
        
testo replace(testo,"&Igrave;""Ì")
        
testo replace(testo,"&Euml;""Ë")
        
testo replace(testo,"&Ecirc;""Ê")
        
testo replace(testo,"&Eacute;""É")
        
testo replace(testo,"&Egrave;""È")
        
testo replace(testo,"&Ccedil;""Ç")
        
testo replace(testo,"&AElig;""Æ")
        
testo replace(testo,"&Aring;""Å")
        
testo replace(testo,"&Auml;""Ä")
        
testo replace(testo,"&Atilde;""Ã")
        
testo replace(testo,"&Acirc;""Â")
        
testo replace(testo,"&Aacute;""Á")
        
testo replace(testo,"&agrave;""À")
        
testo replace(testo,"&iquest;""¿")
        
testo replace(testo,"&frac34;""¾")
        
testo replace(testo,"&frac12;""½")
        
testo replace(testo,"&frac14;""¼")
        
testo replace(testo,"&raquo""»")
        
testo replace(testo,"&ordm;""º")
        
testo replace(testo,"&sup1;""¹")
        
testo replace(testo,"&cedil;""¸")
        
testo replace(testo,"&middot;""·")
        
testo replace(testo,"&para;""¶")
        
testo replace(testo,"&micro;""µ")
        
testo replace(testo,"&acute;""´")
        
testo replace(testo,"&sup3;""³")
        
testo replace(testo,"&sup2;""²")
        
testo replace(testo,"&plusmn;""±")
        
testo replace(testo,"&deg;""°")
        
testo replace(testo,"&macr;""¯")
        
testo replace(testo,"<sup>&reg;</sup>","®")
        
testo replace(testo,"&ndash;","–")
        
testo replace(testo,"&mdash;","—")
        
testo replace(testo,"_","&shy;")
        
testo replace(testo,"¬","&not;")
        
testo replace(testo,"«","&laquo;")
        
testo replace(testo,"ª","&ordf;")
        
testo replace(testo,"<sup>&copy;</sup>""©")
        
testo replace(testo,"&uml;""¨")
        
testo replace(testo,"&sect;""§")
        
testo replace(testo,"&brvbar;""¦")
        
testo replace(testo,"&yen;","¥")
        
testo replace(testo,"&curren;""¤")
        
testo replace(testo,"&pound""£")
        
testo replace(testo,"&cent;""¢")
        
testo replace(testo,"&iexcl;""¡")
        
testo replace(testo,"&gt;"">")
        
testo replace(testo,"&lt;""<")
        
testo replace(testo,"&amp;",  "#")
        
testo replace(testo,"."".")
        
testo replace(testo,"&quot;""""")
        
testo replace(testo,"&lsquo;","‘")
        
testo replace(testo,"&rsquo;","’")
        
testo replace(testo,"&euro;""€")
        
testo replace(testo,"''""'")
        
End If
        
ReverseSostCarSpecialiTextAreaEdit testo
End 
Function 
Bene:
se per esempio il testo inserito nel form è un semplice:
1
2
3
4

convertito dalla prima funzione in :
1
2
3
4

nella textarea non compare nulla.

Non capisco come faccia la seconda funzione a cancellare tutto quando la stringa (ho verificato) essere proprio 1
2
3
4
e non nulla.