[عبدالرحمن المكاوي]

السلام عليكم اخواني

اولا انا قمت بعمل برنامج واشتغل تمام بدون اي مشاكل علي جهازي
فقمت بنشره اليوم وفوجأت بالمشكلة الموجودة بالصورة قمت بالبحث عن حل وجدت الحل لكن الحل ينفع في بعد الحواسيب
والباقي لا فانا اريد حالا جذريا لهذا المشكل

[محمد كريّم]

اضغط Details لنعرف المشكلة

[سعود]

الرسالة تعني ( المسار المحدد غير مدعوم).

[أبو نوره]

مرحبا اخى

مثل ما ذكر اخى سعود، خطا في تنسيق المسار (قد يحتوي رموز غير مقبوله في المسار)
   

ومثل ما ذكر اخى محمد، لو ضغطت Details لعرضت تفاصيل اكثر عن المشكله

[عبدالرحمن المكاوي]

تفضلوا اسم البرنامج وانا مشفر البرنامج ايضا ONE Family.exe

[سعود]

الموضوع إذا يخص Webclient
هل من الممكن تعمل مثال بسيط لنفس الكود لمعرفة الخطا؟
عموما الخطا بالمسار المحدد لحفظ الملف.

[asadtaif]

ضيف ملف قاعدة البيانات إلى ملف البرنامج وجرب شغله

[عبدالرحمن المكاوي]

هذا هو الكود

كود :

 dt.Columns.AddRange(New DataColumn() {New DataColumn("title"), New DataColumn("section"), New DataColumn("link")})

       Dim wc As New Net.WebClient()
       Dim src As String = wc.DownloadString("http://arab-live.ucoz.net/Test.txt")

[سعود]

(16-09-17, 02:17 PM)عبدالرحمن المكاوي كتب : هذا هو الكود

كود :

 dt.Columns.AddRange(New DataColumn() {New DataColumn("title"), New DataColumn("section"), New DataColumn("link")})

       Dim wc As New Net.WebClient()
       Dim src As String = wc.DownloadString("http://arab-live.ucoz.net/Test.txt")

الخطا يخص الـPath المحلي لحفظ الملف او النص.
اكمل الكود بعد تحميل النص من الرابط ماذا كتبت؟

[عبدالرحمن المكاوي]

كود :

    dt.Columns.AddRange(New DataColumn() {New DataColumn("title"), New DataColumn("section"), New DataColumn("link")})

       Dim wc As New Net.WebClient()
       Dim src As String = wc.DownloadString("http://arab-live.ucoz.net/Test.txt")

       For Each str As String In src.Split(vbLf) '
           Dim splt() = Split(str, ",")
           Dim r As DataRow = dt.NewRow
           r.Item("title") = splt(0)
           r.Item("section") = splt(1)
           r.Item("link") = splt(2)
           dt.Rows.Add(r)
       Next

       TextBox1_TextChanged(Nothing, Nothing)
       Dim q = From x As DataRow In dt Select x.Item("section") Distinct
       ComboBox1.Items.AddRange(q.ToArray)
       ComboBox1.SelectedIndex = 0
       TextBox1.Focus()