تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تحديد نص داخل مربع النص بين رقم 1 و .
#1
السلام عليكم 

أريد تحديد نص داخل مربع النص بين رقم 1 و النقطه (.)


1كبيستبتسيكمبتكسمتبكمستيبكمتسي. 2مسشتينمسشتيمنسشتيمنش. 3سشيشيسشيسشيسشيشس.

أريد تحديد رقم واحد حتي النقطة
الرد }}}
تم الشكر بواسطة:
#2
فهمت من كلامك فى البداية"تحديد نص داخل مربع النص بين رقم 1 و النقطه (.) "
أنك تريد تحديد هذا النص
كبيستبتسيكمبتكسمتبكمستيبكمتسي
ولكنك قلت بعد ذلك"أريد تحديد رقم واحد حتي النقطة "  
فلم أفهم شيئآ منها وعرفت أن فهمى الأول كان خاطئآ
الرد }}}
تم الشكر بواسطة:
#3
للاسف كلامك غير مفهوم
الحمد لله رب العالمين على كل شي
الرد }}}
تم الشكر بواسطة:
#4
على العموم لو كان فهمى الأول صحيحآ ( أنك تريد تحديد هذا النص "كبيستبتسيكمبتكسمتبكمستيبكمتسي")
فهذا هو الكود
Private Sub Command1_Click()
Text1 = "1كبيستبتسيكمبتكسمتبكمستيبكمتسي. 2مسشتينمسشتيمنسشتيمنش. 3سشيشيسشيسشيسشيشس."
ST = InStr(Text1, "1") + 1
L = InStr(Text1, ".") - ST
myText = Mid(Text1, ST, L)
Print "myText = ", myText
End Sub
الرد }}}
تم الشكر بواسطة:
#5
شكرا على الرد ولكن جوابك بلغه فيجوال بيسك 6

أنا أريده بالدوت نت

وثانياً أريد تحديد النص بمعني يكون محدد بلون مختلف

ثالثاً التحديد يكون من الرقم حتي هذه العلامة "."

أعتقد كده الموضوع وأضح

شكرا لكم جميعاً
الرد }}}
تم الشكر بواسطة:
#6
ممكن بس تعرفنا محاولاتك وصلت لحد فين؟
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
الرد }}}
تم الشكر بواسطة:
#7
لحل المشكلة عليك أن تحدد بداية String أو بداية النص باستخدام String.IndexOf ثم بعد ذلك تحدد مكان النقطة في النص باستخدام String.LastIndexOf ثم تستخدم String.Substring لتحديد النص المطلوب إيجاده ....... لكن مشكلتك الحقيقية ليست في كل هذا فأنت النص الخاص تتكرر به النقطة ثلاثة مرات و لو استخدمت هذا الاسلوب فستجد نفسك تبحث بين الرقم 1 و اخر نقطة موجودة في النص لذلك عليك ان تستخدم String.IndexOf لايجاد اول ظهور للرقم 1 و تتبع نفس الاسلوب لتحديد اول ظهور للنقطة ثم تستخدم String.Substring لتجديد النص المطلوب

شكل الكود سيكون كالتالي:

كود :
Dim txt As String = "1 Ahmed. 2 Moustafa 3 Ibrahim."

       Dim firstChar As String = "1"
       Dim firstCharIndex As Integer = txt.IndexOf(firstChar)
       firstCharIndex = If((firstCharIndex = -1), 0, firstCharIndex + firstChar.Length)
       Dim lastChar As String = "."
       Dim lastCharIndex As Integer = txt.IndexOf(lastChar)
       If lastCharindex = -1 Then
           lastCharIndex = txt.Length
       End If

       Dim different As Integer = lastCharindex - firstCharIndex
       Dim result As String = txt.Substring(firstChar, different)

       Label1.Text = result
الرد }}}
تم الشكر بواسطة:
#8
الاخ العزيز أبو عمر أعتقد لو أعرف الحل مش هضع مشاركة للستفسار

شكرا على ردك silverlight
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  بحث بالكومبو بوكس لا ى جزء من النص Lathe1 3 441 28-02-24, 02:59 AM
آخر رد: معاند الحظ
  [سؤال] كيفية انشاء فورم داخل مشروعى عاصم النجار 2 305 05-01-24, 12:36 AM
آخر رد: HALIM ELEULMA
  حماية عمود داخل ورقة الاكسل العيدروس 3 190 05-01-24, 12:21 AM
آخر رد: HALIM ELEULMA
  [VB.NET] استخلاص جزء محدد من نص وإضافته إلى بداية النص ؟ AmeenRashed 2 213 02-01-24, 10:06 AM
آخر رد: AmeenRashed
  هل الداتا قراد فيو تسمح بتعدد الاسطر داخل الخلية عند جلب بيانات نصية طويله من قاعدة ب khalidalwdi 3 461 10-11-23, 11:08 AM
آخر رد: khalidalwdi
  تحديد موقع ملف user.config واعدة توجيهه لموقع آخر Mohammed Nafa 3 439 07-11-23, 10:12 PM
آخر رد: Mohammed Nafa
  يوجد مشكلة عند تحميل البيانات فى كمبوبوكس داخل داتا جريد new_programer 2 473 17-10-23, 06:51 PM
آخر رد: new_programer
  دالة ادخال ارقام فقط في مربع النص atefkhalf2004 7 809 20-08-23, 09:04 AM
آخر رد: atefkhalf2004
  كيف الحصول على قيمة الخلية بعد تحديد الصف في datagridview؟ hazim1 2 558 06-08-23, 01:12 AM
آخر رد: hazim1
  اريد اضافة متغيراخر داخل Listbox1 احتاج تعديل بسيط moh61 0 350 05-08-23, 02:29 PM
آخر رد: moh61

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


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