دالة تأخذ الأحرف الأخيرة لا الأولى

الدالة Mid تستخدم لأخذ الأحرف من أى مكان لكن أنصحك باستخدام الدالة SubString

مثال

لنفرض أن لدينا متغير نصى يحمل القيمة "Arab Team Forum"

يمكنك الحصول على أى جزء منه كما يلى

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim buffer As String = "Arab Team Forum"
        MsgBox(buffer.Substring(0, 4))      'Arab
        MsgBox(buffer.Substring(5, 4))      'Team
        MsgBox(buffer.Substring(10))        'Forum
    End Sub

جزاك الله خيرا أخي لكن الكشكلة التي لدي أنني لا أعرف ماهي الكلمات التي التي ستكتب في مقدمة الكلام أعلم فقط الأحرف الأخيرة وبناء عليها أقوم بإجراءاتي مع العلم أنني يمكنني أن أقوم ببعض الإلتفافات لجعل الأمر ينجح فقط أريد أن أعرف هل هناك دالة بهذا الشكل ؟

السلام عليكم ورحمه الله وبركاته

اخي يمكنك استخدام الكود التالي اذا انت عارف عدد الاحرف في النهايه

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

 Public Sub Discr(ByVal T As TextBox, ByVal STR As String)

        Dim STRL As Integer
        Dim STRLM As Integer
        Dim TXT As String
        Dim L As Integer
        STRL = STR.Length
        STRLM = STRL - 1
        TXT = T.Text
        L = T.Text.Length
        If L > STRLM Then
            L -= STRLM
        End If
        If T.Text.Length > 0 Then
            If Mid(TXT, L, STRL) = STR Then

            Else
                T.Text += STR
            End If
        End If


    End Sub

مع تحياتي لكم

السلام عليكم ورحمه الله وبركاته

اخي سؤالك لم توضح سؤالك من البدايه انه بخصوص اضافة نص في الاخير؟!!

وعيكم السلام

آسف أخي ولكن أحاول أن أحصل على أقل مساعدة حتى أتمكن من البرمجة على طريقتي وزيادة قدراتي

السلام عليكم ورحمه الله وبركاته

مو مشكله اخي انك تطور قدراتك, بس ضروري لو سألت توضح علشان ما يتعب الكثير وفي النهايه يكون سوء فهم للسؤال, بالتوفيق ..

طريقة mid هي طريقة قديمة وبقيت للتوافقية مع برامج فيجوال بيسك 6 فقط لذا يفضل استخدام substring .

   If not T.Text.EndsWith( STR) Then

                T.Text += STR
            End If

وعليكم السلام

يؤخذ في عين الاعتبار أخي VB HELPER

مشكور TAREQVB هذا ماكنت أبحث عنه