Visualizzazione dei risultati da 1 a 9 su 9
  1. #1

    visualizzare campo senza formattazione

    ciao...
    con questo codice visualizzo solo 45 parole del mio campo è possibile visualirrare il tutto senza formattazione html (cioè dentro a questo campo io ho formatto il testo con
    [b]

    </p> ecc.. e vorrei visualizzarlo normale senza la formattazione)

    <%
    dim mess
    dim messaggio
    dim i
    mess = Split(rs11("descrizione"))
    messaggio = ""
    for i = 0 to Ubound(mess)
    messaggio = messaggio & mess(i) & " "
    if i = 45 then exit for
    next
    Response.Write(messaggio) %>... ">Vai
    </td>




  2. #2

  3. #3
    Io uso questa funzioncina che, richiamata al momento opportuno, rimuove i tags HTML:

    codice:
    function RemoveTags(txt)
      dim tmptxt
      tmptxt = txt
    
       if IsNull(tmptxt) then
        exit function
      end if
    
      dim i, pos1, pos2
       do
        pos1 = Instr(tmptxt, "<")
       if pos1=0 then
          exit do
        else
           pos2 = Instr(pos1, tmptxt, ">")
           if pos2=0 then
            exit do
          else
            tmptxt = Left(tmptxt, pos1-1)&Mid(tmptxt, pos2+1)
          end if
        end if
      loop
      RemoveTags = tmptxt
    end function
    E' nato www.lombardiamotori.it

    www.universocase.it: il primo portale italiano di annunci immobiliari gratuiti e autogestiti!

  4. #4
    Ovviamente, se il testo da "detaggare" è memorizzato nella variabile

    "testo"

    richiamerai la funzione così:

    testosenzatags = RemoveTags(testo)
    E' nato www.lombardiamotori.it

    www.universocase.it: il primo portale italiano di annunci immobiliari gratuiti e autogestiti!

  5. #5
    domani provo e poi ti dico... grazie...

  6. #6
    E' nato www.lombardiamotori.it

    www.universocase.it: il primo portale italiano di annunci immobiliari gratuiti e autogestiti!

  7. #7
    ciao ho provato ma mi da questo:

    Tipo di errore:
    Errore di compilazione di Microsoft VBScript (0x800A03EA)
    Errore di sintassi
    /dia/pesca/pesca/tipi di pesci.asp, line 104
    function RemoveTags(txt)


    poi come devo fare per richiamare nel modo giusto la variabile:

    così:
    <%
    dim mess
    dim messaggio
    dim i
    mess = Split(rs("testosenzatags = RemoveTags(descrizione)"))
    messaggio = ""
    for i = 0 to Ubound(mess)
    messaggio = messaggio & mess(i) & " "
    if i = 27 then exit for
    next
    Response.Write(messaggio) %>


    grazie teorema

  8. #8
    Utente di HTML.it L'avatar di kluster
    Registrato dal
    Jul 2003
    Messaggi
    1,288
    codice:
    <% 
    descrizione= RemoveTags(rs11("descrizione"))
    mess = Split(descrizione)   
    messaggio = "" 
    for i = 0 to Ubound(mess) 
    messaggio = messaggio & mess(i) & " " 
    if i = 45 then exit for 
    next 
    Response.Write(messaggio) %>... ">Vai
    </td> 
    ....

  9. #9
    ok perfetto funzia!!!!!
    se non ci fossero aspisti come voi sarei perso......

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.