منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
نسخ نص فى اخره صيغة معينة - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : نسخ نص فى اخره صيغة معينة (/showthread.php?tid=24405)



نسخ نص فى اخره صيغة معينة - ابو روضة - 03-04-18

السلام عليكم ورحمة الله وبركاته.
اخوتى اريد نسخ النص الذى يوجد فى آخرة مثلا صيغة معينة
أحددهخا انا يعنى مثلا لو كان أخره .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 أو أو ....ما احدده انا


RE: نسخ نص فى اخره صيغة معينة - سعود - 03-04-18

استخدم بدل contains كلمة startwith للبداية  و endwith للنهاية
PHP كود :
       Dim link As String TextBox1.Text
        If link
.StartsWith("http://") And link.EndsWith(".mp4"Then

        End 
If 



RE: نسخ نص فى اخره صيغة معينة - ابو روضة - 03-04-18

(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



RE: نسخ نص فى اخره صيغة معينة - ابو ليلى - 03-04-18

السلام عليكم و رحمة الله و بركاته
اخي الكريم ابو روضة,
الافكار متقاربة و تعتمد في جلها على طرق التعامل مع النصوص و باي مكتبة كانت .
لدي مربع نص يحتوي على عدد من الروابط (نص عشوائي) (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)


RE: نسخ نص فى اخره صيغة معينة - ابو روضة - 03-04-18

(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)
الله يسعدك دنيا وآخرة اخى العزيز أبو ليلى ويبارك بعمرك
ويكرم الأخ الأستاذ سعود يارب ويكرم كل من بالمنتدى



RE: نسخ نص فى اخره صيغة معينة - adel2000 - 04-04-18

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

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

كود :
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