Detagger [PILLOLA]

**pieroseko** · 03-02-2006, 12:15

non so se è stato trattato l'argomento

cmq vi posto il mio detagger e spero che insieme a voi si possa migliorare

codice:

<%
function detagger(s_testo)


If s_testo = "" Then 

else

	ScriptAperto = False
	BodyTrovato = True
	If InStr(LCase(s_testo), "<body") <> 0 Then BodyTrovato = False
	
	lung = Len(s_testo)
	StoNelControllo = 0
		
		For i = 1 To lung
			If StoNelControllo = 1 Then
					If Right(Left(s_testo, i), 1) = "<" Then
						StoNelControllo = 0
						TagElaborato = ""
						TagElaborato = StringTemporanea
						StringTemporanea = ""
						Trovato = False
						s_Tipo = ""
						parametri = ""
						StringaCodificata = StringaCodificata & TagElaborato
						i = i - 1
					Else
					
						StringTemporanea = StringTemporanea & Right(Left(s_testo, i), 1)
						If Trovato <> True Then
							s_Tipo = s_Tipo & Right(Left(s_testo, i), 1)
						Else
							parametri = parametri & Right(Left(s_testo, i), 1)
						End If
						If Right(StringTemporanea, 1) = """" Then Trovato = True
						
						If Right(StringTemporanea, 1) = ">" Then
								'TagElaborato = CheckType(parametri, s_Tipo)
								If ScriptAperto = True Then
									If LCase(StringTemporanea) = "</script>" Then ScriptAperto = False
										StringTemporanea = ""
										StoNelControllo = 0
								Else
									StoNelControllo = 0
									TagElaborato = ""
									'If LCase(StringTemporanea) = "
" Then TagElaborato = "
" & Chr(13) & Chr(10)
									'If LCase(StringTemporanea) = "</p>" Then TagElaborato = "
" & Chr(13) & Chr(10)

									If LCase(StringTemporanea) = "
" 	Then TagElaborato = "" & Chr(13) & Chr(10)
									If LCase(StringTemporanea) = "</p>" 	Then TagElaborato = "" & Chr(13) & Chr(10)
									If LCase(StringTemporanea) = "
" 	Then TagElaborato = "" & Chr(13) & Chr(10)
									If LCase(StringTemporanea) = "" 	Then TagElaborato = " " & Chr(13) & Chr(10)


									StringTemporanea = ""
									Trovato = False
									s_Tipo = ""
									parametri = ""
									StringaCodificata = StringaCodificata & TagElaborato
								End If
						End If
				   End If
			Else
				If BodyTrovato = True Then
					If Right(Left(s_testo, i), 1) = "<" Then
						StringTemporaneaSCRIPT = StringTemporaneaSCRIPT & Right(Left(s_testo, i), 1)
						StringTemporaneaSCRIPT = StringTemporaneaSCRIPT & Right(Left(s_testo, i + 1), 1)
						StringTemporaneaSCRIPT = StringTemporaneaSCRIPT & Right(Left(s_testo, i + 2), 1)
						StringTemporaneaSCRIPT = StringTemporaneaSCRIPT & Right(Left(s_testo, i + 3), 1)
						StringTemporaneaSCRIPT = StringTemporaneaSCRIPT & Right(Left(s_testo, i + 4), 1)
						StringTemporaneaSCRIPT = StringTemporaneaSCRIPT & Right(Left(s_testo, i + 5), 1)
						StringTemporaneaSCRIPT = StringTemporaneaSCRIPT & Right(Left(s_testo, i + 6), 1)
						
						
						
						If LCase(StringTemporaneaSCRIPT) = "<script" Then
							StringTemporanea = StringTemporanea & StringTemporaneaSCRIPT
							StoNelControllo = 1
							i = i + 6
							ScriptAperto = True
						Else
							StringTemporanea = StringTemporanea & Right(Left(s_testo, i), 1)
							StoNelControllo = 1
							StringTemporaneaSCRIPT = ""
						End If
					Else
						NONScrivere = 0
						If Right(Left(s_testo, i), 1) = Chr(10) Then NONScrivere = 1
						If Right(Left(s_testo, i), 1) = Chr(13) Then NONScrivere = 1
						If NONScrivere = 0 Then
							If ScriptAperto = False Then
								StringaCodificata = StringaCodificata & Right(Left(s_testo, i), 1)
							End If
						End If
					End If
				Else
					If Right(Left(s_testo, i), 1) = "<" Then
						StringTemporanea = StringTemporanea & Right(Left(s_testo, i), 1)
						StringTemporanea = StringTemporanea & Right(Left(s_testo, i + 1), 1)
						StringTemporanea = StringTemporanea & Right(Left(s_testo, i + 2), 1)
						StringTemporanea = StringTemporanea & Right(Left(s_testo, i + 3), 1)
						StringTemporanea = StringTemporanea & Right(Left(s_testo, i + 4), 1)
						If LCase(StringTemporanea) = "<body" Then
							StoNelControllo = 1
							i = i + 4
							BodyTrovato = True
						Else
							StringTemporanea = ""
						End If
					End If
				End If
			End If
		Next
'	StringaCodificata = Replace(StringaCodificata, "&amp;", "&")
'	StringaCodificata = Replace(StringaCodificata, "&lt;", "<")
'	StringaCodificata = Replace(StringaCodificata, "&gt;", ">")
'	StringaCodificata = Replace(StringaCodificata, "&iexcl;", "¡")
'	StringaCodificata = Replace(StringaCodificata, "&cent;", "¢")
'	StringaCodificata = Replace(StringaCodificata, "&pound;", "£")
'	StringaCodificata = Replace(StringaCodificata, "&quot;", """")
'	StringaCodificata = Replace(StringaCodificata, "&curren;", "¤")
'	StringaCodificata = Replace(StringaCodificata, "&yen;", "¥")
'	StringaCodificata = Replace(StringaCodificata, "&brvbar;", "¦")
'	StringaCodificata = Replace(StringaCodificata, "&sect;", "§")
'	StringaCodificata = Replace(StringaCodificata, "&uml;", "¨")
'	StringaCodificata = Replace(StringaCodificata, "&copy;", "©")
'	StringaCodificata = Replace(StringaCodificata, "&#171;", "ª")
'	StringaCodificata = Replace(StringaCodificata, "&not;", "«")
'	StringaCodificata = Replace(StringaCodificata, "", "¬")
'	StringaCodificata = Replace(StringaCodificata, "&reg;", "®")
'	StringaCodificata = Replace(StringaCodificata, "&macr;", "¯")
'	StringaCodificata = Replace(StringaCodificata, "&deg;", "°")
'	StringaCodificata = Replace(StringaCodificata, "&plusmn;", "±")
'	StringaCodificata = Replace(StringaCodificata, "&sup2;", "²")
'	StringaCodificata = Replace(StringaCodificata, "&sup3;", "³")
'	StringaCodificata = Replace(StringaCodificata, "&acute;", "´")
'	StringaCodificata = Replace(StringaCodificata, "&micro;", "µ")
'	StringaCodificata = Replace(StringaCodificata, "&para;", "¶")
'	StringaCodificata = Replace(StringaCodificata, "&middot;", "·")
'	StringaCodificata = Replace(StringaCodificata, "&cedil;", "¸")
'	StringaCodificata = Replace(StringaCodificata, "&sup1;", "¹")
'	StringaCodificata = Replace(StringaCodificata, "&ordm;", "º")
'	StringaCodificata = Replace(StringaCodificata, "&raquo;", "»")
'	StringaCodificata = Replace(StringaCodificata, "&#189;", "½")
'	StringaCodificata = Replace(StringaCodificata, "&#188;", "¼")
'	StringaCodificata = Replace(StringaCodificata, "&#190;", "¾")
'	StringaCodificata = Replace(StringaCodificata, "&iquest;", "¿")
'	StringaCodificata = Replace(StringaCodificata, "&Agrave;", "À")
'	StringaCodificata = Replace(StringaCodificata, "&Aacute;", "Á")
'	StringaCodificata = Replace(StringaCodificata, "&Acirc;", "Â")
'	StringaCodificata = Replace(StringaCodificata, "&Atilde;", "Ã")
'	StringaCodificata = Replace(StringaCodificata, "&Aring;", "Å")
'	StringaCodificata = Replace(StringaCodificata, "&AElig;", "Æ")
'	StringaCodificata = Replace(StringaCodificata, "&Ccedil;", "Ç")
'	StringaCodificata = Replace(StringaCodificata, "&Egrave;", "È")
'	StringaCodificata = Replace(StringaCodificata, "&Eacute;", "É")
'	StringaCodificata = Replace(StringaCodificata, "&Ecirc;", "Ê")
'	StringaCodificata = Replace(StringaCodificata, "&Euml;", "Ë")
'	StringaCodificata = Replace(StringaCodificata, "&Igrave;", "Ì")
'	StringaCodificata = Replace(StringaCodificata, "&Iacute;", "Í")
'	StringaCodificata = Replace(StringaCodificata, "&Icirc;", "Î")
'	StringaCodificata = Replace(StringaCodificata, "&Iuml;", "Ï")
'	StringaCodificata = Replace(StringaCodificata, "&ETH;", "Ð")
'	StringaCodificata = Replace(StringaCodificata, "&Ntilde;", "Ñ")
'	StringaCodificata = Replace(StringaCodificata, "&Ograve;", "Ò")
'	StringaCodificata = Replace(StringaCodificata, "&Oacute;", "Ó")
'	StringaCodificata = Replace(StringaCodificata, "&Ocirc;", "Ô")
'	StringaCodificata = Replace(StringaCodificata, "&Otilde;", "Õ")
'	StringaCodificata = Replace(StringaCodificata, "&Ouml;", "Ö")
'	StringaCodificata = Replace(StringaCodificata, "&times;", "×")
'	StringaCodificata = Replace(StringaCodificata, "&Oslash;", "Ø")
'	StringaCodificata = Replace(StringaCodificata, "&Ugrave;", "Ù")
'	StringaCodificata = Replace(StringaCodificata, "&Uacute;", "Ú")
'	StringaCodificata = Replace(StringaCodificata, "&Uuml;", "Ü")
'	StringaCodificata = Replace(StringaCodificata, "&Yacute;", "Ý")
'	StringaCodificata = Replace(StringaCodificata, "&THORN;", "Þ")
'	StringaCodificata = Replace(StringaCodificata, "&szlig;", "ß")
'	StringaCodificata = Replace(StringaCodificata, "&agrave;", "à")
'	StringaCodificata = Replace(StringaCodificata, "&aacute;", "á")
'	StringaCodificata = Replace(StringaCodificata, "&acirc;", "â")
'	StringaCodificata = Replace(StringaCodificata, "&atilde;", "ã")
'	StringaCodificata = Replace(StringaCodificata, "&auml;", "ä")
'	StringaCodificata = Replace(StringaCodificata, "&aring;", "å")
'	StringaCodificata = Replace(StringaCodificata, "&aelig;", "æ")
'	StringaCodificata = Replace(StringaCodificata, "&ccedil;", "ç")
'	StringaCodificata = Replace(StringaCodificata, "&egrave;", "è")
'	StringaCodificata = Replace(StringaCodificata, "&eacute;", "é")
'	StringaCodificata = Replace(StringaCodificata, "&ecirc;", "ê")
'	StringaCodificata = Replace(StringaCodificata, "&euml;", "ë")
'	StringaCodificata = Replace(StringaCodificata, "&igrave;", "ì")
'	StringaCodificata = Replace(StringaCodificata, "&iacute;", "í")
'	StringaCodificata = Replace(StringaCodificata, "&icirc;", "î")
'	StringaCodificata = Replace(StringaCodificata, "&iuml;", "ï")
'	StringaCodificata = Replace(StringaCodificata, "&eth;", "ð")
'	StringaCodificata = Replace(StringaCodificata, "&ntilde;", "ñ")
'	StringaCodificata = Replace(StringaCodificata, "&ograve;", "ò")
'	StringaCodificata = Replace(StringaCodificata, "&oacute;", "ó")
'	StringaCodificata = Replace(StringaCodificata, "&ocirc;", "ô")
'	StringaCodificata = Replace(StringaCodificata, "&otilde;", "õ")
'	StringaCodificata = Replace(StringaCodificata, "&ouml;", "ö")
'	StringaCodificata = Replace(StringaCodificata, "&divide;", "÷")
'	StringaCodificata = Replace(StringaCodificata, "&oslash;", "ø")
'	StringaCodificata = Replace(StringaCodificata, "&ugrave;", "ù")
'	StringaCodificata = Replace(StringaCodificata, "&uacute;", "ú")
'	StringaCodificata = Replace(StringaCodificata, "&ucirc;", "û")
'	StringaCodificata = Replace(StringaCodificata, "&uuml;", "ü")
'	StringaCodificata = Replace(StringaCodificata, "&yacute;", "ý")
'	StringaCodificata = Replace(StringaCodificata, "&thorn;", "þ")
'	StringaCodificata = Replace(StringaCodificata, "&yuml;", "ÿ")
'	StringaCodificata = Replace(StringaCodificata, "", " ")
'	StringaCodificata = Replace(StringaCodificata, "’", "’")
	s_testo = StringaCodificata
end if

detagger = s_testo

end function

%>

le ultime commentate sono per formattare il testo in TXT puro ... del tipo le e,a,o accentate

FACCIAMOLO DIVENTARE UN BUON DETAGGER che è utile per le form e preview di news

Discussione: Detagger [PILLOLA]

Strumenti discussione

Ricerca discussione

Visualizza

Hybrid View

Detagger [PILLOLA]

Permessi di invio