Søg
Avatar billede fiskerendk Nybegynder
28. april 2002 - 20:51 Der er 20 kommentarer og
1 løsning

w3 Socket Spørgsmål..

Hej alle...

-------------------------------------------------------

For jer som måske har set w3 socket spørgsmål fra mig før.. jamen nu er jeg her sq desværre igen! w3 sockeet scripts er ik lige mit bedste..

-------------------------------------------------------

Jeg har en udskrift fra:
http://tuxtime.dk/txt.php?computerid=2600&record=1
ex. 4d 12h 21m 2s

------

Dette blir så hentet med et w3 socket script:

<%
Dim CR, LF, Socket
CR = Chr(13)
LF = Chr(10)
set Socket = server.CreateObject("Socket.TCP")
socket.Host = "www.tuxtime.dk:80"
Socket.TimeOut = 9000
Socket.Open
' send the HTTP request header
varRequest = "GET /txt.php?computerid=2600&record=1 HTTP/1.0" & CR & LF & "Host: www.tuxtime.dk" & CR & LF
Socket.SendLine(varRequest)
Socket.WaitForDisconnect ()
response.write right(socket.buffer, len(socket.buffer) - instr(socket.buffer,"8859-1") - 5)
%>

------

Men jeg skal ha udfaldet til at se anderledes ud..

udfaldet skal være:

"4 days 12 hours 21 mins"

altså der skal skrives et mellemrum melle tal til text. og der skal tilføjes henholdsvis (ays, ours og ins) i texten. Samt at "S" (sekunder) hel skal fjernes..

------

Nogen der kan hjælpe ville jeg være meget glad...!

Med Venlig Hilsen
Thomas
Avatar billede medions Nybegynder
28. april 2002 - 21:00 #1
<%
Dim CR, LF, Socket
CR = Chr(13)
LF = Chr(10)
set Socket = server.CreateObject("Socket.TCP")
socket.Host = "www.tuxtime.dk:80"
Socket.TimeOut = 9000
Socket.Open
' send the HTTP request header
varRequest = "GET /txt.php?computerid=2600&record=1 HTTP/1.0" & CR & " " & LF & " " & "Host: www.tuxtime.dk" & CR & LF
Socket.SendLine(varRequest)
Socket.WaitForDisconnect ()
response.write right(socket.buffer, len(socket.buffer) - instr(socket.buffer,"8859-1") - 5)
%>
//>Rune
Avatar billede medions Nybegynder
28. april 2002 - 21:01 #2
Er det sådan du mener eller?

//>Rune
Avatar billede fiskerendk Nybegynder
28. april 2002 - 21:08 #3
Den virker ik den siger

Not Found
The requested URL /txt.php was not found on this server.
Apache/1.3.23 Server at theory.dk Port 80
Avatar billede fiskerendk Nybegynder
28. april 2002 - 21:14 #4
Det jeg vil ha den skal gøre er at den skal lave ufalds teksten om..

se her:
http://server.fiskeren.dyndns.dk/home.asp
kig under server status. der er en uptime og en record. hvordan for jeg udfaldet på record til at være magen til uptime altså
fra "5d 6h 26m 5s" til "0 days 17 hours 31 mins"
Avatar billede cms Nybegynder
28. april 2002 - 21:54 #5
<%

Dim CR, LF, Socket
CR = Chr(13)
LF = Chr(10)
set Socket = server.CreateObject("Socket.TCP")
socket.Host = "www.tuxtime.dk:80"
Socket.TimeOut = 9000
Socket.Open
' send the HTTP request header
varRequest = "GET /txt.php?computerid=2600&record=1 HTTP/1.0" & CR & LF & "Host: www.tuxtime.dk" & CR & LF
Socket.SendLine(varRequest)
Socket.WaitForDisconnect ()

Function ReadNumber
  R = ""
  Do While InStr("0123456789", Mid(S, Pos, 1))>0
      R = R & Mid(S, Pos, 1)
      Pos = Pos + 1
    Loop
    ReadNumber = R
End Function

'Uptime = "5d 6h 26m 5s"
Uptime = trim(right(socket.buffer, len(socket.buffer) - instr(socket.buffer,"8859-1") - 5))

Pos = 1 : S = Uptime
Days = ReadNumber : Pos = Pos + 2
Hours = ReadNumber : Pos = Pos + 2
Minutes = ReadNumber : Pos = Pos + 2
Seconds = ReadNumber : Pos = Pos + 2
Uptime = Days & " days " & Hours & " hours " & Minutes & " minutes " & Seconds & " seconds"

Response.Write Uptime
%>
Avatar billede cms Nybegynder
28. april 2002 - 21:56 #6
og tredjesidstelinje kan selvfølgelig også ændres til det du be'r om:

