Module Module1
Sub Main()
Dim Id As String
Id = "A072D7BE"
Id = Right(Id, 2) & (Id.Remove(6, 2))
MsgBox(Id)
End Sub
End Module
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
(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
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