Svært (måske) - Qstat

Det er vigtigt at ALT er i asp

Kan du ikke prøve at lægge et eksempel på en dumpfil op så jeg kan skrive en parser.


Du kan køre din qstat.exe -default ...... linie hver gang der kommer en ny besøgende på sitet og parse dataene.

du kunne oxo bruge et komponent der kan åbne exe i dos prompt og kører filen og hente alt data ud fra den vha. samme komponent...

-mascot->> Man behøves ikke en komponenet for at løre en exe fil..

hmm...nå...sure ?

Jeps, 2 sek jeg strikker lige et eksempel

Eksempel på en outpu fil:

ADDRESS          PLAYERS      MAP  RESPONSE TIME    NAME
213.237.42.238:27015  11/16  de_inferno    120 / 0  cstrike    {SEK} ClanServer 1.1c #1
    16 frags    57m41s FuGu >))D
      5 frags    48m37s Widneo
    51 frags  1h 5m27s BKI-kaffe
      0 frags    3m 2s |evilfish|
      0 frags    5m 3s Dragon
      4 frags    15m44s Andi
      7 frags    13m36s WASP
      3 frags    3m27s |2xBongHoveder|@rne-DrEnGeN
      1 frags    2m21s DeFr@G
      9 frags  1h37m11s CrAzYcReW|7ib|
      7 frags  1h36m57s Schakal(LWP)

det var fra en txt fil, derfor er det sat \"pænt\" op

Kan vi ikke få en \"raw\"

må vi få en uden at den er pillet ved?

Her kan i se en raw udgave:

http://sek.adsl.dk/test.txt

Nu kommer der vist en CLop44 ind :o)

Eksekvering af dit script når folk kommer ind på serveren...

Set objShell = Server.CreateObject(\"Wscript.Shell\")
objShell.Run \"%ComSpec% /c qstat.exe -default hls -of \" & Server.MapPath(.) & \"\\parseme.txt -P 212.112.129.11:27016\", 0, True
Set objShell = Nothing

Jeg arbejder lige på en parser(Har lidt travlt med en deadline men skal nok kigge på det hen ad vejen).

takker moonduck... jeg kigger også selv lidt på det

<%

    Set objShell = Server.CreateObject(\"Wscript.Shell\")
    objShell.Run \"%ComSpec% /c c:\\qstat -default hls -P 212.112.129.11:27016 > c:\\Inetpub\\wwwroot\\parseme.txt\", 0, True
    Set objShell = Nothing

    Set objFS = Server.CreateObject(\"Scripting.FileSystemObject\")
    Set objTXTStream = objFS.OpenTextFile(\"c:\\Inetpub\\wwwroot\\parseme.txt\")
    objTXTStream.SkipLine
    strServer = objTXTStream.Readline
   

    Dim arrFrags(100)\'Jeg regner ikke med at der kan være over 100 brugere på en Server.
    Dim arrTime(100)
    Dim arrName(100)
    intCouunt = 0

  Do while Not objTXTStream.AtEndOfStream
    strPlayer = objTXTStream.ReadLine
    tempPos = instr(strPlayer, \"frags\")

    arrFrags(i) = Left(strPlayer, tempPos - 1)

   
    arrTime(i) = Mid(strPlayer, tempPos + 6, 10 )

    tempPos = tempPos + 6 + 9

    arrName(i) = Right(strPlayer, Len(strPlayer) - tempPos)

    i = i + 1
   
  Loop


%>
  <table>
    <tr>
        <th>Spiller</th>
        <th>Frags</th>
        <th>Onlinetid</th>
    </tr>
<%
  for p = 0 to i
    Response.write \"<tr>\"
        response.write \"<td>\" & arrName(p) & \"</td>\"
            Response.write \"<td>\" & arrFrags(p) & \"</td>\"
            Response.write \"<td>\" & arrTime(p) & \"</td>\"
    Response.write \"</tr>\"
  next

  Response.write \"</table>\"

  Set objTXTStream = Nothing
  Set objFS = Nothing

%>

Jeg vil gerne have den sortere efter frags.... du skal nok få pointene

Så skal du ud i noget med et tre dimmensionelt array og en lidt træls bublesort.

så er det vist lige meget

moonduck > Good work!

Hvis det ikke er for svært, vil jeg gerne have at parseme.txt kommer fra en database... dvs. at txt filens navn kommer fra en access database med navnet settings og en tabel der hedder servers. Kan det lades sig gøre?

    Set objFS = Server.CreateObject(\"Scripting.FileSystemObject\")
    Set objTXTStream = objFS.OpenTextFile(\"c:\\Inetpub\\wwwroot\\parseme.txt\")
    objTXTStream.SkipLine
    strServer = objTXTStream.Readline

kolonen hvor data\'erne kommer fra hedder ip

Det er vist bare nemmere :o)

Jeg forstår ikke lige hvad du vil?

    Set objFS = Server.CreateObject(\"Scripting.FileSystemObject\")
    Set objTXTStream = objFS.OpenTextFile(\"c:\\Inetpub\\wwwroot\\parseme.txt\")
    objTXTStream.SkipLine
    strServer = objTXTStream.Readline

Denne information: c:\\Inetpub\\wwwroot\\parseme.txt
skal skiftes ud med <%=news(\"ip\")%> fra en databasen der hedder