• 0

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

لدي متغيّر نصيّ بالقيمة التالية: 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

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

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


رابط هذه المساهمة
  • 0

تحقق من أن طول المتغير النصي يساوي طول المتغير 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 لإظهار عمل السكريبت.

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


رابط هذه المساهمة

يجب أن تكون عضوًا لدينا لتتمكّن من التعليق

انشاء حساب جديد

يستغرق التسجيل بضع ثوان فقط


سجّل حسابًا جديدًا

تسجيل الدخول

تملك حسابا مسجّلا بالفعل؟


سجّل دخولك الآن