تقييم الموضوع :
  • 3 أصوات - بمعدل 5
  • 1
  • 2
  • 3
  • 4
  • 5
[مشروع] [محدث-7-1-1435هـ]الناسخ الديناميكي للصفحات الاولى للمواضيع مع مرفقاتها
#1
Heart 
















هذه النسخة التي اسميتها الـ Master مع مافيها من النواقص والاخطاء.
لكن ان شاء الله ان تكون خالصة لوجهه

ارجو ان يجد احد فائدة من هذا المثال كما ارجو من يجد اخطاء يسهل عليه اصلاحها ان يصلحها ويعيد رفعها للفائدة العامة.
للاسف لم اتمكن من نسخ صور الجيل الثالث لكن المرفقات بسيطة وهي شبيهة الى حد ما لمرفقات النسخة Mybb على كل حال احاول تطبيق مشروع اخر باستخدام اداة المستعرض لانها توفر جهد ووقت كبيرين.
وشكرا جزيلا لوقتكم

















Master_Forum_Burner_By_Saud_1434_AH.zip


اشكر جميع الاخوة الذي ساعدوني باي معلومة.
================================================
التحديث رقم 1
تم حل مشكلة عدم ربط الصفحات بالاستايل المحلي بعد تحميله
افتح فورم Mybb_Forum.vb وضمن الحدث bgw1_DoWork اضف بعد
إقتباس :'انتهاء خيار تحميل المرفقات
وقبل
إقتباس : lbl.Text = "تجهيز محتوى الصفحة للحفظ"


الكود التالي
كود :
''تحميل ملفات السكريبت  والستايل
            lbl.Text = "تحميل ملفات السكريبت والستايل انتظر"
            Dim mytextbox As New TextBox
            With mytextbox
                .Text = page
                .Multiline = True
                .WordWrap = False
                .ScrollBars = ScrollBars.Both
            End With

            Dim textbox3 As New TextBox
            With textbox3
                .Multiline = True
                .WordWrap = False
                .ScrollBars = ScrollBars.Both
            End With





            For Each line In mytextbox.Lines
                Dim wc As New Net.WebClient
                wc.Encoding = Encoding.Default


                '<script type="text/javascript" src="http://vb4arb.com/vb/jscripts/prototype.js?ver=1603"></script>
                Dim stregjs As String = "(<script type=.text/javascript. src=.)(.*\.js)"
                Dim reg As New Regex(stregjs)
                Dim ama As Match = reg.Match(line)
                ' Dim fn As String = "http://vb4arb.com/vb/"
                Dim fn As String = mybb_forum_furl
                lbl.Text = "تحميل ملفات السكريبت"
                If ama.Success Then
                    If ama.Groups(2).Value.ToString.StartsWith("http://") = False Then
                        textbox3.AppendText(fn & ama.Groups(2).Value & vbNewLine)
                        ' MsgBox(fn & ama.Groups(2).Value & vbNewLine & IO.Path.GetFileName(ama.Groups(2).Value))

                        If IO.File.Exists(mybb_forum_lbldir & "\vb\" & IO.Path.GetFileName(ama.Groups(2).Value)) = False Then
                            wc.DownloadFile(fn & ama.Groups(2).Value, mybb_forum_lbldir & "vb/" & IO.Path.GetFileName(ama.Groups(2).Value))

                        End If


                    Else
                        textbox3.AppendText(ama.Groups(2).Value & vbNewLine)
                        ' MsgBox(ama.Groups(2).Value & vbNewLine & IO.Path.GetFileName(ama.Groups(2).Value))

                        If IO.File.Exists(mybb_forum_lbldir & "\vb\" & IO.Path.GetFileName(ama.Groups(2).Value)) = False Then
                            wc.DownloadFile(ama.Groups(2).Value, mybb_forum_lbldir & "vb/" & IO.Path.GetFileName(ama.Groups(2).Value))

                        End If





                    End If
                    ' line = line.Replace(ama.Groups(2).Value, "vb/" & IO.Path.GetFileName(ama.Groups(2).Value))
                    mytextbox.Text = mytextbox.Text.Replace(ama.Groups(2).Value, "vb/" & IO.Path.GetFileName(ama.Groups(2).Value))



                End If



                '<link type="text/css" rel="stylesheet" href="http://vb4arb.com/vb/cache/themes/theme5/css3.css" />
                Dim stregcss As String = "(<link type=.text/css. rel=.stylesheet. href=.)(.*\.css)"
                Dim regcss As New Regex(stregcss)
                Dim amacss As Match = regcss.Match(line)
                lbl.Text = "تحميل ملفات الستايل"
                If amacss.Success Then
                    textbox3.AppendText(amacss.Groups(2).Value & vbNewLine)
                    'MsgBox(amacss.Groups(2).Value & vbNewLine & IO.Path.GetFileName(amacss.Groups(2).Value.ToString.Trim))

                    ' line = line.Replace(amacss.Groups(2).Value, "vb/" & IO.Path.GetFileName(amacss.Groups(2).Value))
                    mytextbox.Text = mytextbox.Text.Replace(amacss.Groups(2).Value, "vb/" & IO.Path.GetFileName(amacss.Groups(2).Value))



                    If IO.File.Exists(mybb_forum_lbldir & "\vb\" & IO.Path.GetFileName(amacss.Groups(2).Value)) = False Then
                        wc.DownloadFile(amacss.Groups(2).Value, mybb_forum_lbldir & "vb/" & IO.Path.GetFileName(amacss.Groups(2).Value))

                    End If


                End If


            Next






            'انتهاء تحميل ملفات السكريبت والستايل
ايضا لاتنسى اضافة كود اضافة مجلد vb ليكون مكان ملفات الستايل والسكريبتات
ثم استبدل كلمة page بـ mytextbox في كود حفظ محتوى الصفحة
كود :
IO.File.WriteAllText(mybb_forum_lbldir & Val(mybb_forum_last_thread_number).ToString("00000") & "_.htm", mytextbox.Text, Encoding.Default)
فيه اضافات لم اجرب الاستغناء عنها مثل textbox3
}}}
#2
السلام عليكم ورحمة الله وبركاته


