كيف أفصل رمز داخل متغير نصي على 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

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

إعلانات

تابعنا على

الرئيسية

تابعنا

دروس ومقالات

أسئلة وأجوبة

كتب

دورات

بطاقات هدية