منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] استخلاص جزء محدد من نص وإضافته إلى بداية النص ؟ - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] استخلاص جزء محدد من نص وإضافته إلى بداية النص ؟ (/showthread.php?tid=47743)

استخلاص جزء محدد من نص وإضافته إلى بداية النص ؟ - AmeenRashed - 01-01-24

السلام عليكم

إذا كان عندى نص(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

RE: استخلاص جزء محدد من نص وإضافته إلى بداية النص ؟ - Kamil - 01-01-24

جرب هذا الكود


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 


RE: استخلاص جزء محدد من نص وإضافته إلى بداية النص ؟ - AmeenRashed - 02-01-24

(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