04-04-22, 02:37 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
(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
(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