PDA

View Full Version : سوال: باز کردن فایل متنی از اینترنت در تکست باکس



barnamenevisjavan
چهارشنبه 31 خرداد 1391, 13:15 عصر
سلام چطوری میتونم یه فایل متنی رو که توی اینترنت خودم اپلود کردم مستقیم توی برنامه توی تکسباکس یا لیبل نشون بدم؟بدون اینکه فایل رو اول دانلود کنم و بعد نشونش بدم؟کلا منظورم اینه برنامه فایل رو از اینترنت بخونه

alimanam
چهارشنبه 31 خرداد 1391, 13:40 عصر
با سلام

من قبلاً جواب سوال مشابه شما رو در یک تاپیک دادم به هر حال :


Imports System.Net
Imports System.IO

Public Class Form1

Private Function ShowRemoteStringFile(ByVal url As String) As String
Try
Dim req As WebRequest = WebRequest.Create(url)
Dim rsp As WebResponse = CType(req.GetResponse, HttpWebResponse)
Dim rdr As New StreamReader(rsp.GetResponseStream())
Dim result As String = rdr.ReadLine
Return result
Catch ex As Exception
MsgBox(Err.Description, MsgBoxStyle.Exclamation)
Return Nothing
End Try
End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = ShowRemoteStringFile("http://alimanam.persiangig.com/document/remoteinfo/sourcecode.txt")
End Sub

End Class


موفـــق باشید./

barnamenevisjavan
چهارشنبه 31 خرداد 1391, 14:31 عصر
یه سوال علی اقا من میخوام متن فارسی و انگلیسی باهم نشون داده بشن ولی برنامه یا فقط فارسی نشون میده یا فقط انگلیسی
برای حل این مشکل چیکار کنیم؟
وقتی توی فایل متنی فارسی و انگلیسی مینویسم و با فرمت Ansi ذخیره میکنم و اپلود میکنم فقط انگلیسی رو نشون میده و وقتی با فرمت Unicode و utf-8 ذخیره میکنم فقط فارسی نشون میده

koorosh-soft
چهارشنبه 31 خرداد 1391, 14:48 عصر
با چی آپلود میکنید ؟ Unicode باشه درست میشه دیگه !

barnamenevisjavan
چهارشنبه 31 خرداد 1391, 15:19 عصر
نه نشون نمیده توی سایت پرشین گیگ اپلود میکنم

alimanam
پنج شنبه 01 تیر 1391, 03:51 صبح
با سلام

مشکل از کد خط شماره 11 بود باید به این صورت مینوشتم . لطفا اصلاح کنید مشکل برطرف میشه .

Dim result As String = rdr.ReadToEnd

http://up98.org/upload/server1/02/j/bdqkmtbau04muhhlmo.jpg

موفق باشید./