Avatar billede carpediem Nybegynder
27. september 2001 - 19:13 Der er 1 løsning

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
Avatar billede carpediem Nybegynder
27. september 2001 - 20:08 #1
Jeg fandt selv en løsning:
Set regEx = New RegExp \' Lav regular expression
regEx.Pattern = \"<A HREF=\"\"/STIL/TIL/FIL/read\\.asp\\?obj\\=(.+)</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
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

IT-JOB