|
[سؤال] اريد كود لقراءة المكتوب على ملف txt مرفوع على Dropbox
|
03-05-15, 08:46 PM
(آخر تعديل لهذه المشاركة : 03-05-15, 08:48 PM {2} بواسطة mohamedalmorshdy.)
ارجو المساعدة
اريد كود لقراءة المكتوب على ملف txt مرفوع على Dropbox ويعرض المكتوب فى ملف txt على textbox  ............................ مع تحياتى ارجو ان يعجبكم الموضوع ........................................... 
03-05-15, 09:44 PM
ممكن تكتب رابط كمثال؟
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء، اللهم أصلح لي ديني الذي هو عصمة أمري، وأصلح لي دنياي التي فيها معاشي، وأصلح لي آخرتي التي فيها معادي، واجعل الحياة زيادة لي في كل خير، واجعل الموت راحة لي من كل شر
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي جدي وهزلي وخطأي وعمدي وكل ذلك عندي، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
03-05-15, 10:43 PM
(03-05-15, 09:44 PM)سعود كتب : ممكن تكتب رابط كمثال؟ https://www.dropbox.com/s/lr3m1lj0ioyffom/msamiak.txt ............................ مع تحياتى ارجو ان يعجبكم الموضوع ........................................... 
المشاركات : 730
المواضيع 66 الإنتساب : Apr 2014 السمعة : 25 الشكر: 1619
تم شكره 3502 مرات في 239 مشاركات 
03-05-15, 11:49 PM
السلام عليكم اخوي استخدم هاذا
WebBrowser1.Document.GetElementById("").InnerText = TextBox1.Text اضف ويب براوسييس واجلب الادي تبع التكسف الي في الرابط وضعه بين علامتي التنصيص وشكرا
الحمد لله رب العالمين على كل شي
تم الشكر بواسطة: mohamedalmorshdy
04-05-15, 12:05 AM
(03-05-15, 11:49 PM)hassan كتب : السلام عليكم اخوي استخدم هاذا معذرة ولاكنى لم افهم هل يمكنك وضع هذا الرابط وجلب الكود كامل https://www.dropbox.com/s/lr3m1lj0ioyffom/msamiak.txt ............................ مع تحياتى ارجو ان يعجبكم الموضوع ........................................... 
04-05-15, 02:16 AM
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 |
|
|
