Regular Expression
Jeg skal bruge en metode til at finde ud af om et mønster passer. Jeg har rodet lidt med regular expressions. Og det fungerer egentlig fint. Lige indtil der kommer special karakter eller mellemrum i filnavnet.Det jeg skal kunne finde ud af er følgende:
<A HREF=\"/STI/TIL/FIL/read.asp?obj=EnMegetLangTalKombination&att=ATT-0-EnLidtKortereTalKombination-ETFILN%7E1.EXT\" TARGET=\"_blank\" TITLE=\"ET FILNAVN MED MELLEMRUM.EXT\"><IMG BORDER=0 ALT=\"ET FILNAVN MED MELLEMRUM.EXT\" SRC=\"/exchange/Attach/generic.gif\">ET FILNAVN MED MELLEMRUM.EXT</A>
Passer til mønsteret
<A HREF=\"/STI/TIL/FIL/read.asp?obj=EnMegetLangTalKombinationSomJegIkkeKender&att=ATT-0-EnLidtKortereTalKombinationSomJegIkkeKender-EtFilNavnSomJegIkkeKender.Ext\" TARGET=\"_blank\" TITLE=\"EtFilNavnSomJegIkkeKender.Ext\"><IMG BORDER=0 ALT=\"EtFilNavnSomJegIkkeKender.Ext\" SRC=\"/exchange/Attach/generic.gif\">EtFilNavnSomJegIkkeKender.Ext</A>
Er der nogen der har en idé. Som sagt, så bruger jeg i øjeblikket nedenstående kode. Men det virker ikke med special karakter og mellemrum i filnavne:
Set regEx = New RegExp \' Lav regular expression
regEx.Pattern = \"<A HREF=\"\"/STIL/TIL/FIL/read\\.asp\\?obj\\=(\\w+)\\&att\\=ATT\\-(\\w+)-(\\w+)-(\\w+)\\.(\\w+)\"\" TARGET=\"\"_blank\"\" TITLE=\"\"(\\w+)\\.(\\w+)\"\"><IMG BORDER=0 ALT=\"\"(\\w+)\\.(\\w+)\\\"\" SRC=\"\"/exchange/Attach/generic.gif\"\">(\\w+)\\.(\\w+)</A>\" \' Danner et søgemønster
regEx.IgnoreCase = True \' Laver den case insensitive.
regEx.Global = True
strHTML = regEx.Replace(strHTML, \"Der er en vedhæftet fil\") \' Udskifter strengen.
Set regEx = Nothing
