تمت الإجابة كود بحث داخل String

تم تحميل الصفحة في 0,3151482 ثانية
كود بحث داخل String
الحالة
مغلق و غير مفتوح للمزيد من الردود.

Ahmad Kassha

Beginner Developer
rank
إنضم
5 نوفمبر 2013
المشاركات
77
الإعجابات
48
النقاط
18
العمر
24
الإقامة
سوريا ,حلب
السلام عليكم و رحمه الله و بركاته
كيف الحال أصدقائي
أحتاج مساعدة في كود بحث داخل String
لدي نص بهذه الطريقة
23(3 ,8 ,2, 7)
أحتاج لكود ليبحث عن رقم معين بين القوسين لنفترض ليتأكد من وجود رقم 3 و 7 و 8
وشكرا
 

Ahmed Al'jabari

إداري أقسام البرمجة
rankrankrankrank
إنضم
24 يونيو 2017
المشاركات
1,772
الإعجابات
1,543
النقاط
123
الإقامة
iraq
كود:
dim a as string  = "(1,2,3)"
if a.Contains(",2,") then : msgbox("Find")  'اذا كان المطلوب بالوسط
elseif a.Contains("2,") then : msgbox("Find")  'اذا كان المطلوب بالطرف
elseif a.Contains(",2") then : msgbox("Find")  'اذا كان المطلوب بالطرف
end if
ويمكنك التحقق منه بكل المواقع بنفس الوقت هكذا
كود:
dim a as string  = "(1,2,3)"
if a.Contains(",2,") or a.Contains("2,") or a.Contains(",2") then
msgbox("find")
end if
 
التعديل الأخير:

CRYSTALBOY

Beginner Developer
rankrank
إنضم
18 أغسطس 2010
المشاركات
185
الإعجابات
147
النقاط
43
اعتقد انك تريد كل الحالات وليس تلك الحاله فقط
كود:
        Dim inputString As String = "23(3 ,8 ,2, 7)"
        Dim OpenBracketIDX As Integer = inputString.IndexOf("(")' الاندكس الخاص بأول قوس
        Dim ClosingBracketIDX As Integer = inputString.IndexOf(")", OpenBracketIDX + 1)' الاندكس الخاص بأخر قوس
        '  قم باستخراج كل السلسله (في هذه الحاله الارقام) بداية من القوس المفوح وحتي القوس المغلق
        Dim ExtractedNumbers As String = inputString.Substring(OpenBracketIDX + 1, ClosingBracketIDX- OpenBracketIDX - 1)
       
        Dim NumberToSearch As String="8" ' الرقم الذي ترغب بالبحث عنه
       
        Dim isNumberExist As Boolean = ExtractedNumbers.Contains(NumberToSearch)
       
        Console.WriteLine(isNumberExist)
وهنا المثال مطبق
C# Online Compiler | .NET Fiddle
 

Ahmad Kassha

Beginner Developer
rank
إنضم
5 نوفمبر 2013
المشاركات
77
الإعجابات
48
النقاط
18
العمر
24
الإقامة
سوريا ,حلب
كود:
dim a as string  = "(1,2,3)"
if a.Contains(",2,") then : msgbox("Find")  'اذا كان المطلوب بالوسط
elseif a.Contains("2,") then : msgbox("Find")  'اذا كان المطلوب بالطرف
elseif a.Contains(",2") then : msgbox("Find")  'اذا كان المطلوب بالطرف
end if
ويمكنك التحقق منه بكل المواقع بنفس الوقت هكذا
كود:
dim a as string  = "(1,2,3)"
if a.Contains(",2,") or a.Contains("2,") or a.Contains(",2") then
msgbox("find")
end if
صديقي الكود ما اشتغل أنت حاكك مسج بوكس فيه كلمة Find
 

Ahmad Kassha

