Re: Removing html tags from field

From: Graham R Seach (gseach_at_NOSPAMpacificdb.com.au)
Date: 07/29/04 

Date: Thu, 29 Jul 2004 15:56:44 +1000

Public Function KillHTML(sText 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) & Mid(sText, iLeft + Len(sTmp))
        iLeft = InStr(1, sText, "<")
    Wend

    KillHTML = sText
End Function

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: 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: Removing html tags from field
    ... > Public Function KillHTML(sText As String, ... > Dim iRight As Integer ... > Microsoft Access 2003 VBA Programmer's Reference ... >> Is there a way to remove html tags from a memo field? ...
    (microsoft.public.access.queries)
  • Re : Outlook 2003 - Turn Word on or off as e-mail editor or viewer
    ... but since the variable "corps" contains html tags there are ... Private Function EnvoiMail_HTML(Adresse As String, Objet As String, Corps ... Dim MonAppliOutlook As Outlook.Application ...
    (microsoft.public.outlook.program_vba)
  • Re: Removing html tags from field
    ... I just remembered - you want to replace the tags with a space or something. ... 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)
  • Search pattern
    ... Dim strfile As String ... Dim bAddressFound As Boolean ... Dim strCurrentChar As String ...
    (comp.databases.ms-access)