[AmeenRashed]

(01-01-24, 09:26 PM)Kamil كتب : جرب هذا الكود

PHP كود :

Sub Main()
    Dim Id As String = "A072D7BE"

    ' الحصول على الجزء الأخير من النص (الحرفين الأخيرين)
    Dim lastTwoCharacters As String = Id.Substring(Id.Length - 2)

    ' إزالة الحرفين الأخيرين من النص الأصلي
    Dim restOfText As String = Id.Substring(0, Id.Length - 2)

    ' الجزء المراد بعد الإضافة
    Dim finalText As String = lastTwoCharacters & restOfText

    MsgBox(finalText)
End Sub 


الله ينور عليك .. شكراً لك
ويمكن وضع كل ما أشرت عليه فى سطر واحد

PHP كود :

   Sub Main()
        ' الحصول على الحرفين الأخيرين من النص
        ' Id.Substring(Id.Length - 2)
        ' إزالة الحرفين الأخيرين من النص الأصلي
        ' Id.Substring(0, Id.Length - 2)

        Dim Id As String = "A072D7BE99"
        Id = (Id.Substring(Id.Length - 2)) & (Id.Substring(0, Id.Length - 2))
        MsgBox(Id)  '  99A072D7BE   الناتج
    End Sub