منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

أخي الكريم
هل انت تقصد انك تريد ان يحول الفراغ إلى سطر جديد
وإذا كان يوجد اكثر من فراغ متتالي يحول الأولى إلى سطر جديد والبقية يكتبها فراغ


مثلا لو كان لدينا هذي الكلمة
لنفرض ان النقطه عبارة عن فراغ لان المنتدى لا يقبل فراغين متتاليين (Easy.4..ever)
يكتبها هكذا
Easy
4
.ever

إذا كان نعم أضف في كود الأخ Sajad متغير من نوع Boolean حتى يكون فلتر للفراغات الزائدة

الكود بعد التعديل

معنى الكود ان إذا كان يوجد فراغ وفي نفس الوقت الفلتر مغلق قم بتحويل الفراغ إلأى سطر جديد وقم بتفعيل الفلتر
خلاف هذا يقوم بإضافة الحرف أو المسافه وفي نفس الوقت يسأل هل قام بإضافة حرف أو مسافه
إذا كان حرف يقوم بإقفال الفلتر أما إذا كان مسافة فلا يقفل الفلتر حتى ينتهي من المسافات المتتالية

تفضل اخي




Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox2.Multiline = True
End Sub

Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim txt1 As String = Trim(TextBox1.Text)
Dim i As Integer
Dim spac As Boolean = True
Do While i <= txt1.Length - 1
If txt1(i) <> " " Then
TextBox2.Text = TextBox2.Text & txt1(i)
spac = True
ElseIf spac = True Then
TextBox2.Text = TextBox2.Text & vbNewLine
spac = False
End If
i += 1
Loop
End Sub
End Class

نعم اخي Easy4ever هذا ما قصدته .... شكرا لك وجزاك الله الف خير .... وشكرا لجميع الاعضاء اتعبتكم معي ... وبراك الله فيكم وجزاكم الله الخير كله

استخدم الدالة mid