تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
نسخ نص فى اخره صيغة معينة
#1
السلام عليكم ورحمة الله وبركاته.
اخوتى اريد نسخ النص الذى يوجد فى آخرة مثلا صيغة معينة
أحددهخا انا يعنى مثلا لو كان أخره .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 أو أو ....ما احدده انا
الرد }}}
تم الشكر بواسطة:
#2
استخدم بدل contains كلمة startwith للبداية  و endwith للنهاية
PHP كود :
       Dim link As String TextBox1.Text
        If link
.StartsWith("http://") And link.EndsWith(".mp4"Then

        End 
If 
الرد }}}
#3
(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
الرد }}}
تم الشكر بواسطة: ابو ليلى
#4
السلام عليكم و رحمة الله و بركاته
اخي الكريم ابو روضة,
الافكار متقاربة و تعتمد في جلها على طرق التعامل مع النصوص و باي مكتبة كانت .
لدي مربع نص يحتوي على عدد من الروابط (نص عشوائي) (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)
اللهم لك الحمد كما ينبغي لجلال وجهك و عظيم سلطانك
في حل و ترحال
الرد }}}
#5
(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)
الله يسعدك دنيا وآخرة اخى العزيز أبو ليلى ويبارك بعمرك
ويكرم الأخ الأستاذ سعود يارب ويكرم كل من بالمنتدى
الرد }}}
تم الشكر بواسطة:
#6
دا مثال تحميل صور من جوجل

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

كود :
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
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية جمع أرقام عمود فى الداتا جريد فيو بناءاً على بيانات معينة heem1986 5 225 25-02-24, 11:26 PM
آخر رد: heem1986
  الحذف للسجل بشروط معينة محمد خيري 4 362 05-01-24, 04:46 AM
آخر رد: محمد خيري
  التوجه الى جملة معينة اسلام الكبابى 2 298 10-08-23, 06:49 PM
آخر رد: اسلام الكبابى
  [سؤال] حد الفورم السفلي كيف نعرف ان اداة معينة وصلته سعود 2 430 22-03-23, 08:08 PM
آخر رد: سعود
  [VB.NET] تحديد أرقم معينة أحمد الغرباوي 3 697 15-10-22, 01:57 PM
آخر رد: أحمد الغرباوي
  ضرب أعمدة معينة في صف فى الداتاجريد فيو مع أعمدة في الصف اللى قبلها alessam4pro 3 909 19-06-22, 12:05 PM
آخر رد: alessam4pro
  سؤال في الانتقال الى خلية معينة في داتا قرايد فيو strongriseman 2 922 05-06-22, 07:54 PM
آخر رد: strongriseman
  [سؤال] عمل جمع لقيمة معينة في الكريستال ريبورت عاشق الرسول 1 1,031 18-04-22, 04:58 PM
آخر رد: عاشق الرسول
  مساعدة في تعديل صيغة التاريخ العطر الرايق 1 1,044 14-03-22, 05:35 AM
آخر رد: ابراهيم ايبو
  معادلة عد كلمة معينة داخل اكثر من تكست بوكس ابو العلاء 11 2,817 14-11-21, 03:47 PM
آخر رد: kebboud

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


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