منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : اريد كود لقراءة المكتوب على ملف txt مرفوع على Dropbox
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
ارجو المساعدة


اريد كود لقراءة المكتوب على ملف txt مرفوع على Dropbox

ويعرض المكتوب فى ملف txt على textbox
ممكن تكتب رابط كمثال؟
(03-05-15, 09:44 PM)سعود كتب : [ -> ]ممكن  تكتب رابط كمثال؟

https://www.dropbox.com/s/lr3m1lj0ioyffom/msamiak.txt
السلام عليكم اخوي استخدم هاذا

WebBrowser1.Document.GetElementById("").InnerText = TextBox1.Text


اضف ويب براوسييس واجلب الادي تبع التكسف الي في الرابط وضعه بين علامتي التنصيص


وشكرا
(03-05-15, 11:49 PM)hassan كتب : [ -> ]السلام عليكم اخوي استخدم هاذا

WebBrowser1.Document.GetElementById("").InnerText = TextBox1.Text


اضف ويب براوسييس واجلب الادي تبع التكسف الي في الرابط وضعه بين علامتي التنصيص


وشكرا

معذرة ولاكنى لم افهم 
هل يمكنك وضع هذا الرابط وجلب الكود كامل
https://www.dropbox.com/s/lr3m1lj0ioyffom/msamiak.txt
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
MsgBox(DropboxTextFile("https://www.dropbox.com/s/lr3m1lj0ioyffom/msamiak.txt"))
End Sub

Public Function DropboxTextFile(ByVal url As String) As String
Try
url = url.ToLower.Replace("https://www.dropbox.com/", "https://dl.dropboxusercontent.com/")
Return System.Text.Encoding.UTF8.GetString(New Net.WebClient().DownloadData(url))
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Function