ASPで別サイトの内容を Stream に読み込みたい

解決済

質問者：goo608
質問日時：2008/06/20 00:49
回答数：2件

はじめましてASPで開発をしています。
別サイトのタグを文字列としてstreamに格納したいのですが
なかなか上手くいきません。

変数の中に格納して一行ずつ読み出し
必要なところだけを抜き出そうと
以下のサイトを見ていろいろとやってはいるのですが…。

http://winofsql.jp/VA003334/useXML060306183105.htm
http://hp.vector.co.jp/authors/VA003334/ado/ados …
http://support.microsoft.com/kb/296772/ja

.netはしようできません。
どなたかご存知の方いましたら
よろしくお願いします。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (2件)

No.1

回答者： Bonjin
回答日時：2008/06/20 22:15

何がどう上手くいかないのかわからなければ誰も答えられないですよ。

この回答への補足

言葉足らずですみませんでした。
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

%>


<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

補足日時：2008/06/21 03:00

通報する

- 0
- 件

通報する

No.2ベストアンサー

回答者： Bonjin
回答日時：2008/06/21 10:57

No.1です。

文字列として扱いたい場合はResponseBodyではなくResponseTextを使います。詳しくはリファレンス(英語ですが)を見て下さい。
http://msdn.microsoft.com/en-us/library/ms759148 …

あとはResponseTextをSplit関数などで改行毎に区切れば１行ずつ取得することも問題ないでしょう。