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

  • 13:18 Website builder
  • 17:03 Getmancar your go-to carsharing
  • 14:07 Games
  • 17:54 Vegastars New Zealand
  • 16:56 Verde Casino Danmark
  • 13:54 Vegastars: Top Australian Online C
  • 21:28 Chicken Road Casino Game
  • 21:21 1xBet Promo Code 2025

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 571 446
27 965
271 786
454
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