I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Først du skal have hele din HTML side i en variabel, og bagefter kalde denne funktion: (virker med regulære udtryk)
Function GetHTMLTitle(ByVal strText) Dim RegEx Dim objMatches
Set RegEx = New RegExp RegEx.Pattern = \"<title>(.*?)</title>\" RegEx.IgnoreCase = True RegEx.Global = True RegEx.MultiLine = True Set objMatches = RegEx.Execute(strText) If objMatches.Count > 0 Then GetHTMLTitle = Trim(objMatches(0).SubMatches(0)) End If Set RegEx = Nothing End Function
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.