منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم ورحمة الله وبركاته.
اخوتى اريد نسخ النص الذى يوجد فى آخرة مثلا صيغة معينة
أحددهخا انا يعنى مثلا لو كان أخره .jpg يتم نسخ كل الرابط
داخل التكست بوكس ولو كان مثلا فى نهايته .mp4 يتم نسخ كل الرابط الى التكست بوكس وهكذا.
انا اعرف الطريقة لنسخ اى شيئ فى بدايته كذا لكنى لا اعرف كيف انسخه لو كان فى نهايته كذا
جربت هذا لكنه لم يفلح بينسخ اى نص

PHP كود :

Dim link As String
link = Clipboard.GetText
            Me.TextBox1.Clear()
            If link.Contains(".png") Or (".jpg") Or (".rar") Or (".mp4") Or (".iso") Or (".gif") Or (".JPEG") Or (".zip") = True Then
                Me.TextBox1.Text = Clipboard.GetText
                
            End If 

طبعا عاوزها بكذا شرط يعنى exe او mp4 أو أو ....ما احدده انا

استخدم بدل contains كلمة startwith للبداية و endwith للنهاية

PHP كود :

       Dim link As String = TextBox1.Text
        If link.StartsWith("http://") And link.EndsWith(".mp4") Then

        End If 

(03-04-18, 02:45 AM)سعود كتب : [ -> ]استخدم بدل contains كلمة startwith للبداية و endwith للنهاية

PHP كود :

Dim link As String = TextBox1.Text If link.StartsWith("http://") And link.EndsWith(".mp4") Then End If

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

خلاص اخى سعود عملتها بفضل الله شكرا لك وجزاك الله كل الخيرات لآنك قربت لى الفكرة جدا

كود :

Dim link As String = Clipboard.GetText

            Me.TextBox1.Clear()

            If link.StartsWith("https://") And link.EndsWith(".exe") Then

                Me.TextBox1.Text = Clipboard.GetText

            End If

السلام عليكم و رحمة الله و بركاته
اخي الكريم ابو روضة,
الافكار متقاربة و تعتمد في جلها على طرق التعامل مع النصوص و باي مكتبة كانت .
لدي مربع نص يحتوي على عدد من الروابط (نص عشوائي) (TextBox1) و اريد الحصول على الروابط بداخله و نسخها الى (ListBox1).

PHP كود :

       Dim Str1 As String = TextBox1.Text
        Str1 = Str1.Replace("http", "*http")
        Dim Str2 As String() = Str1.Split({"*"}, StringSplitOptions.RemoveEmptyEntries)

        For Each Str As String In Str2
            If Str.StartsWith("http") Then
                ListBox1.Items.Add(Str)
            End If
        Next 

جلب النص في داخل (TextBox1).
وضع فاصل (*) بين الروابط بدلالة (http).
نسخ الروابط الى مصفوفة نصية بدلالة الفاصل (*)
المرور على عناصر المصفوفة و نسخها الى (ListBox)

(03-04-18, 03:48 PM)ابو ليلى كتب : [ -> ]السلام عليكم و رحمة الله و بركاته
اخي الكريم ابو روضة,
الافكار متقاربة و تعتمد في جلها على طرق التعامل مع النصوص و باي مكتبة كانت .
لدي مربع نص يحتوي على عدد من الروابط (نص عشوائي) (TextBox1) و اريد الحصول على الروابط بداخله و نسخها الى (ListBox1).

PHP كود :

Dim Str1 As String = TextBox1.Text Str1 = Str1.Replace("http", "*http") Dim Str2 As String() = Str1.Split({"*"}, StringSplitOptions.RemoveEmptyEntries) For Each Str As String In Str2 If Str.StartsWith("http") Then ListBox1.Items.Add(Str) End If Next

جلب النص في داخل (TextBox1).
وضع فاصل (*) بين الروابط بدلالة (http).
نسخ الروابط الى مصفوفة نصية بدلالة الفاصل (*)
المرور على عناصر المصفوفة و نسخها الى (ListBox)

الله يسعدك دنيا وآخرة اخى العزيز أبو ليلى ويبارك بعمرك
ويكرم الأخ الأستاذ سعود يارب ويكرم كل من بالمنتدى

دا مثال تحميل صور من جوجل

بيجيب كل روابط الصور فله

كود :

On Error Resume Next

        For Each ele As HtmlElement In WebBrowser1.Document.Links

            Dim eletarget As String = ele.GetAttribute("href")

             If eletarget.IndexOf("http") >= 0 Then

            Dim str2 As String = eletarget.Substring((eletarget.IndexOf("http") - 7))

                    pc = ((str2.Substring(0, str2.IndexOf("&img")) & ChrW(3)))

                End If

                no = pc.Replace("http//", "")

                f ((pc.IndexOf("http") <> -1) AndAlso (pc.IndexOf(".gif") <> -1)) Then

                        pc = pc.Replace("/ihttp", "http")

                  listbox(pc)     

End If

                    If ((pc.IndexOf("http") <> -1) AndAlso (n.IndexOf(".ico") <> -1)) Then

                        pc = pc.Replace("/ihttp", "http")

                                               listbox.Add(pc)

                                        End If

            End If

        Next

              Return

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

ابو روضة

سعود

ابو روضة

ابو ليلى

ابو روضة

adel2000