Kentoi Seniormester
10. februar 2017 - 08:34 Der er 1 kommentar

Hentning af oplysninger via IE

Hejsa.
Jeg har brug for lidt hjælp. Jeg har en function som henter "Shipping Date" fra en hjemmeside. Hjemmesiden har nu ændret sig og jeg får ikke fat i de metadata. Er der een her der sådan lige kunne tilrette den så det kommer til at passe, så vil jeg være taknemlig. I gamle dage var oplysningen på samme linie, men nu er det jeg vil have fat i, på næste linie.

Hjemmesiden er:
http://www.dell.com/support/home/us/en/04/product-support/servicetag/gs1vn12/configuration

Function GetShipDate(strServiceTag)
    Dim colMatches, objMatch,objIE, strInnerText, objRegExp
    Set objIE = CreateObject("InternetExplorer.Application")
    With objIE
        .Navigate "http://www.dell.com/support/home/us/en/04/product-support/servicetag/"  & strServiceTag & "/configuration"
        .Visible = 1
    End With
    Do Until Not objIE.Busy
        WScript.Sleep 100
    Loop
   
    strInnerText = objIE.Document.Body.InnerText

    Set objRegExp = New RegExp
    With objRegExp
        .IgnoreCase = True
        .Global = False
        .Pattern = "Afsendelsesdato: *(\d{1,2}/\d{1,2}/\d{4})"
    End With
   
    Set colMatches = objRegExp.Execute(strInnerText)
    For Each objMatch in colMatches
        GetShipDate = objMatch.SubMatches(0)
    Next
   
    objIE.Quit
    Set objIE = Nothing
    Set objRegExp = Nothing
    Set colMatches = Nothing
End Function

P.S.
Når jeg laver en PREVIEW af mit spørgsmål, så forstår jeg ikke hvorfor at der er en backslash foran anførelsestegnet. Det skal altså ikke med, men jeg håber at I kan gennemskue hvad jeg mener.
Kentoi Seniormester
10. februar 2017 - 08:34 #1
Øhh, bare glem min P.S. :)
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

Opret Preview

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





Premium
Wingmen Solutions fortsætter den stejle vækstkurve trods corona: Hæver overskuddet med 120 procent
Wingmen Solutions fastholder de eksplosive vækstrater trods corona-pandemien. Det viser selskabets nye regnskab, hvor overskuddet er mere end fordoblet. "Det er fantastisk, at vi er kommet igennen et år med corona på den her måde," lyder det fra topchef Kåre Christensen.
Computerworld
Stein Bagger gør comeback i ny branche: "De lignede et mafiahold, førte sig frem som nyrige og plaprede løs om urealistiske drømme"
Stein Bagger har skiftet navn og fører sig nu frem i store biler i en helt ny branche, skriver en dansk avis.
CIO
Podcast: Her er seks gode råd om ledelse og digitalisering fra danske top-CIO'er
The Digital Edge: Vi har talt med 17 af Danmarks dygtigste digitale ledere - og samlet deres seks bedste råd om digitalisering og ledelse. Få alle rådene på 26 minutter i denne episode af podcasten The Digital Edge.
Job & Karriere
Se Waoos forklaring: Derfor har selskabet fyret topchef Jørgen Stensgaard med omgående virkning
Waaos bestyrelse opsiger fiberselskabets topchef, Jørgen Stensgaard, der fratræder med omgående virkning. Se hele forklaringen fra Waao her.
White paper
Kan Microsoft 365 styrke sikkerheden på hjemmearbejdspladsen?
Microsoft 365 er både Officeapplikationer og produktivitet – men også meget mere end det! Med Microsoft 365 får du faktisk adgang til en lang række sikkerhedsydelser, der kan øge modstandsdygtigheden i tilfælde af cyberangreb. Mange af tjenesterne er særligt velegnede til at styrke sikkerheden, når medarbejderne arbejder hjemmefra. Samtidig gør Microsoft 365 det lettere at sikre adgangen til virksomhedens systemer, beskytte kundedata og forebygger, opsporer og automatiserer reaktioner på avancerede trusler. Microsoft 365 tilbyder over 50 forskellige sikkerhedsydelser, og denne guide er skrevet med henblik på at øge forståelsen for, hvordan de fungerer og kan være med til at optimere sikkerheden i din virksomhed.