تقييم الموضوع :
  • 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
اشكر لك مساعدتك منذ بدايتي بالمشروع.
اظن ارفع المشروع الديناميكي واصلح الباقي بعدين.
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة: @@أبورائد@@


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] استخراج رقم السطر rabeh.ram 2 69 08-11-16, 12:18 AM
آخر رد: rabeh.ram
  تصحيح الخطاء في السطر الذي لونه احمر تحته خط علي كعبي 1 94 17-09-16, 07:48 PM
آخر رد: silverlight
  اظهار الايقونه على gridview button حسب اذا كان يوجد بينات في السطر المعين Rabeea Qbaha 4 140 12-09-16, 08:48 PM
آخر رد: Rabeea Qbaha
  [VB.NET] كيف يتم اعطاء متغير قيمه يختارها المتسخدم ؟ jassim316 5 164 19-08-16, 08:40 PM
آخر رد: أسامة السالمي
  [VB.NET] كيفية وضع connection string متغير فيي target برنامج؟ Incubus 12 357 16-07-16, 12:58 PM
آخر رد: الوادي
  كيف اجعل السطر في الجريد فيو ينزل سطر ثاني SAJA KAREEM 0 120 14-03-16, 04:40 PM
آخر رد: SAJA KAREEM
  حمل اشاره حسابيه في متغير و تنفيذها rawon 3 166 06-02-16, 04:57 PM
آخر رد: rawon
  [VB.NET] كود لعرض السطر التالى فى ال textbox من ملف تكست alaa yosry 12 771 22-01-16, 01:42 AM
آخر رد: المتألق9
Rainbow كيف نحذف تعريف جهاز معين من ادارة الاجهزة ؟ وكيف نعمل scan for hardware changes ؟ ashraf.arafat 0 134 20-11-15, 02:52 PM
آخر رد: ashraf.arafat
  كيف اسوي متغير عام لكل الفورمات .. starosta 2 300 11-05-15, 10:44 AM
آخر رد: starosta

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


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