Domandina

[mexican]

Ciao a tutti, io ho in un database in un campo memo del testo contenente anche codice html, ora vorrei sapere se è possibile poter prelevare solo il testo e non anche il codice html.

Si può fare?

[optime]

standing ovation per il titolo del thread. urge attenta lettura del regolamento.

[santino83]

bel titolo


si si può fare ma non è banale e ci sono vari modi...con un comando solo non si può

[mexican]

Originariamente inviato da optime
standing ovation per il titolo del thread. urge attenta lettura del regolamento.

non sapevo proprio che titolo dargli. Se me ne suggerite uno lo modifico.

Come si potrebbe fare? Spero non con mille replace

[santino83]

Originariamente inviato da mexican
non sapevo proprio che titolo dargli. Se me ne suggerite uno lo modifico.

Come si potrebbe fare? Spero non con mille replace

ecco già l'idea dei mille replace comincia ad essere una strada

[optime]

mi ricordo di una regexp che strippava il codice html... cerca

[Roby_72]

'Funzione per eliminare i tag HTML
Function deleteHTML(strHTML) 
     Dim objRegExp, strOutput 
     Set objRegExp = New Regexp 
     objRegExp.IgnoreCase = True 
     objRegExp.Global = True 
     strOutput=strHTML 
     objRegExp.Pattern = "<[^>]*>" 
     strOutput = objRegExp.Replace(strOutput, "") 
      
     deleteHTML = strOutput 
     set objRegExp = Nothing 
End Function

Roby

[diegoctn]

Ultimamente Roby_72 appare per un solo post e poi scompare nelle sue "oscure" strade....... ..........tipo il Gandalf del Signore degli Anelli...........

[optime]

Originariamente inviato da diegoctn
Ultimamente Roby_72 appare per un solo post e poi scompare nelle sue "oscure" strade....... ..........tipo il Gandalf del Signore degli Anelli...........

essere moderatori vorrà dire qualcosa, no?

[mexican]

Originariamente inviato da Roby_72

'Funzione per eliminare i tag HTML
Function deleteHTML(strHTML) 
     Dim objRegExp, strOutput 
     Set objRegExp = New Regexp 
     objRegExp.IgnoreCase = True 
     objRegExp.Global = True 
     strOutput=strHTML 
     objRegExp.Pattern = "<[^>]*>" 
     strOutput = objRegExp.Replace(strOutput, "") 
      
     deleteHTML = strOutput 
     set objRegExp = Nothing 
End Function

Roby

Grazie Mille