المشاركات : 372
المواضيع 15
الإنتساب : Sep 2013
السمعة :
28
الشكر: 487
تم شكره 1677 مرات في 187 مشاركات
05-11-13, 01:25 PM
(آخر تعديل لهذه المشاركة : 05-11-13, 01:26 PM {2} بواسطة ناجي إبراهيم.)
السلام عليكم...
و يمكنك أيضاً إنشاء دالة لهذا الغرض:
كود :
Public Function QuotedStr(ByVal AString As String) As String
Return Chr(34) & AString & Chr(34)
End Function
' ...
' ...
Dim S As String
S = "My name is " & QuotedStr("Ismael")
نرجو الاستفادة و السلام.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ
المشاركات : 67
المواضيع 17
الإنتساب : Sep 2013
السمعة :
4
الشكر: 8
تم شكره 30 مرات في 12 مشاركات
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>"))
وقد طبقت الدالة على المطلوب
شكرا