+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : تحديد نص داخل مربع النص بين رقم 1 و . (/showthread.php?tid=13350)
تحديد نص داخل مربع النص بين رقم 1 و . - الحزين اوى - 25-09-15
السلام عليكم
أريد تحديد نص داخل مربع النص بين رقم 1 و النقطه (.)
1كبيستبتسيكمبتكسمتبكمستيبكمتسي. 2مسشتينمسشتيمنسشتيمنش. 3سشيشيسشيسشيسشيشس.
أريد تحديد رقم واحد حتي النقطة
RE: تحديد نص داخل مربع النص بين رقم 1 و . - اسلام الكبابى - 26-09-15
فهمت من كلامك فى البداية"تحديد نص داخل مربع النص بين رقم 1 و النقطه (.) "
أنك تريد تحديد هذا النص
كبيستبتسيكمبتكسمتبكمستيبكمتسي
ولكنك قلت بعد ذلك"أريد تحديد رقم واحد حتي النقطة "
فلم أفهم شيئآ منها وعرفت أن فهمى الأول كان خاطئآ
RE: تحديد نص داخل مربع النص بين رقم 1 و . - hassan - 26-09-15
للاسف كلامك غير مفهوم
RE: تحديد نص داخل مربع النص بين رقم 1 و . - اسلام الكبابى - 26-09-15
على العموم لو كان فهمى الأول صحيحآ ( أنك تريد تحديد هذا النص "كبيستبتسيكمبتكسمتبكمستيبكمتسي")
فهذا هو الكود
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
RE: تحديد نص داخل مربع النص بين رقم 1 و . - الحزين اوى - 28-09-15
شكرا على الرد ولكن جوابك بلغه فيجوال بيسك 6
أنا أريده بالدوت نت
وثانياً أريد تحديد النص بمعني يكون محدد بلون مختلف
ثالثاً التحديد يكون من الرقم حتي هذه العلامة "."
أعتقد كده الموضوع وأضح
شكرا لكم جميعاً
RE: تحديد نص داخل مربع النص بين رقم 1 و . - أبو عمر - 28-09-15
ممكن بس تعرفنا محاولاتك وصلت لحد فين؟
RE: تحديد نص داخل مربع النص بين رقم 1 و . - silverlight - 29-09-15
لحل المشكلة عليك أن تحدد بداية 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 = resultRE: تحديد نص داخل مربع النص بين رقم 1 و . - الحزين اوى - 30-09-15
الاخ العزيز أبو عمر أعتقد لو أعرف الحل مش هضع مشاركة للستفسار
شكرا على ردك silverlight