Newsgroup: it.comp.www.asp
Titolo: Problemi su ciclo "For Each"

Ciao ragazzi,
sto cercando di creare una funzioni che mi metta in highlight le
parole dalle mia stringa di ricerca...ma cado in un problema nel
codice sotto...
leggette i commenti...mi ridŕ spazi a mio giudizio inesistenti quando
eseguo il ciclo for each!
--------
<%
'Pulisco la stringa per le query booleane
Function CleanInput(StringaInput)	
	Dim TempString
	TempString = StringaInput
	TempString = Replace(TempString,"'","")
	TempString = Replace(TempString,"%","")
	TempString = Replace(TempString,"<","")
	TempString = Replace(TempString,">","")
	TempString = Replace(TempString,"&","")
	TempString = Replace(TempString,"|","")
	TempString = Replace(TempString,"(","")
	TempString = Replace(TempString,")","")
	TempString = Replace(TempString,"~","")
	TempString = Replace(TempString,"""","")
	TempString = Replace(TempString,"+","")
	TempString = Replace(TempString,"-","")
	CleanInput = TempString
End Function
my_sentence = "Il Milan ha vinto per la sesta volta la coppa dei
campioni in una grandissima finale"
word_to_highlight = CleanInput("Milan >campioni""    &++ dfg fdg  
|)()       s")
'Qui sotto mi stampo la stringa purificata...ed č perfetta
response.write "-"&word_to_highlight&"-"&"<br>"
'Qui creo un array e poi la stampo
StrArray = Split(word_to_highlight)
'Ora la stampo...perň a mia sorpresa
'come potete vedere vengono introdotti spazi tra le righe
'proprio non capisco il perchč?
Dim StrWord
For Each StrWord in StrArray
	Response.write(StrWord & "<br>")
Next
%>

Ok, ho superato il problema degli spazi, ma vorrei che venissero evidenziate tutte
le parole della mia stringa di ricerca e non solo una...infatti cosě ci riesco,
riuscite a darmi una mano?
TNKS Alen
------------------------
 Sono arrivato sino a qui
------------------------
<%@LANGUAGE="VBSCRIPT"%>
<%
Function CleanInput(StringaInput)
 
	Dim TempString
	TempString = StringaInput
	TempString = Replace(TempString,"'","")
	TempString = Replace(TempString,"%","")
	TempString = Replace(TempString,"<","")
	TempString = Replace(TempString,">","")
	TempString = Replace(TempString,"&","")
	TempString = Replace(TempString,"|","")
	TempString = Replace(TempString,"(","")
	TempString = Replace(TempString,")","")
	TempString = Replace(TempString,"~","")
	TempString = Replace(TempString,"""","")
	TempString = Replace(TempString,"+","")
	TempString = Replace(TempString,"-","")
	CleanInput = TempString
 
End Function
Function doHighlight(my_sentence,word_to_highlight,StrCase)
	Select Case lcase(StrCase) 
		Case "b"
		my_output = "<B>"&word_to_highlight&"</B>"
		doHighlight = replace(my_sentence, word_to_highlight, my_output) 
 
		Case "i"
		my_output = "<I>"&word_to_highlight&"</I>"
		doHighlight = replace(my_sentence, word_to_highlight, my_output) 
 
		Case "bi"
		my_output = "<I><B>"&word_to_highlight&"</B></I>"
		doHighlight = replace(my_sentence, word_to_highlight, my_output)
 
		Case "backyellow"
		StrArray = Split(word_to_highlight)
 
		For Each StrWord in StrArray
			if len(StrWord) > 0 then 
				my_output = "<span style='background=yellow'>"&StrWord&"</span>"
				doHighlight = replace(my_sentence,StrWord,my_output)
				Response.write(StrWord & "<br>")
			end if
		Next
 
	End Select
End function
word_to_highlight = CleanInput("Milan >campioni""    &++ dfg fdg   |)()       s")
my_sentence = ("Il Milan ha vinto per la sesta volta la coppa dei campioni in una
grandissima finale")
Response.write doHighlight(my_sentence, word_to_highlight, "backyellow")&"<br>"
%>
<html>
<head>
<title>Documento senza titolo</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
</body>
</html>
--
Enjoy the .NET community! ASPItalia.com
 
http://forum.aspitalia.com/
 
http://www.aspitalia.com/