[saidhamed]

بسم الله الرحمن الرحيم

طلب من الاخوة الكرام ارجوا كود تكسير النص اى استبدال حرف من الاخير بحرف من الاول .

مثال:    نكسر هذا السطر:

ا ب ج د ه و ز

ليكون :

ز ا و ب ه ج د

هكذا

 بارك الله فيكم.

[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته
اخي الكريم تفضل

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim Mylen As Integer = TextBox1.TextLength
       Dim aa() As Char = TextBox1.Text.ToCharArray
       Dim MyStr As String = ""
       For i As Integer = 0 To Convert.ToInt32((aa.Length - 1) / 2)
           MyStr += aa(i).ToString()

           If Mylen > i + 1 Then
               MyStr += aa(Mylen - 1).ToString()
               Mylen -= 1
           Else
               Exit For
           End If
       Next
       If MyStr.Length > TextBox1.TextLength Then
           MyStr = MyStr.Substring(0, MyStr.Length - 1)
       End If
       MsgBox(MyStr)
   End Sub

[saidhamed]

(04-04-22, 04:23 AM)ابراهيم ايبو كتب : السلام عليكم ورحمة الله وبركاته
اخي الكريم تفضل

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim Mylen As Integer = TextBox1.TextLength
       Dim aa() As Char = TextBox1.Text.ToCharArray
       Dim MyStr As String = ""
       For i As Integer = 0 To Convert.ToInt32((aa.Length - 1) / 2)
           MyStr += aa(i).ToString()

           If Mylen > i + 1 Then
               MyStr += aa(Mylen - 1).ToString()
               Mylen -= 1
           Else
               Exit For
           End If
       Next
       If MyStr.Length > TextBox1.TextLength Then
           MyStr = MyStr.Substring(0, MyStr.Length - 1)
       End If
       MsgBox(MyStr)
   End Sub

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

واكون شاكر لك فتح الله عليك  وزادك علما اخى الفاضل

[ابراهيم ايبو]

تفضل اخي الكريم بعد التعديل

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim Mylen As Integer = TextBox1.TextLength
       Dim aa() As Char = TextBox1.Text.ToCharArray
       Dim MyStr As String = ""
       For i As Integer = 0 To Convert.ToInt32((aa.Length - 1) / 2)
           If Mylen >= i + 1 Then
               MyStr += aa(Mylen - 1).ToString()
               Mylen -= 1
           Else
               Exit For
           End If
           MyStr += aa(i).ToString()
       Next
       If MyStr.Length > TextBox1.TextLength Then
           MyStr = MyStr.Substring(0, MyStr.Length - 1)
       End If
       MsgBox(MyStr)
   End Sub

[saidhamed]

(04-04-22, 05:15 AM)ابراهيم ايبو كتب : تفضل اخي الكريم بعد التعديل

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim Mylen As Integer = TextBox1.TextLength
       Dim aa() As Char = TextBox1.Text.ToCharArray
       Dim MyStr As String = ""
       For i As Integer = 0 To Convert.ToInt32((aa.Length - 1) / 2)
           If Mylen >= i + 1 Then
               MyStr += aa(Mylen - 1).ToString()
               Mylen -= 1
           Else
               Exit For
           End If
           MyStr += aa(i).ToString()
       Next
       If MyStr.Length > TextBox1.TextLength Then
           MyStr = MyStr.Substring(0, MyStr.Length - 1)
       End If
       MsgBox(MyStr)
   End Sub

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

[ابراهيم ايبو]

الحمد لله والشكر لله 

ولك أيضا أخي الكريم 

رمضان كريم والله اكرم الاكرمين