تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] كيف نحذف السطر الجديد من متغير ممتليء بالنصوص
#1
كيف نحذف السطر الجديد من متغير ممتليء بالنصوص
كود :
Do Until b.CancellationPending = True Or vbulletin_forum_last_thread_number < vbulletin_forum_oldest_thread_number


            Dim url As String = vbulletin_forum_furl & vbulletin_forum_threadurl & vbulletin_forum_last_thread_number
            turl.Text = url
            Dim page As String = vbulletin_loadpage(url)
            '(<img src=")(.*\.gif|png|jpg|jpeg)(.*/>)
            Dim regstr As String = "(<img src="")(.*\.gif|png|jpg|jpeg)(.*/>)"
            Dim reg As New Regex(regstr)
            Dim mcoll As MatchCollection = reg.Matches(page)
            progpage.Maximum = mcoll.Count

            Dim all As String = ""
            Dim wc As New Net.WebClient
            wc.Encoding = Encoding.Default
            wc.Headers.Add("cookie", fillvbulletincookie)

            Dim m As String = ""
            For i = mcoll.Count - 1 To 0 Step -1
                m &= mcoll(i).Groups(2).Value & vbNewLine
            Next
          
            Dim h As String = ""
            For Each t In m.Split("""")
                ' TextBox1.AppendText(t & vbNewLine)
                h &= t & vbNewLine
            Next
            For Each z In h.Split("")
                all &= (z & vbNewLine)
            Next
            Dim fall As String = ""
            For Each p In all.Split(vbNewLine)
                If p.Trim.Replace(" ", "").StartsWith("images") Then
                    fall &= (p & vbNewLine)

                End If
            Next
            For Each t In fall.Split(vbNewLine)
                If t.ToString.Trim.Replace(" ", "") = "" Then
                Else
                    t = t.Replace(vbNewLine, "")
                    t = t.Replace(" ", "")

                    Dim nt As String = ""
                    nt = t.Replace(vbNewLine, vbNullString)
                    nt = t.Replace(" ", vbNullString)
                    MsgBox(nt)

                    Dim pn As String = IO.Path.GetFileName(nt)
                    'wc.DownloadFile(vbulletin_forum_furl & t, "images\" & pn)


                End If


            Next
        Loop

احاول الحصول على كل الصور لكن بدون جدوى
ارجو النظر في الكود ومساعدتي في خله
لانه اما اسمي ملفين او سطر اعلى واسفل الرابط اكتشفت ذلك حين اسنده الى مربع نص
الرد }}}
تم الشكر بواسطة: @@أبورائد@@
#2
السلام عليكم ورحمة الله وبركاته


ما عرفت أطبق الكود لتجربته وهكذا سؤال لا أعتقد يصلح طرحة بشكل عام في المنتدى، هذا يصلح في الشات مع أشخاص متابعين معك جميع المشروع.


السلام عليكم ورحمة الله وبركاته
الرد }}}
تم الشكر بواسطة: سعود
#3
عندي كود يحمل صور الصفحة بنسبة70 بالمية لكن طمعت اسحب كل الصورSmile
اشكر لك مساعدتك منذ بدايتي بالمشروع.
اظن ارفع المشروع الديناميكي واصلح الباقي بعدين.
الرد }}}
تم الشكر بواسطة: @@أبورائد@@


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ارقام فوق السطر وتحته Abo Louay 2 192 27-01-24, 11:06 PM
آخر رد: Abo Louay
  اختيار عنصر معين من قائمة تتولد فيها ازار عددها متغير atefkhalf2004 16 1,167 22-01-23, 12:56 AM
آخر رد: atefkhalf2004
  اعلان عن متغير عام khataan88 0 445 28-05-22, 06:48 AM
آخر رد: khataan88
  [سؤال] مشكله في متغير من نوع انتجر حسن الجلب 1 907 20-12-21, 11:39 PM
آخر رد: Jounior_P
  [VB.NET] الكود الجديد لا يعمل بالبرنامج بعد نقل البرنامج الى جهاز اخر فيجوال بيسك 2017 mustafa mohamed 3 1,563 30-11-21, 07:37 AM
آخر رد: E100
  مساء الخير عليكم جيعا ممكن سؤال في متغير اليوم السابع 1 1,008 27-06-21, 11:02 PM
آخر رد: ابو انس
  السلام عليكم اخوكم واقع في مشكله بسبب متغير ومحتاج منقشتكم اليوم السابع 6 1,768 07-02-21, 03:25 AM
آخر رد: اليوم السابع
  [VB.NET] اضافة ازرار حسب عدد متغير في قاعدة البيانات Ad Heart 5 2,263 16-11-20, 12:10 AM
آخر رد: sherf
  ي جماعه دلوقتي لما بنقل الداتا للعميل اسم السيرفر بيبقي متغير ف الربط اللي انا عملو م Hosam Ashraf Elwakel 2 1,406 25-08-20, 02:56 AM
آخر رد: Rabeea Qbaha
  لدي سؤال في زياده ونقص متغير اليوم السابع 1 1,048 05-08-20, 06:25 PM
آخر رد: Anas Mahmoud

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


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