Uptime = Days & " days " & Hours & " hours " & Minutes & " mins "
Avatar billede fiskerendk Nybegynder
28. april 2002 - 22:09 #7
Er meget meget glad for dit svar det er perfekt der er bare lige en enkelt rettelse.. den finder ik det forster cifte ud fra "x days" der står bare intet!
Avatar billede fiskerendk Nybegynder
28. april 2002 - 22:12 #8
Den er lidt skæv!

http://server.fiskeren.dyndns.dk/w3socket_record.asp
Avatar billede cms Nybegynder
28. april 2002 - 22:12 #9
altså der står ikke antal dage?
Avatar billede cms Nybegynder
28. april 2002 - 22:12 #10
prøv at ændre:
Uptime = trim(right(socket.buffer, len(socket.buffer) - instr(socket.buffer,"8859-1") - 5))
til
Uptime = trim(socket.buffer)
Avatar billede fiskerendk Nybegynder
28. april 2002 - 22:21 #11
den kan man ik fjerne for så starter den i starten af teksten og istarten er der information omkring serveren.. det har jeg fjernet via denne kode som angiver at den skal starte ved "8859-1" og frem af..

Uptime = trim(right(socket.buffer, len(socket.buffer) - instr(socket.buffer,"8859-1") - 5))
Avatar billede fiskerendk Nybegynder
28. april 2002 - 22:29 #12
cms > Du kan godt få flere point hvis du gerne vil ha det.. det skal bare virke snart hehe!
Avatar billede cms Nybegynder
28. april 2002 - 22:37 #13
prøv at udskrive Uptime efter
Uptime = trim(right(socket.buffer, len(socket.buffer) - instr(socket.buffer,"8859-1") - 5))
og lad mig se outputtet
Avatar billede fiskerendk Nybegynder
28. april 2002 - 22:43 #14
outputtet med "uptime = trim(right(socket.buffer, len(socket.buffer) - instr(socket.buffer,"8859-1") - 5))"
Her: days hours 5 mins
Avatar billede cms Nybegynder
28. april 2002 - 22:45 #15
nej jeg tænkte på outputtet direkte efter! altså uden min kodning.
blot:

<%
....
uptime = trim(right(socket.buffer, len(socket.buffer) - instr(socket.buffer,"8859-1") - 5))"
response.write uptime
%>
Avatar billede fiskerendk Nybegynder
28. april 2002 - 22:47 #16
uden din kode er outputtet "5d 6h 26m 5s"

normalt ville udbyttet være:
HTTP/1.1 200 OK Date: Wed, 24 Apr 2002 10:04:07 GMT Server: Apache/1.3.23 (Unix) Debian GNU/Linux PHP/4.1.2 Connection: close Content-Type: text/html; charset=iso-8859-1 5d 6h 26m 5s

hvis ikke koden "uptime = trim(right(socket.buffer, len(socket.buffer) - instr(socket.buffer,"8859-1") - 5))"  var deR!
Avatar billede cms Nybegynder
28. april 2002 - 23:00 #17
prøv at ændre dette:
'Uptime = "5d 6h 26m 5s"
Uptime = trim(right(socket.buffer, len(socket.buffer) - instr(socket.buffer,"8859-1") - 5))

til dette:
Uptime = "5d 6h 26m 5s"
'Uptime = trim(right(socket.buffer, len(socket.buffer) - instr(socket.buffer,"8859-1") - 5))

og se om det så virker
Avatar billede fiskerendk Nybegynder
28. april 2002 - 23:04 #18
Den virker perfekt men er der så også taget højde for at den skifter karatere? at resultatet ik er det samme!
Avatar billede cms Nybegynder
28. april 2002 - 23:04 #19
har du ik ICQ? lidt nemmere :) #145242780
Avatar billede cms Nybegynder
28. april 2002 - 23:06 #20
dette var blot en test.
Når vi manuelt sætter værdien til "5d 6h 26m 5s" virker mit script. Når vi bruger din kode med trim(right(.....)) virker det ikke, selvom du siger den kode giver værdien "5d 6h 26m 5s" - altså det samme.
Noget er der galt!
Avatar billede fiskerendk Nybegynder
28. april 2002 - 23:08 #21
Jo jeg har ICQ #101924185 har addet diG..!
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Persits.Upload Af bsn i ASP 9 17/09/202611:37 21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 10 25/06/202622:20 04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 12:28 slet gemte logind Af knuldefar1942 i Diverse
24/1020:40 Access udskrift mangler del af ramme om post. Af Uvanga i Access
24/1012:36 nulstille Samsung tablet T-580 Af fase i Tablet
23/1017:19 Kender I "Dropbox" ? Af Ikke-ekspert i Andet software
23/1016:28 Indsæt en kort video i Outlook 2024 Af ErikHg i E-mail programmer
White papers
Flere white papers »