Fetstil Fetstil Kursiv Understrykning linje färgläggning tabellverk Punktlista Nummerlista Vänster Centrerat högerställt Utfyllt Länk Bild htmlmode
  • Forum & Blog
    • Forum - översikt
      • .Net
        • asp.net generellt
        • c#
        • vb.net
        • f#
        • silverlight
        • microsoft surface
        • visual studio .net
      • databaser
        • sql-server
        • databaser
        • access
        • mysql
      • mjukvara klient
        • datorer och komponenter
        • nätverk, lan/wan
        • operativsystem
        • programvaror
        • säkerhet, inställningar
        • windows server
        • allmänt
        • crystal reports
        • exchange/outlook
        • microsoft office
      • mjukvara server
        • active directory
        • biztalk
        • exchange
        • linux
        • sharepoint
        • webbservers
        • sql server
      • appar (win/mobil)
      • programspråk
        • c++
        • delphi
        • java
        • quick basic
        • visual basic
      • scripting
        • asp 3.0
        • flash actionscript
        • html css
        • javascript
        • php
        • regular expresssion
        • xml
      • spel och grafik
        • DirectX
        • Spel och grafik
      • ledning
        • Arkitektur
        • Systemutveckling
        • krav och test
        • projektledning
        • ledningsfrågor
      • vb-sektioner
        • activeX
        • windows api
        • elektronik
        • internet
        • komponenter
        • nätverk
        • operativsystem
      • övriga forum
        • arbete karriär
        • erbjuda uppdrag och tjänster
        • juridiska frågor
        • köp och sälj
        • matematik och fysik
        • intern information
        • skrivklåda
        • webb-operatörer
    • Posta inlägg i forumet
    • Chatta med andra
  • Konto
    • Medlemssida
    • Byta lösenord
    • Bli bonsumedlem
    • iMail
  • Material
    • Tips & tricks
    • Artiklar
    • Programarkiv
  • JOBB
  • Student
    • Studentlicenser
  • KONTAKT
    • Om pellesoft
    • Grundare
    • Kontakta oss
    • Annonsering
    • Partners
    • Felanmälan
  • Logga in

Hem / Forum översikt / inlägg

Posta nytt inlägg


Plocka ut siffrorna

Postades av 2003-09-11 14:52:59 - Peter Holm, i forum asp - allmänt, Tråden har 4 Kommentarer och lästs av 557 personer

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.
Kan inte RegExp men någon kanske har några förslag?


Svara

Sv: Plocka ut siffrorna

Postades av 2003-09-11 15:45:12 - Joachim Feldt

Hej,
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>

/Jocke


Svara

Sv: Plocka ut siffrorna

Postades av 2003-09-11 15:59:42 - Oskar Johansson

strKod = "hela din text"
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]


Svara

Sv: Plocka ut siffrorna

Postades av 2003-09-12 13:51:01 - Peter Holm

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.

<code>
<%
StartPos = InStr(StrHTML,"Sammanlagt ") +11
StopPos = InStr(StrHTML," besök")
AntalTecken = StopPos-StartPos

IntCount = Mid(StrHTML,StartPos,AntalTecken)
%>
</code>

Tackar!


Svara

Sv: Plocka ut siffrorna

Postades av 2003-09-13 21:16:56 - Gustav Larson

eller med regexp...

<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>


Svara

Nyligen

  • 14:03 God erfaring med temperaturkontrol
  • 10:59 Carve Your Own Path to Glory: A De
  • 18:12 auto transport company
  • 14:54 Cómo desarrollar atención mediante
  • 10:43 Drift Hunters: Complete Guide to D
  • 10:35 Drift Hunters: Complete Guide to D
  • 03:42 Master Every Puzzle with Wordle Un
  • 13:42 Тоглогчдын мөрөөдөл The MongolZ ак

Sidor

  • Hem
  • Bli bonusmedlem
  • Läs artiklar
  • Chatta med andra
  • Sök och erbjud jobb
  • Kontakta oss
  • Studentlicenser
  • Skriv en artikel

Statistik

Antal besökare:
Antal medlemmar:
Antal inlägg:
Online:
På chatten:
4 575 896
28 117
260 456
217
0

Kontakta oss

Frågor runt konsultation, rådgivning, uppdrag, rekrytering, annonsering och övriga ärenden. Ring: 0730-88 22 24 | pelle@pellesoft.se

© 1986-2013 PelleSoft AB. Last Build 4.1.7169.18070 (2019-08-18 10:02:21) 4.0.30319.42000
  • Om
  • Kontakta
  • Regler
  • Cookies