04-04-16, 11:50 PM
اسف لم اجد اسم للموضوع
ليصبح AAAA SSSS DDDD FFFF الكود يعمل 100% لاكن اريد يتجاوز حرف او رمز بمعنى لو المجموعة AAAASSSSDDDD%FFFF كما نلاحظ ان هناك % فى المجموعة فعند عمل الكود المجموعة سوف تصبح هكذا AAAA SSSS DDDD %FFF F اريد ان يتجاوز هذا الرمز ليكون الجموعة AAAA SSSS DDDD %FFFF بمعنى ان الرمز يفضل لاكن لا يتم حسبه ملحوظة هذه المجموعة ليسة ثابتة
إقتباس : Dim buffer As String = [String].Emptyوظيفه هذا الكود هو اضافة فاصل كل 4 حروف مثلآ لو فى التكست هذه الاحرف AAAASSSSDDDDFFFF يتم اضافه فاصل كل ارب حروف
For i As Integer = 0 To TextBox1.Text.Length - 1 Step 4
If TextBox1.Text.Length - i > 4 Then
buffer += TextBox1.Text.Substring(i, 4) & " "
Else
buffer += TextBox1.Text.Substring(i)
End If
Next
TextBox1.Text = buffer
ليصبح AAAA SSSS DDDD FFFF الكود يعمل 100% لاكن اريد يتجاوز حرف او رمز بمعنى لو المجموعة AAAASSSSDDDD%FFFF كما نلاحظ ان هناك % فى المجموعة فعند عمل الكود المجموعة سوف تصبح هكذا AAAA SSSS DDDD %FFF F اريد ان يتجاوز هذا الرمز ليكون الجموعة AAAA SSSS DDDD %FFFF بمعنى ان الرمز يفضل لاكن لا يتم حسبه ملحوظة هذه المجموعة ليسة ثابتة