Re: format a retrieved text file

I just learned that it is possible to grab a text file from another
site and display the data on my own site, however when I display the
data it does not format it correctly. Can anyone please point me in
the direction of a tutorial or help me with the code below.

John

<%
Response.Buffer = True
Dim objXMLHTTP, xml


Set xml = Server.CreateObject("Microsoft.XMLHTTP")

xml.Open "GET",
"http://iwin.nws.noaa.gov/pub/data/text/FZUS53/KCLE.TXT", False

xml.Send

Response.Write xml.responseText

Set xml = Nothing
%>

This is a sample of what I am getting back
FZUS61 KCLE 291114 AAA GLFLE LEZ160-291400- OPEN LAKE FORECAST FOR
LAKE ERIE...UPDATED NATIONAL WEATHER SERVICE CLEVELAND OH 700 AM EDT
SUN JUN 29 2003 UPDATED FOR SHOWERS LAKE ERIE FORECAST BEYOND FIVE
NAUTICAL MILES FROM SHORE .SYNOPSIS...A COLD FRONT NORTHWEST OF LAKE
ERIE WILL MOVE SOUTHEAST ACROSS THE LAKE THIS AFTERNOON AND EARLY THIS
EVENING. HIGH PRESSURE 30.10 INCHES OVER THE CENTRAL PLAINS WILL BUILD
ACROSS THE LAKE BEHIND THE FRONT MONDAY AND TUESDAY. THE HIGH WIL

this is what i get if i connect to the page directly (and what I would
like to see with my results

FZUS61 KCLE 291114 AAA
GLFLE
LEZ160-291400-


OPEN LAKE FORECAST FOR LAKE ERIE...UPDATED
NATIONAL WEATHER SERVICE CLEVELAND OH
700 AM EDT SUN JUN 29 2003

UPDATED FOR SHOWERS

LAKE ERIE FORECAST BEYOND FIVE NAUTICAL MILES FROM SHORE

SYNOPSIS
A COLD FRONT NORTHWEST OF LAKE ERIE WILL MOVE SOUTHEAST
ACROSS THE LAKE THIS AFTERNOON AND EARLY THIS EVENING. HIGH
PRESSURE 30.10 INCHES OVER THE CENTRAL PLAINS WILL BUILD ACROSS THE
LAKE BEHIND THE FRONT MONDAY AND TUESDAY. THE HIGH WILL MOVE EAST
OF THE AREA WEDNESDAY BUT SHOULD CONTINUE TO INFLUENCE WEATHER OVER
THE LAKE THROUGH THURSDAY.

"Robb Meade" wrote ...

> the results came out fine...

correction - it looked like it - but then I changed the contents of the text
file and now it isnt...its definately something to do with the carriage
returns!

Sorry :(

It is working now, thanks for the help
http://www.ohioanglers.com/nearshore.asp

Not sure why the <xmp> is showing up at the beginning of the file but
I will mess with it.

John wrote on 29 jun 2003 in microsoft.public.inetserver.asp.general:

> I just learned that it is possible to grab a text file from another
> site and display the data on my own site, however when I display the
> data it does not format it correctly. Can anyone please point me in
> the direction of a tutorial or help me with the code below.
>
> John
>
> <%
> Response.Buffer = True
> Dim objXMLHTTP, xml
>
>
> Set xml = Server.CreateObject("Microsoft.XMLHTTP")
>
> xml.Open "GET",
> "http://iwin.nws.noaa.gov/pub/data/text/FZUS53/KCLE.TXT", False
>
> xml.Send
>
> Response.Write xml.responseText
>
> Set xml = Nothing
> %>
>

<%
Response.Buffer = True
url="http://iwin.nws.noaa.gov/pub/data/text/FZUS53/KCLE.TXT"
Set xml = Server.CreateObject("Microsoft.XMLHTTP")
xml.Open "GET",url, False
xml.Send
t=xml.responseText
t=replace(t,vbcr&vbcr,vbcr)
Response.Write "<pre>"&t&"</pre>"
Set xml = Nothing
%>


--
Evertjan.
The Netherlands.
(Please change the x'es to dots in my emailaddress)

"John" wrote..

> With this last piece you posted are you still reading from a text file
> on your local server or reading from the remote url?

Hi John,

I tried it initially with my local txt file, and then changed the code back
to what you'd submitted and added the 2 lines I mentioned- this was then
using your remote file, and it spaced it all out correctly as you wanted
etc.

Robb