[المهنا]

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

فمثلا حروف التصنيف هي عبارة عن 3 حروف 
الحرف الأول هو الحرف الاول من  الاسم الاخير من المؤلف بدون ال
الحرف الثاني هو الحرف الاول من  الاسم الأول من المؤلف بدون ال
الحرف الثالث هو الحرف الأول من عنوان الكتاب بدون ال

فمثلا كتاب البرمجة لمؤلف ابراهيم الايبو يكون 
ا ا ب

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

إقتباس : Dim t1, t2, t3 As Char

        Dim s() As String = Me.Txtadd2.Text.Split
        t1 = If(s(s.Length - 1).StartsWith("ال"), s(s.Length - 1)(2), s(s.Length - 1)(0))
        t2 = If(Me.Txtadd2.Text.StartsWith("ال"), Me.Txtadd2.Text(2), Me.Txtadd2.Text(0))
        t3 = If(Me.Txtadd1.Text.StartsWith("ال"), Me.Txtadd1.Text(2), Me.Txtadd1.Text(0))

        Me.Txtadd7.Text = t1 & " " & t2 & " " & t3

 حصلت مشكلة في بعض الاسماء المركبة مثل 

المعبري المليباري ، عبدالعزيز بن زين الدين

يقلبه للشكل التالي 

المليباري ، عبدالعزيز بن زين الدين المعبري 
 
والمفروض يكون 

عبدالعزيز بن زين الدين المعبري المليباري