PDA

View Full Version : خواندن یک فایل تکست از روی یک سایت دیگه



dr.pantagon
شنبه 21 اردیبهشت 1387, 23:28 عصر
سلام
می خواستم بودنم چطور می شه یک فایل تکست رو از روی یک سایت دیگه خوند و اون رو توی یک textbox گذاشت
مثلا سایت من 127.0.0.1 است ومی خوام یک فایل رو به این آدرس بخونم
200.0.0.1/1.txt
و توی یک textbox بریزم
تشکر

shahab_ksh
یک شنبه 22 اردیبهشت 1387, 00:13 صبح
اگه کلا هر دو سایت شما دست شماست وب سریس ها رو برای همچین مواقعی بدرد میخوره هرچند برای مسله بالای شما هم راه وجود داره اما وب سرویس ها برای این کارن

dr.pantagon
یک شنبه 22 اردیبهشت 1387, 00:26 صبح
نه متاسفانه فقط یکی از سایت ها رو دسترسی دارم و باید از هاست دیگر این فایل تکست را فراخوانی کنم

لطفا اگر می شه بگید چه جوری اگر شد کد نمومه بزارید به هر زبانی فرق نمی کنه
VB.NET , C#

shahab_ksh
یک شنبه 22 اردیبهشت 1387, 01:04 صبح
C#



WebResponse result = null;
string output = "";
try
{
WebRequest req = WebRequest.Create("http://www.website.com/filename.txt");
result = req.GetResponse();
Stream ReceiveStream = result.GetResponseStream();
Encoding encode = System.Text.Encoding.GetEncoding("utf-8");
StreamReader sr = new StreamReader(ReceiveStream, encode);
Char[] read = new Char[256];
int count = sr.Read(read, 0, read.Length);
while (count > 0)
{
String str = new String(read, 0, count);
output += str;
count = sr.Read(read, 0, read.Length);
}
}
catch (Exception)
{
Response.Write("get failed");
}
if (result != null)
{
result.Close();
}
Response.Write(output);




VB



Dim result As WebResponse = Nothing
Dim output As String = ""
Try
Dim req As WebRequest = WebRequest.Create("http://www.website.com/filename.txt")
result = req.GetResponse()
Dim ReceiveStream As Stream = result.GetResponseStream()
Dim encode As Encoding = System.Text.Encoding.GetEncoding("utf-8")
Dim sr As New StreamReader(ReceiveStream, encode)
Dim read As Char() = New Char(255) {}
Dim count As Integer = sr.Read(read, 0, read.Length)
While count > 0
Dim str As New String(read, 0, count)
output += str
count = sr.Read(read, 0, read.Length)
End While
Catch generatedExceptionName As Exception
Response.Write("get failed")
End Try
If result IsNot Nothing Then
result.Close()
End If
Response.Write(output)

dr.pantagon
یک شنبه 22 اردیبهشت 1387, 18:14 عصر
یک سوال برای این کار شما کامپوننت خاصی رو ایمپورت می کنین ؟
چون روی سیستم من اصلا WebResponse رو نمیشناسه
من از VS2003 استفاده می کنم اگر اهمیت داره تو این موضوع

twelve
یک شنبه 22 اردیبهشت 1387, 20:12 عصر
به ورژن ربطی نداره :


Imports System.Net