05-11-13, 02:41 PM
(آخر تعديل لهذه المشاركة : 05-11-13, 03:21 PM {2} بواسطة ismail2012.)
شكرا للجميع
سؤال ثاني لو سمحتم
لو كان لدي متغير نصي Str1 مثلا يحتوي على النص التالي
000: 0,0,0,0,0,"0000000000",00
00
كيف يمكنني استخلاص الجزء الذي بين علامات التنصيص وهو 0000000000 مع العلم أن عدد هذا الجزء غير معلوم العدد بمعنى يزيد وينقص
شكرا
شكرا مرة أخرى للأخ Aly El-Haddad
فهو قد أجاب على السؤال الثاني بدون ما يدري
كنت قد حفظت صفحة من المنتدي القديم كان بها سؤال :كيفيه الحصول على نص الموجود بين <h1> </h1>
وقد أجاب عليها الأخ على
لقد صنعت دالة بخصوص هذا الشأن من قبل
Public Function GetBody(ByVal str As String, ByVal start As String, ByVal [end] As String) As String
Dim len As Integer = 0
len = (str.IndexOf(start) + start.Length)
len = (str.IndexOf([end]) - len)
Return str.Substring((str.IndexOf(start) + start.Length), len)
End Function
طريقة الإستخدام:
Dim str As String = "<h1>Votre journal Facebook</h1>"
MessageBox.Show(GetBody(str, "<h1>", "</h1>"))
وقد طبقت الدالة على المطلوب
شكرا
سؤال ثاني لو سمحتم
لو كان لدي متغير نصي Str1 مثلا يحتوي على النص التالي
000: 0,0,0,0,0,"0000000000",00
00
كيف يمكنني استخلاص الجزء الذي بين علامات التنصيص وهو 0000000000 مع العلم أن عدد هذا الجزء غير معلوم العدد بمعنى يزيد وينقص
شكرا
شكرا مرة أخرى للأخ Aly El-Haddad
فهو قد أجاب على السؤال الثاني بدون ما يدري
كنت قد حفظت صفحة من المنتدي القديم كان بها سؤال :كيفيه الحصول على نص الموجود بين <h1> </h1>
وقد أجاب عليها الأخ على
لقد صنعت دالة بخصوص هذا الشأن من قبل
Public Function GetBody(ByVal str As String, ByVal start As String, ByVal [end] As String) As String
Dim len As Integer = 0
len = (str.IndexOf(start) + start.Length)
len = (str.IndexOf([end]) - len)
Return str.Substring((str.IndexOf(start) + start.Length), len)
End Function
طريقة الإستخدام:
Dim str As String = "<h1>Votre journal Facebook</h1>"
MessageBox.Show(GetBody(str, "<h1>", "</h1>"))
وقد طبقت الدالة على المطلوب
شكرا
