0

以下のようにサーバーからテキスト ファイルを読み取っていますが、別のサーバーから txt ファイルを読み取るにはどうすればよいでしょうか? 機能させるにはどうすればよいですか？

Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set f=fs.OpenTextFile(Server.MapPath("files.txt"), 1)

do while f.AtEndOfStream = false
Response.Write(f.ReadLine)
Response.Write("<br>")
loop

f.Close
Set f=Nothing
Set fs=Nothing

これは正常に機能していますが、files.txt をhttp://www.somedomain.com/files.txtに変更したい

ご意見ありがとうございます。

4

2 に答える 2

0

この関数を使用してテキスト データを取得します (ここから取得):

Function GetTextFromUrl(url)

  Dim oXMLHTTP
  Dim strStatusTest

  Set oXMLHTTP = CreateObject("MSXML2.ServerXMLHTTP.3.0")

  oXMLHTTP.Open "GET", url, False
  oXMLHTTP.Send

  If oXMLHTTP.Status = 200 Then

    GetTextFromUrl = oXMLHTTP.responseText

  End If

End Function

Dim sResult : sResult = GetTextFromUrl("http://www.somedomain.com/files.txt")
于 2013-04-29T09:04:47.293 に答える