I forum Ricerca FAQ
Fai una domanda
Ultimo messaggio
E' un commento allo script #416
leloxml
leloxml
il 5 novembre 2002 alle 15:56
417 messaggi dal 13 giugno 2001
www.basketcoach.it
come si potrebbe modificare lo script in modo che le parole da cercare e sottolineare sia pià di una????
Faccio della mia ignoranza una virtù per stimolare il cervello con soluzioni alternative.
......LELO
RispondiQuoting
rome
rome
il 5 novembre 2002 alle 16:11
2.907 messaggi dal 15 maggio 2001
Contributi
Fai un ciclo for e gli passi la parola da evidenziare
RispondiQuoting
leloxml
leloxml
il 5 novembre 2002 alle 17:33
417 messaggi dal 13 giugno 2001
www.basketcoach.it
Che ti sembra?
<%
Dim word
word = 1
testo_descr = rsDocTrovati("Descrizione")
While word > 0
  word = InStr(1, paroleevidenziare," ")
  If word = 0 Then
    'Ho trovato una sola parola nella stringa da ricercare
    testo_descr = EvidenziaParola(testo_descr, paroleevidenziare, "<span>", "</span>")
  Else
    'Ci sono più parole
    testo_descr = EvidenziaParola(testo_descr, Mid(paroleevidenziare,1,word), "<span>", "</span>")
    paroleevidenziare = Mid(paroleevidenziare,word+1,len(paroleevidenziare))
  End If
Wend
    response.write testo_descr %>

nel punto in cui deve visualizzare il testo che andrebbe sottolienato???
Modificato da leloxml il 05 novembre 2002 18.37 -
Faccio della mia ignoranza una virtù per stimolare il cervello con soluzioni alternative.
......LELO
RispondiQuoting

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.