Jag hämtar hela källkoden till en sida med xmlhttp och läger det i en sträng "StrKod". I dena kod finns en mening som säger "Sammanlagt 138095 besök". Orden "sammanlagt" och "besök" är alltid samma men talet ändras som ni förstår hela tiden. Hur plockar jag enklast ut siffrorna och lägger dom i variabeln IntHits? Har funderat på att leta upp "sammanlagt" med InStr och sedan loopa igenom tecken för tecken och kolla om det är numeriskt men det verkar onödigt komplicerat. Hej, strKod = "hela din text" Fick något felmeddelande på "mid" i din kod men jag förstod hur du har tänkt (tror jag) så följande kodsnutt funkar fint. eller med regexp...Plocka ut siffrorna
Kan inte RegExp men någon kanske har några förslag?Sv: Plocka ut siffrorna
Finns kanske bättre sätt, men detta funkar:
<code>
StrKod = "Sammanlagt 203084 besök"
IntLength = Cint(Len(StrKod))-17
IntHits = Mid(StrKod,12,IntLength)
Response.Write IntHits
</code>
/JockeSv: Plocka ut siffrorna
strKod = mid(strkod, instr(1, strkod, "Sammanlagt ") + len("Sammanlagt "))
strkod = mid(strkod, 1, instr(1, strkod, " Besök") - 1)
Det borde fungera, om det blir fel text ut så kan du testa att ändra på raderna efter sista parantesen +- 1
[EDIT]
Såg ett missat mellanslag...
[/EDIT]Sv: Plocka ut siffrorna
<code>
<%
StartPos = InStr(StrHTML,"Sammanlagt ") +11
StopPos = InStr(StrHTML," besök")
AntalTecken = StopPos-StartPos
IntCount = Mid(StrHTML,StartPos,AntalTecken)
%>
</code>
Tackar!Sv: Plocka ut siffrorna
<code>
Dim objRegExp
Set objRegExp = New regexp
objRegExp.Global = true
objRegExp.IgnoreCase = true
objRegExp.Pattern = "Sammanlagt ((.|\s)*?) besök"
text = objRegExp.Replace(strHTML,"$1")
</code>