تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] كيف اخذ النص المتبقي بعد طرح بعضه
#1
كود :
Dim aa As String = "<img src=""http://vb4arb.com/vb/images/ougc_awards/charaf-s.gif"
        Dim ab As String = aa.Substring(0, "<img src=".Length + 1)
        Dim ac As String = aa.Substring(ab, ab.Length)


        MsgBox(ac)

طبعا اريده بفيجوال بيسك من دون regex
الرد
تم الشكر بواسطة:
#2
السلام عليكم ورحمة الله وبركاته

تفضل أخي

كود :
Dim aa As String = "<img src=""http://vb4arb.com/vb/images/ougc_awards/charaf-s.gif"
Dim ab As String = aa.Substring(0, "<img src=".Length + 1)
Dim ac As String = aa.Substring(ab.Length)

MsgBox(ac)

وإذا أحببت اختصار الكود أكثر فتستطيع كتابته كالتالي

كود :
Dim aa As String = "<img src=""http://vb4arb.com/vb/images/ougc_awards/charaf-s.gif"
Dim ac As String = aa.Substring(aa.IndexOf("""") + 1)

MsgBox(ac)
الرد
تم الشكر بواسطة: سعود , 3booody , hoob computer , kslawy
#3
ايضآ ممكن ازالة الجزء

كود :
Dim aa As String = "<img src=""http://vb4arb.com/vb/images/ougc_awards/charaf-s.gif"
        MsgBox(aa.Remove(0, Len("<img src=""")))
الرد
تم الشكر بواسطة: hoob computer , سعود , sooriaty03 , kslawy



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


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