tagliare testi

[rixx]

Ciao rega,
ho del testo html in un db e ci vorrei tagliare il titolo ovvero dovrei tagliare ciò che si trova tra
<title>...</title> una funzione tipo mid ma con i caratteri qualè?

[pip19]

mid(rs("testo"),8,"qua ci metti la lunghezza che vuoi senza apici")

[rixx]

O_o una risposta molto azzeccata
ti invito a rileggere il mio messaggio LOL

[weppos]

Vuoi tenere quello che c'è dentro ai tag title o tenere tutto tranne quello dentro al title?

[rixx]

tutto quello dentro il tag poi sorge anche il problema che alcuni sono scritti cosi :

< title>dfpgn< / title>

su quello non so bene come fare magari calcorare tutte le possibilità con un replace boh

[willybit]

per queste cose l'ideale è usare le regular expression.
per trovare tutti i tag title (compresi quelli con spazzi strani)

set re = new RegExp
re.Pattern="< *title *>[\w|\t|\r|\W]*?< */ *title *>"
re.Global=true
re.IgnoreCase=true
re.Multiline=true
set risultati = re.Execute(html)

for each ris in risultati
  Response.Write Server.HTMLEncode(ris.value) & "<hr>"
next

[rixx]

oh yes
ciao grazie

[teorema55]

Che ne dici di:

<%

function RemoveTitleTags(txt)
dim tmptxt
tmptxt = txt

if IsNull(tmptxt) then
exit function
end if

dim i, pos1, pos2
do
pos1 = Instr(tmptxt, "<title>")
if pos1=0 then
exit do
else
pos2 = Instr(pos1+7, tmptxt, "</title>")
if pos2=0 then
exit do
else
tmptxt = Mid(tmptxt, pos1+7, pos2-7-pos1)
end if
end if
loop
RemoveTitleTags = tmptxt
end function

prova = "<title>Titolotto</title>"
prova_senza_title_tag = RemoveTitleTags(prova)
%>

[teorema55]

per queste cose l'ideale è usare le regular expression

Concordo, infatti meglio il tuo sistema.....che tra l'altro dovrebbe andare anche con spazi vuoti in mezzo, no?

Anzi, già che ci sono mi copio la funzioncina.......

[rixx]

eheh si ha decisamente piu classe