Avatar billede tniels Nybegynder
11. januar 2005 - 11:28 Der er 5 kommentarer og
1 løsning

Hvordan fjerner jeg "skjult kode" med RegExp

Jeg har et Word-dokument, som jeg gemmer som en HTML-dokument. I HTML-dokumentet er der en masse kode, som jeg ikke skal bruge til noget. F.eks:
<!--[if gte vml 1]><v:shapetype id="_x0000_t75"
  coordsize="21600,21600" o:spt="75" o:preferrelative="t" path="m@4@5l@4@11@9@11@9@5xe"
  filled="f" stroked="f">
  ...
  </v:shape><![endif]-->

Er der nogle, der kan hjælpe mig med at fjerne kode mellem <!-- og --> (i Visual Basic)?
Jeg har koden, jeg mangler bare Pattern:
    'sHTML er HTML-koden fra Word-dokumentet
    Set re = New RegExp
    re.Pattern = "???"
    re.Global = True
    sHTML = re.Replace(sHTML, "")
    Set re = Nothing
Avatar billede yellow Nybegynder
11. januar 2005 - 11:35 #1
re.Pattern = "<!--.*?-->"
Avatar billede tniels Nybegynder
11. januar 2005 - 11:41 #2
Det virker ikke. Der sker ikke noget.
Avatar billede yellow Nybegynder
11. januar 2005 - 11:50 #3
Har puttet det her i en .vbs fil:
'*******************************
sHTML = "Jeg har et Word-dokument, som jeg gemmer som en HTML-dokument. I HTML-dokumentet er der en masse kode, som jeg ikke skal bruge til noget. F.eks: <!--[if gte vml 1]><v:shapetype id=""_x0000_t75"" coordsize=""21600,21600"" o:spt=""75"" o:preferrelative=""t"" path=""m@4@5l@4@11@9@11@9@5xe"" filled=""f"" stroked=""f"">...</v:shape><![endif]-->"
Set re = New RegExp
re.Pattern = "<!--.*?-->"
re.Global = True
sHTML = re.Replace(sHTML, "")
Set re = Nothing
msgbox sHTML
'*******************************

Resultatet er: Jeg har et Word-dokument, som jeg gemmer som en HTML-dokument. I HTML-dokumentet er der en masse kode, som jeg ikke skal bruge til noget. F.eks:
Avatar billede tniels Nybegynder
11. januar 2005 - 14:37 #4
Det var da mærkeligt. Det kan jeg godt se. Ved mig virker det også fint, hvis jeg laver et VB Script.
Jeg kan bare ikke få det til at virke i Visual Basic.

Nå, men det må jeg lige arbejde med.
Hvis du vil have pointene, kan du bare svarer.

Tak for hjælpen.
Avatar billede yellow Nybegynder
11. januar 2005 - 14:39 #5
svar
Avatar billede tniels Nybegynder
13. januar 2005 - 15:54 #6
Så fandt jeg ud af, hvad der var problemet.
sHTML indeholdte linjeskift - derfor virkede det ikke.

Hvis jeg ændre det til følgende, virker det:
    Set re = New RegExp
    re.Pattern = "<!--(.|\n)*?-->"
    re.Global = True
    sHTML = re.Replace(sHTML, "")
    Set re = 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