Re: Removing html tags from field

From: JA (jarmour_at_kc.rr.com)
Date: 08/08/04 

Date: Sun, 08 Aug 2004 23:46:38 GMT

Graham,

Thanks. I am just now getting to this. I don't quite know how to call it. I
put the first part in a module. Then I made an update query, and put

KillHTML([myField], " ")

as the thing to update it to, but that doesn't seem to work. I put the real
fieldname in for "myField". But I don't think I'm doing it right.

Thank you,

JA

"Graham R Seach" <gseach@NOSPAMpacificdb.com.au> wrote in message
news:On67YGTdEHA.3528@TK2MSFTNGP12.phx.gbl...
> I just remembered - you want to replace the tags with a space or
something.
>
> Public Function KillHTML(sText As String, sReplaceWith As String) As
String
> 'Kills HTML tags
> Dim iLeft As Integer
> Dim iRight As Integer
> Dim sTmp As String
>
> iLeft = InStr(1, sText, "<")
> While iLeft > 0
> iRight = InStr(iLeft + 1, sText, ">")
> sTmp = Mid(sText, iLeft, iRight - iLeft + 1)
> sText = Mid(sText, 1, iLeft - 1) & sReplaceWith & Mid(sText, iLeft
+
> Len(sTmp))
> iLeft = InStr(1, sText, "<")
> Wend
>
> KillHTML = sText
> End Function
>
> You can call this function from SQL, like so:
> SELECT KillHTML([myField], " ") As NewText
> FROM tblMyTable
>
> Regards,
> Graham R Seach
> Microsoft Access MVP
> Sydney, Australia
>
> Microsoft Access 2003 VBA Programmer's Reference
> http://www.wiley.com/WileyCDA/WileyTitle/productCd-0764559036.html
>
>
> "JA" <jarmour@kc.rr.com> wrote in message
> news:68%Nc.56136$vN3.6971@twister.rdc-kc.rr.com...
> > First, thank you all who answered my previous questions. And now I have
> > another.
> >
> > Is there a way to remove html tags from a memo field? Like a way to
remove
> > the "<" and the ">" and anything in between them. And maybe replace them
> > with a space? There would most likely be more than one tag per record.
> >
> > Thanks again!
> >
> > JA
> >
> >
>
>

Relevant Pages

  • Re: Prividing query criteria from function
    ... Your query will look like: ... Public Function SelectedFunds(strField As String) As Integer ... Dim LowerVal As Variant ... "Building Microsoft Access Applications" ...
    (microsoft.public.access.queries)
  • Re: Removing html tags from field
    ... You didn't happen to name the module KillHTML, ... >> Public Function KillHTML(sText As String, ... Dim iRight As Integer ... >>> Is there a way to remove html tags from a memo field? ...
    (microsoft.public.access.queries)
  • Re: Reattach Tables
    ... Doug Steele, Microsoft Access MVP ... >> Dim TableNamesAs String ...
    (microsoft.public.access.modulesdaovba)
  • Re: Error 3075 Syntax Error
    ... Doug Steele, Microsoft Access MVPhttp://I.Am/DougSteele ... Dim strQryName As String ...
    (microsoft.public.access.formscoding)
  • Re: Removing html tags from field
    ... Public Function KillHTML(sText As String) As String ... Dim iLeft As Integer ... Dim iRight As Integer ... > Is there a way to remove html tags from a memo field? ...
    (microsoft.public.access.queries)