تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تكسير وعكس النص
#1
بسم الله الرحمن الرحيم

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

ا ب ج د ه و ز

ليكون :

ز ا و ب ه ج د

هكذا
 بارك الله فيكم.
الرد
تم الشكر بواسطة:
#2
السلام عليكم ورحمة الله وبركاته
اخي الكريم تفضل

كود :
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
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد
تم الشكر بواسطة: مصمم هاوي
#3
(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
اخى الفاضل هذا ما اريده بارك الله فيك وزادك علما وحفظك من كل سوء لكن هناك شى بسيط اخى الغالى
الكود مثلا يحول ا ب ج د ه و ز  الى  ا ز ب و ج ه د  فقط اريد اخى تقديم الحرف الاخير على الاول ليكون ز ا و ب ه ج د

واكون شاكر لك فتح الله عليك  وزادك علما اخى الفاضل
الرد
تم الشكر بواسطة: ابراهيم ايبو , ابراهيم ايبو
#4
تفضل اخي الكريم بعد التعديل
كود :
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
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد
#5
(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
 اخى الكريم ابراهيم بارك الله فيك واعزك الله فى الدارين واشكرك شكرا جزيلا , واشكر ادارة الموقع العظيم الذى يضم باقة
عظيمة من  عقول الفكر المنطقى والبرمجى امثالك . حاولت كثيرا ان اصل لهذا الكود لتكسير التص ولم انجح وها انت حللت لى المشكلة فى دقائق بارك الله فيك وجعل عطائك هذا فى ميزان حسناتك.
الرد
#6
الحمد لله والشكر لله 
ولك أيضا أخي الكريم 
رمضان كريم والله اكرم الاكرمين
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  قائمة منسدلة بجزء من النص في مربع نص aftfm 12 1,412 19-04-22, 06:03 PM
آخر رد: atefkhalf2004
  كيفية جعله يضغط على Enter بعد كتابة النص في ExecuteScript؟ mohmeed 0 305 20-03-22, 09:31 AM
آخر رد: mohmeed
Exclamation [VB.NET] كيفية قراءة وتنفيذ رسالة التنبيه من صندوق النص TextBox أبو خالد الشكري 3 777 30-10-21, 03:08 AM
آخر رد: trakktour
  منع المستخدم من ادخال ارقام فى مربع النص في فيجوال بيسك دوت نت ابو نور الهدى 2 758 09-09-21, 06:17 PM
آخر رد: ابو نور الهدى
  العلامة العشرية في بداية مربع النص atefkhalf2004 8 1,359 28-02-21, 10:35 PM
آخر رد: ابراهيم ايبو
  كيف يمكن تحديد ادخال البيانات داخل مربع النص بحروف فقط أبو عبدالله الحلواني 7 1,279 20-02-21, 04:40 PM
آخر رد: أبو عبدالله الحلواني
Rainbow عندي سؤال عن كيفية البحث في نص وتحليل النص واستخراج المطلوب منه rafraf 0 674 04-02-21, 10:23 AM
آخر رد: rafraf
  [VB.NET] كيف أجعل النص يتحرك بهذه الطريقة Necro PC 12 1,845 28-11-20, 11:20 AM
آخر رد: Necro PC
  [سؤال] ما هي أسرع طريقة وأضمنها لحذف كل شيء من النص باستثناء الحروف العربية؟ السندبااد 3 1,343 02-08-20, 05:07 PM
آخر رد: Anas Mahmoud
  كيف أقلب النص في تكست بوكس المهنا 3 1,335 14-07-20, 06:33 PM
آخر رد: ابراهيم ايبو

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم