كيف أفصل رمز داخل متغير نصي على Vb.Net؟

Badraoui · 18 نوفمبر 2015

لدي متغيّر نصيّ بالقيمة التالية: M2.W1.SSE' وأريد فصل الجزء المبتدئ بـ M ودمجه ببقاء الأجزاء من المتغير النصي، وهذه هي محاولتي:

 Dim SplitCodes() As String = Split(StringOfCodes, " ")

    For Each code As String In SplitCodes
        If code.substring(0,1) = "M" andalso code.Contains(".") = True Then
            'Delete the code from the string
         End if
    Next

لكني لا أصل إلى النتيجة المنتظرة، فهل من حل؟

E.Nourddine · 19 نوفمبر 2015

تحقق من أن طول المتغير النصي يساوي طول المتغير 2- بعد تعويض النقط بلا شيء 'فراغ'، أي أنه تم التعويض بشكل صحيح:

If code.Substring(0, 1) = "M" And Len(Replace(code, ".", "")) = Len(code) - 2 Then

هذا مثال توضيحي بسيط:

 Dim MyString As String
    MyString = "M2.W1.SSE"
    If MyString.Substring(0, 1) = "M" And Len(Replace(MyString, ".", "")) = Len(MyString) - 2 Then
        TextBox1.Text = MyString
    Else
        TextBox1.Text = "Didn't work!!"
    End If

الجزء الأول من الدالة if للتحقق من عملية التعويض، ليتم بعد ذلك تقسيم النص إلى أجزاء، على الشكل التالي:

   Dim MyString As String
    MyString = "M2.W1.SSE"
    If MyString.Substring(0, 1) = "M" And Len(Replace(MyString, ".", "")) = Len(MyString) - 2 Then
        TextBox1.Text = MyString
    Else
        TextBox1.Text = "Didn't work!!"
    End If
    If code.Substring(0, 1) = "M" And UBound(Split(MyString, ".")) = 2 Then '<--  
        MsgBox("This method also works")
    Else
        MsgBox("This method doesn't work")
    End If

الرسائل MsgBox لإظهار عمل السكريبت.

كيف أفصل رمز داخل متغير نصي على Vb.Net؟

السؤال

Badraoui

رابط هذا التعليق

شارك على الشبكات الإجتماعية

1 جواب على هذا السؤال

Recommended Posts

E.Nourddine

رابط هذا التعليق

شارك على الشبكات الإجتماعية

انضم إلى النقاش

إعلانات

تابعنا على

الرئيسية

تابعنا

دروس ومقالات

أسئلة وأجوبة

كتب

دورات

بطاقات هدية