منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] اريد كود لقراءة المكتوب على ملف txt مرفوع على Dropbox - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] اريد كود لقراءة المكتوب على ملف txt مرفوع على Dropbox (/showthread.php?tid=12219)



اريد كود لقراءة المكتوب على ملف txt مرفوع على Dropbox - mohamedalmorshdy - 03-05-15

ارجو المساعدة


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

ويعرض المكتوب فى ملف txt على textbox


RE: اريد كود لقراءة المكتوب على ملف txt مرفوع على Dropbox - سعود - 03-05-15

ممكن تكتب رابط كمثال؟


RE: اريد كود لقراءة المكتوب على ملف txt مرفوع على Dropbox - mohamedalmorshdy - 03-05-15

(03-05-15, 09:44 PM)سعود كتب : ممكن  تكتب رابط كمثال؟

https://www.dropbox.com/s/lr3m1lj0ioyffom/msamiak.txt


RE: اريد كود لقراءة المكتوب على ملف txt مرفوع على Dropbox - hassan - 03-05-15

السلام عليكم اخوي استخدم هاذا

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


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


وشكرا


RE: اريد كود لقراءة المكتوب على ملف txt مرفوع على Dropbox - mohamedalmorshdy - 04-05-15

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

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


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


وشكرا

معذرة ولاكنى لم افهم 
هل يمكنك وضع هذا الرابط وجلب الكود كامل
https://www.dropbox.com/s/lr3m1lj0ioyffom/msamiak.txt


RE: اريد كود لقراءة المكتوب على ملف txt مرفوع على Dropbox - sami2015 - 04-05-15

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