I'm reposting since the code is changed, er, simplified
Array Delete question
Basically when an html file is received there are 10 lines of header information:
HTTP/1.1 200 OK
Date: Mon, 08 May 2000 16:31:55 GMT
Server: Apache/1.3.6 (Unix) PHP/3.0.7 mod_perl/1.21 mod_frontpage/3.0.4.3
Last-Modified: Sun, 23 Apr 2000 03:47:23 GMT
ETag: "6828-21a0-3902724b"
Accept-Ranges: bytes
Content-Length: 8608
Keep-Alive: timeout=65, max=200
Connection: Keep-Alive
Content-Type: text/html
Here's the code:
[This message has been edited by Scott Turchin (edited May 08, 2000).]
Array Delete question
Basically when an html file is received there are 10 lines of header information:
HTTP/1.1 200 OK
Date: Mon, 08 May 2000 16:31:55 GMT
Server: Apache/1.3.6 (Unix) PHP/3.0.7 mod_perl/1.21 mod_frontpage/3.0.4.3
Last-Modified: Sun, 23 Apr 2000 03:47:23 GMT
ETag: "6828-21a0-3902724b"
Accept-Ranges: bytes
Content-Length: 8608
Keep-Alive: timeout=65, max=200
Connection: Keep-Alive
Content-Type: text/html
Here's the code:
Code:
Dim PageArray(1:10000) As String 'Wait for response/page etc Do Until Eof(hTcp) Incr lCount Tcp Line hTcp, PageArray(lCount) Replace Chr$(13) With $CRLF In PageArray(lCount) Loop Tcp Close hTcp ErrType = Err If ErrType Then GoTo CLEANUP 'Get the last modified date from inet server of page requested LastModDate = Right$(PageArray(4),Len(PageArray(4)) - 15) 'Done with header, now get rid of it Array Delete PageArray(10) For 10 Am I going about this wrong? Seems to me that I may be just deleting #10, when in fact I want to nuke #1 THROUGH 10 and shift all elements up.. Thanks Scott
[This message has been edited by Scott Turchin (edited May 08, 2000).]
Comment