replace [lista simboli]?

[ukero]

Ciao, ragazzi sono ritornato a windows.

ps: linux fa molto schifo.

Passiamo al problema , mi servirebbe una lista di carratteri speciale per inserire dentro al database con campo (memo) però io questa lista non la conosco, quindi sè qualcuno ha la lista completa tramite una funzione che richiama la replace , proteste postarla?.

grazie.
ciao a tutti.

[Roby_72]

Eccone alcuni:

 '	**************************************
*
'	SUB ROUTINE CONVERSIONE DA HTML A TESTO
 '	**************************************
*

	Sub ConvertToPlainText(frase)
		frase = Replace(frase, "&lt;", "<")
		frase = Replace(frase, "&gt;", ">")
		frase = Replace(frase, "&", "&")
		frase = Replace(frase, """, chr(34))
		frase = Replace(frase, "€", chr(128))
		frase = Replace(frase, "‚", chr(130))
		frase = Replace(frase, "ƒ", chr(131))
		frase = Replace(frase, "„", chr(132))
		frase = Replace(frase, "…", chr(133))
		frase = Replace(frase, "†", chr(134))
		frase = Replace(frase, "‡", chr(135))
		frase = Replace(frase, "ˆ", chr(136))
		frase = Replace(frase, "‰", chr(137))
		frase = Replace(frase, "Š", chr(138))
		frase = Replace(frase, "‹", chr(139))
		frase = Replace(frase, "Œ", chr(140))
		frase = Replace(frase, "Ž", chr(142))
		frase = Replace(frase, "‘", chr(145))
		frase = Replace(frase, "’", chr(146))
		frase = Replace(frase, "“", chr(147))
		frase = Replace(frase, "”", chr(148))
		frase = Replace(frase, "•", chr(149))
		frase = Replace(frase, "–", chr(150))
		frase = Replace(frase, "—", chr(151))
		frase = Replace(frase, "˜", chr(152))
		frase = Replace(frase, "™", chr(153))
		frase = Replace(frase, "š", chr(154))
		frase = Replace(frase, "›", chr(155))
		frase = Replace(frase, "œ", chr(156))
		frase = Replace(frase, "ž", chr(158))
		frase = Replace(frase, "Ÿ", chr(159))

		For intCnt = 160 to 255
			frase = Replace(frase, "&#" & intCnt & ";", chr(intCnt))		
		Next
	End Sub

Roby

[ukero]

Grazie, roby_72 . un'altra cosa dove posso mettere questa sub?

ecco dove la devo inserire:

body = Request.Form("body")

[ukero]

Originariamente inviato da Roby_72

Help, roby_72, dove la devo inserire?

[Roby_72]

Dipende da cosa devi fare e a che ti serve.

Roby

[ukero]

Originariamente inviato da Roby_72
Dipende da cosa devi fare e a che ti serve.

Roby

Cosi va bene?

Dim title
Dim heading
Dim body
Dim foto

Title = ConvertToPlainText(Request.Form("Title"))
Body = ConvertToPlainText(Request.Form("Body"))
foto = Request.Form("foto")
Heading = ConvertToPlainText(Request.Form("heading"))

SQL = "INSERT INTO news (title, body, foto, heading)"
SQL = SQL & " VALUES('"&title&"','"&body&"','"&foto&"','" & heading & "')"

Conn.Execute(SQL)
Response.Redirect("admin_news.asp")

Un'altra cosa per l'edit è la stessa cosa?

[ukero]

Originariamente inviato da Roby_72
Dipende da cosa devi fare e a che ti serve.

Roby

ci sei ?

[Roby_72]

Il cambiamento dei caratteri non devi metterlo nel db ma effettuarlo in fase di visualizzazione.

Roby

[ukero]

Originariamente inviato da Roby_72
Il cambiamento dei caratteri non devi metterlo nel db ma effettuarlo in fase di visualizzazione.

Roby

scusa, mi protesti fare un esempio?
ho fatto tutto " aggiungi , edita, cancella "
ma manca la replace.
Mi protesti aiutare per i carrateri.

[Roby_72]

Un esempio di cosa?
Dov'è che stampi il contenuto della tabella?

Roby