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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم لغة الفيجوال بيسك VB.NET > قسم اسئلة VB.NET > سؤال حول اقتطاع الجزء المختار
نسخة كاملة : سؤال حول اقتطاع الجزء المختار
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .

سعود

20-10-13, 01:35 PM
لو اردنا اخذ الجزئية التالية:
http://vb4arb.com/vb/images/twilight/logo.png

من النص التالي:

<img src="http://vb4arb.com/vb/images/twilight/logo.png
فماذا نستخدم

sooriaty03

20-10-13, 02:10 PM
السلام عليكم ورحمة الله وبركاته

إذا كانت لديك جملة وتريد اقتطاع هذا الجزء فاستعمل الكود التالي:
كود :
Dim Link As String = "<img src=""http://vb4arb.com/vb/images/twilight/logo.png"
        Link = Link.Substring(Link.IndexOf("""") + 1)

أما إذا كانت هذه الجملة ناتجة عن عملية Regex
فاستعمل الكود التالي:

كود :
Dim Page As String = "<img src=""http://vb4arb.com/vb/images/twilight/logo.png"
        Dim Reg As New Regex(""".*")
        Dim Ma As Match = Reg.Match(Page)
        Dim Link As String = Page.Substring(Ma.Index + 1, Ma.Length - 1)

بمعنى أنك ستستعمل الأمرين

Ma.Index ووظيفته مؤشر لبداية النص المطلوب من الجملة
Ma.Length ووظيفته طول النص المطلوب

kslawy

20-10-13, 02:31 PM
بطريقة أخرى :

PHP كود :
Dim mch As Match = Regex.Match("<img src=""http://vb4arb.com/vb/images/twilight/logo.jpg", "http://vb4arb\.com/vb/images/twilight/logo\.(png|jpg|gif)", RegexOptions.IgnoreCase)
        If mch.Success Then
            MsgBox(mch.Value)
        End If 

طريقة أخرى لاستخراج أي رابط انظر للتعديل في الباترن :

PHP كود :
Dim mch As Match = Regex.Match("<img src=""http://vb4arb.com/vb/images/twilight/logo.jpg", "http:.*\.(png|jpg|gif)", RegexOptions.IgnoreCase) 

سعود

20-10-13, 02:36 PM
اذا استخلصنا روابط بالمعيار التالي
(<img src=).*\.(png|gif|jpg|jpeg)
ينتج عنه نص كيف نتعامل معه لكي نحمل الصورة
لان فيه روابط كاملة وفيه فقط للمجلد الخاص بالصور
ممتاز الان تمت الفكرة بالنسبة للرابط الكامل للصورة لكن كيف مع الرابط الجزئي مثل

/images/anyimage.png

sooriaty03

20-10-13, 03:03 PM
السلام عليكم ورحمة الله وبركاته

يجب التأكد بجملة شرطية
فإذا كان لا يبدأ بكلمة http
فإذن تضيف إليها
كود :
http://vb4arb.com/vb

سعود

20-10-13, 06:00 PM
طيب سؤال اخر
لو حبيت اخذ فقط اسم الملف يعني بعد اخر شرطة مائلة كيف؟؟

kslawy

20-10-13, 09:28 PM
السلام عليكم ورحمة الله وبركاته

PHP كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim mch As Match = Regex.Match("<img src=""http://vb4arb.com/vb/images/twilight/logo.jpg", "http:.*\.(png|jpg|gif)", RegexOptions.IgnoreCase)
        If mch.Success Then
            '' MsgBox(mch.Value)
            MsgBox(IO.Path.GetFileName(mch.Value))
        End If
    End Sub 

توجد طريقة أخرى وذلك بتقسيم النص حسب الشرطة المائلة ثم أخذ آخر جزء .

سعود

21-10-13, 03:48 AM
بارك الله فيك اخوي
لكن بعد استخلاص الرابط يعني رابط عادي مثل التالي:
"http://vb4arb.com/vb/images/twilight/logo.jpg
اتوقع انها سهلة
هل الكود التالي صحيح لو كان الرابط مستخلص وجاهز
كود :
Dim a As String = "http://vb4arb.com/vb/images/twilight/loaaaaaaaaaaaaago.jpg"
        MsgBox(IO.Path.GetFileName(a))
جربته وتمام بس ودي اتاكدSmile
استخدمته وبدا فعلا بالتحميل بالاسماء الحقيقية لكن بعد قليل
Illegal characters in path.
والرسالة هذي
An exception occurred during a WebClient request.
لما جربت الكود التالي
fn = piclink.Substring(piclink.LastIndexOf("/") + 1)

سعود

21-10-13, 04:57 AM
عرفت الاشكالية!!
حروف عربية باحدى الصور
اقصد اسم ملف الصورة بحروف عربيةSad

sooriaty03

21-10-13, 05:23 AM
السلام عليكم ورحمة الله وبركاته

المشكلة في الأسماء العربية أنها تكون بترميز UTF-8 ولتحويله إلى الترميز الافتراضي
استعمل الكود التالي

كود :
Dim b() As Byte = (From C As Char In FileName.ToCharArray Select CByte(AscW(C))).ToArray
FileName = System.Text.Encoding.UTF8.GetString(b)
منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم لغة الفيجوال بيسك VB.NET > قسم اسئلة VB.NET > سؤال حول اقتطاع الجزء المختار