مثلا الإسم التالي
الجواليقي ، موهوب بن احمد بن محمد
ليصبح
موهوب بن احمد بن محمد الجواليقي
حيث أن لدي عمود في قاعدة بيانات كل البيانات بهذا الشكل
السلام عليكم ورحمة الله وبركاته
اخي الكريم مسألة قلب النص سهلة ولكن اين ستضع النص ؟ ومن اين ستأخذه هل تجلب النص الى مربع نص وتريد قلبه
الشيء الاخر جرى تقطيع النص بوساطة المسافة الفارغة بين الكلمات
اليك هذا الكود جيث انني افترضت انك جلبت النص الموجود في العمود الذي تقصده الى مربع نص
ضع الكود في بوتون
كود :
Dim txt() As String = TextBox1.Text.Split(" ")
TextBox1.Text = ""
For i As Integer = txt.Length - 1 To 0 Step -1
TextBox1.Text &= txt(i) & " "
Next
وهذا كود أخر يعتمد على الدالة Reverse اي عكس المصفوفة
كود :
Dim txt() As String = TextBox1.Text.Split(" ")
TextBox1.Text = ""
For Each t As String In txt.Reverse()
TextBox1.Text &= t & " "
Next
يمكنك التقطيع بناء على الفاصلة انا لم انتبه الى ماتريد ظننت انك تريد قلب الكل
السلام عليكم اخي الكريم
اخي انتبه الى مكان الفاصلة التي ستقطع النص
ومن ناحية حذف ال التعريف من كلمتي البداية( المعبري المليباري)
اليك هذا الكود حيث هذه الجملة (المعبري المليباري , عبد العزيز بن احمد)
تصبح هكذا ( عبد العزيز بن احمد معبري مليباري )
كود :
' هذا الكود يحذف ال التعريف من المعبري المليباري
Dim txt() As String = TextBox1.Text.Split(",")
TextBox1.Text = ""
Dim frst() As String = txt(0).Trim.Split(" ")
Dim Lakab As String = ""
For Each str As String In frst
Lakab &= str.Substring(2, str.Length - 2) & " "
Next
txt(0) = Lakab
For Each t As String In txt.Reverse()
TextBox1.Text &= t & " "
Next
اما الكود التالي كما ذكرت لك التقطيع بالفاصلة
كود :
' هذا الكود لايحذف ال التعريف
Dim txt() As String = TextBox1.Text.Split(",")
TextBox1.Text = ""
For Each t As String In txt.Reverse()
TextBox1.Text &= t & " "
Next