[silverlight]

في الكود التالي ستجد فكرة لكيفية ضبط إتجاه String به خليط من لغتين مثل الانجليزية و العربية

PHP كود :

       Dim s As String = "متاح منه اصدار Nokia 220 Dual SIM RM-969 خطين"

        Dim englishChars() As Char = {"a"c, "A"c, "b"c, "B"c, "c"c, "C"c, "d"c, "D"c, "e"c, "E"c, "f"c, "F"c, "g"c, "G"c,
            "h"c, "H"c, "i"c, "I"c, "j"c, "J"c, "k"c, "K"c, "l"c, "L"c, "m"c, "M"c, "n"c, "N"c, "o"c, "O"c, "p"c, "P"c,
            "q"c, "Q"c, "r"c, "R"c, "s"c, "S"c, "t"c, "T"c, "u"c, "U"c, "v"c, "V"c, "w"c, "W"c, "x"c, "X"c, "y"c, "Y"c, "0"c,
            "1"c, "2"c, "3"c, "4"c, "5"c, "6"c, "7"c, "8"c, "9"c}

        Dim l As Integer = s.Length - 1

        Dim i As Integer = s.IndexOfAny(englishChars)
        Dim first As String = s.Substring(0, i)
        ' الخطوة التالية لنتأكد ان المتغير ليس به غير خروف فقط
        first = first.Trim

        Dim k As Integer = s.LastIndexOfAny(englishChars)
        Dim front As String = s.Substring(k + 1, l - k)

        front = front.Trim

        Dim middle As String = s.Substring(0, l - (front.Length))
        middle = middle.Substring(first.Length, middle.Length - first.Length)

        middle = middle.Trim

        Dim result As String = front + " " + middle + " " + first 


الفكرة يمكن تنفيذها لحالة معينة فقط و هي الحالة التي تحدثت عنها في سؤالك
حاول تستخدم الفكرة و تبني منها شئ أفضل
أنصحك تدرس المصفوفات جيدا فهي واحدة من الأشياء المهمة في الدوت نت و بدونها لا يمكن للمبرمج أن يكون مبرمجا جيدا