[asp] gegevens uit een text halen

[TeeDee]

Hoi,

ik ben bezig om mijn dataverkeer online te bekijken middels asp exec en de w2k "netstat -e" functie.

Dit stukje geeft als text result ongeveer het volgende terug:

Interface-gegevens Ontvangen Verzonden Bytes 1408763008 1459247622 Unicast-pakketten 1748810 1751010 Niet-Unicast-pakketten 6681 3989 Geweigerd 0 0 Fouten 0 0 Onbekende protocollen 0

Nu wil ik dus alleen de ontvangen bytes (in dit geval "1408763008 " en de verzonden bytes "1459247622") weer laten geven.

Nu heb ik me de klere gezocht op MSDN en vond alleen dingen als Left, Right, Replace en Filter. Geen van de functies gaven een "bevredigend" resultaat.

Weet iemand waar ik dit wel mee kan doen? Of moet ik misschien een combinatie van deze functies doen?

/edit:
ik kan vanavond wat later pas weer antwoorden, eerst ff naar ziekenhuis....

[Gert]

Split() op spaties, en dan 't juiste woord uit de array halen, moet wel kunnen denk ik.

[Verwijderd]

klopt, en dan pak je element no. 4 en 5 uit de array die je terugkrijgt.

[TeeDee]

maar die gegegevens wisselen iedere keer (logisch, tis bytes in en out), maar ik zal ut wel ff proberen

[Gert]

De plaats van de gegevens in de array verandert niet.

[4of9]

regexp gebruiken

werkt prima

[TeeDee]

het heeft even geduurd maar ik kom er nog niet helemaal uit...

met de volgende code:

code:

<%
Dim draaiend, verkeer1, verkeer2, traffic, gesplitverkeer, MyString, MyArray
' uptime opsnorren!
      Set Executor = Server.CreateObject("ASPExec.Execute")
      Executor.Application = "uptime"
      uptime = Executor.ExecuteDosApp
      uptime = Replace (uptime, "\\MORIHEI has been up for: ", "Morihei's uptime is:"&vbCrlf)
      uptime = Replace (uptime, "Estimate based on last boot record in the event log." , "")
      uptime = Replace (uptime, "See UPTIME /help for more detail.", "")
      draaiend = uptime
' netstat -e uitlezen
    Set Executor = Server.CreateObject("ASPExec.Execute")
    Executor.Application = "netstat -e"
      traffic = Executor.ExecuteDosApp
      MyString = traffic
      gesplitverkeer = Split(MyString, " ", -1, 1)
      verkeer1 = gesplitverkeer(4)
      verkeer2 = gesplitverkeer(5)
%>

leest ie wel netjes de uptime uit.... maar bij het gedeelte van de split geeft ie niks terug.
Doe ik nu iets fout?

[TeeDee]

ik heb dit:

code:

Dim remote, ip, msg
remote = Request.ServerVariables ("REMOTE_ADDR")
ip = remote
ip = Split (ip, ".", -1, 1)
msg = ip(0)& "volgende" & ip(1)

ook geprobeert om te splitten, en dat lukt wel...

snap er niks van...

/edit:
als ik ipv van (4) (0) gebruik geeft ie wel interface-gegevens terug.

Dus het werkt wel, hij gaat alleen niet verder dan (0)

[Verwijderd]

Op zaterdag 26 januari 2002 17:59 schreef TeeDee het volgende:

code:

Dim remote, ip, msg
ip = Split (ip, ".", -1, 1)

Haal die -1 en die 1 eens weg. Die zijn niet nodig, en probeer het dan nog eens...

[TeeDee]

opgelost...

het resultaat wat traffic weergaf was wel 1 lange regel, maar in de originele output stonden er allemaal spaties.

Ik ben hier achtergekomen door:

code:

Dim i
For i = 0 to Ubound(MyString)
    Response.Write i & " = " & Mystring(i) & "<BR>"
Next

uit te voeren... hierdoor gaf ie alle arrays terug, en toen was het makkelijk om verder te gaan

[TeeDee]

nog 1 klein dingetje:

nu moet ik alles dus nog megabytes etc. etc. zien te krijgen...

dan moet ik het resultaat toch delen door 1024?

[maikel]

Dan heb je KB's.
Voor MB's moet je even delen door: 1048576

[TeeDee]

thanks....

/edit:
http://teedee.dynu.com/specs/

hiero kan je zien wat ik ervan gebakken heb....