Hive et tal ud fra en streng...

Kan se, at tallet efter ciid= altid er det samme som ASCLIK værdien, hvis det er lettere at tage denne værdi.

Har fundet en løsning:

    LogDir = "c:\winnt\system32\logfiles\w3svc11\"
   
    aDate = DateAdd("d",-1,Now())
    MyYear = Right(Year(aDate),2)
    MyMonth = Month(aDate)
    MyDay = Day(aDate)
   
    If Len(MyMonth) < 2 Then MyMonth = "0" & MyMonth
    If Len(MyDay) < 2 Then MyDay = "0" & MyDay
   
    LogFile = "ex" & MyYear & MyMonth & MyDay & ".log"
   
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set f1 = FSO.OpenTextFile(LogDir & LogFile,1,False)
   
    C = 0
    I = 0
    Do While Not f1.AtEndOfStream
        strParse = f1.ReadLine
        If InStr(1,strParse,"Missing_URL") Then
        ElseIf InStr(1,strParse,"adredir.asp") Then
            On Error Resume Next
            myString = ""
            myString = Mid(strParse, InStr(1, strParse, "ciid=")+5, 16)
            myString = Left(myString, InStr(1, myString, "&")-1)
            C = C + 1
        ElseIf InStr(1,strParse,"/siteserver-") Then
            On Error Resume Next
            myString = ""
            myString = Mid(strParse, InStr(1, strParse, "ASIMPR=")+7, 16)
            myString = Left(myString, InStr(1, myString, "&")-1)
            I = I + 1
        End If
       
    Loop
   
    WScript.Echo("C: " & C)
    WScript.Echo("I: " & I)