Beginner Developer
rank
إنضم
5 نوفمبر 2013
المشاركات
77
الإعجابات
48
النقاط
18
العمر
24
الإقامة
سوريا ,حلب
اعتقد انك تريد كل الحالات وليس تلك الحاله فقط
كود:
        Dim inputString As String = "23(3 ,8 ,2, 7)"
        Dim OpenBracketIDX As Integer = inputString.IndexOf("(")' الاندكس الخاص بأول قوس
        Dim ClosingBracketIDX As Integer = inputString.IndexOf(")", OpenBracketIDX + 1)' الاندكس الخاص بأخر قوس
        '  قم باستخراج كل السلسله (في هذه الحاله الارقام) بداية من القوس المفوح وحتي القوس المغلق
        Dim ExtractedNumbers As String = inputString.Substring(OpenBracketIDX + 1, ClosingBracketIDX- OpenBracketIDX - 1)
      
        Dim NumberToSearch As String="8" ' الرقم الذي ترغب بالبحث عنه
      
        Dim isNumberExist As Boolean = ExtractedNumbers.Contains(NumberToSearch)
      
        Console.WriteLine(isNumberExist)
وهنا المثال مطبق
C# Online Compiler | .NET Fiddle
صديقي الكود اشتغل تمام بس في حال كان عندي هيك
77(56 ,22 ,61 ,9) و بحثت عرقم واحد رح ياخدو من رقم 61
أنا بدي ياخد الرقم ما بين , , و أحيانا بكون هيك ( , و احيانا هيك , )
 

CRYSTALBOY

Beginner Developer
rankrank
إنضم
18 أغسطس 2010
المشاركات
185
الإعجابات
147
النقاط
43
كود:
        Dim isNumberExist As Boolean=False
        Dim inputString As String = "77(56 ,22 ,61 ,9)"
        Dim OpenBracketIDX As Integer = inputString.IndexOf("(")' الاندكس الخاص بأول قوس
        Dim ClosingBracketIDX As Integer = inputString.IndexOf(")", OpenBracketIDX + 1)' الاندكس الخاص بأخر قوس
        '  قم باستخراج كل الارقاب بداية من القوس المفوح وحتي القوس المغلق
        Dim ExtractedNumbers As String = inputString.Substring(OpenBracketIDX + 1, ClosingBracketIDX- OpenBracketIDX - 1)
        Dim NumberToSearch As String="1" ' الرقم الذي ترغب بالبحث عنه
       
        ' قم بحذف كل المسافات ثم حذف الفواصل
        Dim ExtractedNumberToArray As String() = ExtractedNumbers.Replace(" ", "").Split(New Char() {","c})
       
   
        If ExtractedNumberToArray.ToList().IndexOf(NumberToSearch)>-1 Then ' اذا كان الاندكس اكبر من -1 هذا يعني انه وجد الرقم
            isNumberExist=True
        end if
       
        Console.WriteLine(isNumberExist)
وهنا اختبار الكود
C# Online Compiler | .NET Fiddle

لا تنسي وضع عمل import system.linq
 

Ahmed Al'jabari

إداري أقسام البرمجة
rankrankrankrank
إنضم
24 يونيو 2017
المشاركات
1,772
الإعجابات
1,543
النقاط
123
الإقامة
iraq
صديقي الكود ما اشتغل أنت حاكك مسج بوكس فيه كلمة Find
الكود شغال اخي وجربته وشتغل مامشكلتك فيه ؟ ضع الرقم الذي تريده في الcontains والارقام الي تريدها بسترنك
a
ويوم راح يلقا الرقم راح يضهرك مسجبوكس فيه كلمة find
 
الحالة
مغلق و غير مفتوح للمزيد من الردود.

الأعضاء النشطين حاليآ الذين يشاهدون هذا الموضوع (1 عضو و 0 ضيف)

خيارات الاستايل

نوع الخط
مودك
اخفاء السايدر بار OFF
توسيط المنتدى OFF
فصل الأقسام OFF
الأقسام الفرعية OFF
عرض المشاركات
حجم الخط
معلومات العضو OFF
إخفاء التوقيع OFF

إرجاع خيارات الإستايل