[AmeenRashed]

السلام عليكم

إذا كان عندى نص(A072D7BE) ، بالطبع غير محدد طوله

وأريد استقطاع آخر حرفين منه وإضافتم فى مقدمته

كتبت هذا الكود لينطبق على نص محدد

وأريد صيغة عامة لتكون نافعة لأى نص دون التقيد بحجمه

PHP كود :

Module Module1
    Sub Main()
        Dim Id As String
        Id = "A072D7BE"
        Id = Right(Id, 2) & (Id.Remove(6, 2))
        MsgBox(Id)
    End Sub
End Module 


وكان الناتج    BEA072D7

[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 


[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