- ベストアンサー
ASPで別サイトの内容を Stream に読み込みたい
- ASPで別サイトの内容をStreamに格納する方法をご教示いただけないでしょうか。
- 必要な情報を一行ずつ読み込んで抜き出す方法を調べていますが、うまくいきません。
- .NETは使用できないため、別の方法を探しています。
- goo608
- お礼率53% (7/13)
- Microsoft ASP
- 回答数2
- ありがとう数3
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
No.1です。 文字列として扱いたい場合はResponseBodyではなくResponseTextを使います。詳しくはリファレンス(英語ですが)を見て下さい。 http://msdn.microsoft.com/en-us/library/ms759148(VS.85).aspx あとはResponseTextをSplit関数などで改行毎に区切れば１行ずつ取得することも問題ないでしょう。
その他の回答 (1)
- Bonjin
- ベストアンサー率43% (418/971)
何がどう上手くいかないのかわからなければ誰も答えられないですよ。
補足
言葉足らずですみませんでした。 http://winofsql.jp/VA003334/asp051015025147.htm ここのWeb ページの中継表示ってところのソースなんですが <% Response.ExpiresAbsolute=#May 31,2000 23:59:59# Dim strMessage ' ********************************************************** ' MODEL ' ********************************************************** function DispPage() if Trim( Request.Form("url") ) = "" then strMessage = "URL を入力して下さい" Exit Function end if Set Http = Server.CreateObject("Msxml2.ServerXMLHTTP") on error resume next Call Http.Open("GET", Request.Form("url"), False ) if Err.Number <> 0 then strMessage = "URL に誤りがあります" Exit Function end if on error goto 0 Http.Send ← (1) Response.BinaryWrite Http.responseBody Response.End end function ' ********************************************************** ' CONTROL ' ********************************************************** if Request.Form( "send" ) = "表示" then Call DispPage() end if %> <!-- ********************************************************** VIEW *********************************************************** --> <HEAD> <META HTTP-EQUIV="Content-Type" CONTENT="text/html; CHARSET=Shift_JIS"> </HEAD> <FORM method=POST> 表示するWebページの URL <INPUT size=100 type=text name=url value="<%= Request.Form( "url" ) %>"> <INPUT type=submit name=send value="表示"> <HR> <%= strMessage %> </FORM> (1)のところでバイナリデータとしては取得できているみたいなのですが コレをブラウザに書き出さずに変数の中に文字列として格納して それを1行ずつ読み出し必要な値を取り出したいのですが どうやって文字列として取得すればいいのかがわかりません。 わかり辛かったらすみません。 どうか、よろしくお願いしますm(_ _)m
お礼
Bonjinさん ResponseTextを使うことで希望の動作をさせることに成功しました。 本当にありがとうございましたm(_ _)m