Una funzione per creare un abstract
Cos'è un abstract? Una breve, concisa descrizione di un documento che ne affronta i concetti principali.
Con questo script faremo proprio questo: estrarremo i primi 150 caratteri da un testo.
Lo script fa uso delle funzioni Len, Left, InStr e InStrRev, in modo da evitare che il testo estratto abbia delle parole troncate.
<%
Function Abstract(testo, caratteri)
'convertiamo per sicurezza testo e caratteri
strTesto= CStr(testo)
intCaratteri = CInt(caratteri)
'controlliamo che la lunghezza del testo sia maggiore di 0
If Len(strTesto) > 0 Then
'controlliamo che la lunghezza del testo sia maggiore del numero
'di caratteri da estrarre
If Len(strTesto) > intCaratteri Then
'controlliamo che l'ultimo spazio sia in posizione maggiore
'del numero di caratteri da estrarre
If InStrRev(strTesto, " ") > intCaratteri Then
'estraiamo l'abstract ed aggiungiamo i puntini
Abstract = Left(strTesto, InStr(intCaratteri , strTesto, " ")) & "..."
Else
Abstract = strTesto & "..."
End If
Else
Abstract = strTesto & "..."
End If
End If
End Function
testo = "Ultimamente si sente sempre più spesso parlare di siti" &_
" craccati, con web server IIS. Uno dei motivi scatenanti"&_
" di questa situazione è però senza dubbio la bassa priorità "&_
" che molti sysadmin danno alla sicurezza ed alla manutenzione "& _
"dei server web."
response.write Abstract(testo, 150)
%>Commenti
Per inserire un commento, devi avere un account.
Fai il login e torna a questa pagina, oppure registrati alla nostra community.
Approfondimenti
Nessuna risorsa collegata
