Hopefully simple read file question 2

[Smithsco]

I have a file that will contain

Packets: Sent = 4, Received = 4, Lost = 0 (0% loss),
Minimum = 40ms, Maximum = 0ms, Average = 0ms

I want to just get the actual numbers out of each line and place them into a variable eg: oMin would be 40 etc
Any idea's

 

[BDC2]

Open the file and read each line.

If the line contains "Minimum" then extract the number.

I assume your familiar with the filesystemobject. so...

If InStr(fso.ReadLine,"Minimum&quot>0 then
TextStr = fso.ReadLine

StartNo = InStr(TextStr,"Minimum&quot + 10
EndNo = InStr(TextStr,"ms&quot
oMin = Mid(TextStr,StartNo,EndNo-StartNo)
TextStr = RIGHT(TextStr,len(TextStr)-(EndNo+2))

StartNo = InStr(TextStr,"Maximum&quot + 10
EndNo = InStr(TextStr,"ms&quot
oMax = Mid(TextStr,StartNo,EndNo-StartNo)
TextStr = RIGHT(TextStr,len(TextStr)-(EndNo+2))

StartNo = InStr(TextStr,"Average&quot + 10
EndNo = InStr(TextStr,"ms&quot
oAve = Mid(TextStr,StartNo,EndNo-StartNo)
End If

BDC.

 

[Bullschmidt]

One thing you could do is Split() on the comma and then split each part on the =.

And here is the language reference for more info on Split():

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/vbscripttoc.asp

Best regards,
J. Paul Schmidt - Freelance ASP Web Developer

http://www.Bullschmidt.com

- Creating "dynamic" Web pages that read and write from databases...