ما شاء الله لا قوة إلا بالله

أسأل الله أن يزيدك من فضله




السلام عليكم ورحمة الله وبركاته
}}}
تم الشكر بواسطة: ali.alfoly , سعود
#3
السلام عليكم ورحمة الله

ما شاء الله عليك اخى سعود

جزاك الله خيرا حاجة مفيدة

وشغل متعوب عليه

ربنا يجعلها صدقة جارية لك
}}}
تم الشكر بواسطة: سعود
#4
(28-10-13, 02:40 AM)@@أبورائد@@ كتب : السلام عليكم ورحمة الله وبركاته


ما شاء الله لا قوة إلا بالله

أسأل الله أن يزيدك من فضله




السلام عليكم ورحمة الله وبركاته
اللهم امين واياك اخي الكريم .
(28-10-13, 03:20 AM)ali.alfoly كتب : السلام عليكم ورحمة الله

ما شاء الله عليك اخى سعود

جزاك الله خيرا حاجة مفيدة

وشغل متعوب عليه

ربنا يجعلها صدقة جارية لك

اللهم امين واياك اخي الكريم
-------------------------------------
ارجو ان اتم المشروع الاخر فانه ايضا لو تحقق ساعتبره الحل.
http://vb4arb.com/vb/showthread.php?tid=729
}}}
تم الشكر بواسطة:
#5
المشروع التالي مكمل لهذا لمشروع
http://vb4arb.com/vb/showthread.php?tid=747

طبعا لو حبيت تشوف اخر مواضيع وتريد تحميلها فقط فانت مخير بين امرين:
الامر الاول تنقر خيار التحقق.
الاخر تكتب رقم اخر موضوع سابق في خانة اقدم موضوع
}}}
تم الشكر بواسطة:
#6
السلام عليكم ورحمة الله وبركاته

ما شاء الله لا قوة إلا بالله
بارك الله فيك أخي سعود

مشروع جميل جدا ومتميز بحق
ويضاف إلى قائمة إبداعاتك

شكرا جزيلا لك
}}}
تم الشكر بواسطة: سعود
#7
تم تحديث المثال والتحديث مذكور في المشاركة تحت الخط الاحمر
}}}
تم الشكر بواسطة: sooriaty03
#8
رجاء قم بالتعديل على مشروعك و ارفقه لنا كامل لأنني لا أتعامل مع .net و أود إستعمال برنامجك و شكرا لك أخي سعود
منقطع .. للدراسة Confused
}}}
تم الشكر بواسطة:
#9
إقتباس :لأنني لا أتعامل مع .net
اذا لن تستفيد من المشروع!
}}}
تم الشكر بواسطة:
#10
سأستفيد منه
أنا مجرد مبتدئ بهذه اللغة و سأحاول التعلم منه
هلا قلت لي ما دور البرنامج ؟ هل يقوم بنسخ المواضيع في حاسوبي أم ينقلها من منتدى vb4 الى vb أم مذا ؟
منقطع .. للدراسة Confused
}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Star [مشروع] كيفية نقل البيانات الموجودة في الجداول داخل قاعدة البيانات الاولى إلى قاعدة البيانات aliday03 5 1,148 26-03-23, 03:19 PM
آخر رد: sanyor77
Heart [مشروع] [* محدث*] تقسيم ملف و تجميعه مرة اخرى. سعود 9 1,851 28-08-22, 11:18 AM
آخر رد: سعود
  [مشروع] برنامج يساعد على التحفيظ[محدث هذا العام 2022] الاستغناء عن قواعد البيانات سعود 15 11,507 22-07-22, 10:44 AM
آخر رد: سعود
  [مشروع] [لا جديد] [محدث] البحث بكل الاقراص و المجلدات الممكنة سعود 5 1,813 01-01-22, 04:33 AM
آخر رد: سعود
  [مثال] (محدث) اداة كمبو بوكس دول العالم بمميزات رائعة ali.alfoly 19 14,626 01-02-18, 01:14 PM
آخر رد: YousefOkasha
Heart [مشروع] مثال بسيط للبحث بتويتر عن كلمة او جملة (محدث تم اعتماد نوعين من الروابط) سعود 1 3,132 28-07-16, 04:44 AM
آخر رد: الماجيك مسعد
  [مشروع] الناسخ للمنتدى تحميل المثال سعود 6 5,272 28-06-15, 08:43 PM
آخر رد: kamikaz17
  [مشروع] مثال بسيط تكملة لمشروع الناسخ الديناميكي سعود 2 3,919 05-11-13, 01:56 PM
آخر رد: sooriaty03

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم