+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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 IfRE: نسخ نص فى اخره صيغة معينة - ابو ليلى - 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