تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
التعامل مع النصوص التي تحتوي على علامات تنصيص
#1
بسم الله الرحمن الرحيم
والصلاة والسلام على سيدنا محمد وعلى آله وصحبة أجمعين

السلام عليكم ورحمة الله وبركاتة
كلنا نعلم أن المترجم Compiler الخاص بيبيئة التطوير vb.net يقوم بالتفرقة بين الأكواد والنصوص عن طريق علامات التنصيص "" بحيث يكون ما بداخل علامات التنصيص هو سلاسل نصية وليس أكواد
فكيف يتم التعامل مع السلاسل النصية التي تحتوي بداخلها على علامات تنصيص
مثلا لدينا نص my name is " ismail"
كيف نقوم باسناد قيمتة للمتغير النصي s مثلا
شكرا
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم، لكتابة علامة تنصيص داخل نص في محرر الأكواد أكتبها مرتين.. مثلاً:
كود :
Dim s As String = "My name is ""ismail"""
الرد }}}}
#3
ممتاز يا أستاذ على
شكرا
الرد }}}}
تم الشكر بواسطة: الشاكي لله , kslawy
#4
السلام عليكم...

و يمكنك أيضاً إنشاء دالة لهذا الغرض:

كود :
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")

نرجو الاستفادة و السلام.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ
الرد }}}}
#5
شكرا للجميع
سؤال ثاني لو سمحتم
لو كان لدي متغير نصي 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>"))


وقد طبقت الدالة على المطلوب
شكرا
الرد }}}}
تم الشكر بواسطة: Aly El-Haddad , kslawy
#6
الرمز " يتم اضافته اربع مرات


كود :
Dim OKK as string = "Ali"    & """" & "OK"
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيف احدد عدد الاحرف التي ينفع ان تبطع في التكست بوكس بحيث لا تتعدي DanyGhost2010 1 48 01-01-18, 04:17 PM
آخر رد: طالب برمجة
  أريد كود للبحث عن الملفات الموجودة في الجهاز التي من نوع txt or doc ؟ DanyGhost2010 0 69 27-12-17, 07:37 PM
آخر رد: DanyGhost2010
  التعامل مع المكتبات anes 3 114 05-12-17, 05:52 PM
آخر رد: anes
  [سؤال] البحث عن الخانات التي تحتوي على قيم DataGridView fredo 6 187 01-12-17, 02:55 PM
آخر رد: fredo
  [سؤال] طلب في التعامل مع اكسل adam mostafa 7 194 24-11-17, 12:55 AM
آخر رد: السندبااد
  ازاى استخرج هذه النصوص ابو روضة 12 244 30-10-17, 02:15 PM
آخر رد: ابو روضة
  [VB.NET] إستخراج المواقع التي على السيرفر .. عن طريق IP السيرفر asda 0 60 28-10-17, 10:15 PM
آخر رد: asda
  [VB.NET] دمج النصوص العربية Concate? khaled_35 2 101 16-10-17, 02:23 AM
آخر رد: khaled_35
  مشكلة عند التعامل مع DevExpress آمل أن أجد لها حلًا أحمد إبراهيم سعد 10 491 23-09-17, 11:47 PM
آخر رد: أحمد إبراهيم سعد
  [سؤال] كيفية نسخ النصوص من داخل ليست بوكس تنمية المعرفة 7 247 12-09-17, 11:15 PM
آخر رد: تنمية المعرفة

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


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