المشاركات : 147
المواضيع 41
الإنتساب : Jul 2014
السمعة :
1
الشكر: 387
تم شكره 50 مرات في 6 مشاركات
03-02-16, 12:47 PM
(آخر تعديل لهذه المشاركة : 03-02-16, 12:49 PM {2} بواسطة abuzzouz.)
السلام عليكم
اخواني الأفاضل أسعد الله أوقاتكم بالخير والمحبة
لدي استفسار لو تكرمتم عن إمكانية وضع فاصلة بنهاية كل جملة نصية وذلك بشكل تلقائي إما مع كل ENTER لأخذ سطر جديد أو بعد الإنتهاء من إدخال النص كاملاً (أي عند الحفظ)
ولكم جزيل الشكر
{ اللهم علمنا ما ينفعنا وانفعنا بما علمتنا إنك أنت العليم الخبير }
المشاركات : 147
المواضيع 41
الإنتساب : Jul 2014
السمعة :
1
الشكر: 387
تم شكره 50 مرات في 6 مشاركات
05-02-16, 06:34 AM
(آخر تعديل لهذه المشاركة : 05-02-16, 06:36 AM {2} بواسطة abuzzouz.)
أخواني الأعزاء هذا ما توصلت إليه بفضل الله تعالى
PHP كود :
For Each Str As String In TextBox1.Text
If TextBox1.Text.Contains(Str & ", " & vbNewLine) Then Exit Sub
If TextBox1.Text.Contains(Str & vbNewLine) Then
TextBox1.Text = TextBox1.Text.Replace(Trim(Str & vbNewLine), Str & ", ")
End If
Next
For Each Str As String In TextBox1.Text
If TextBox1.Text.Contains(", ") Then
TextBox1.Text = TextBox1.Text.Replace(", ", ", " & vbNewLine)
End If
Exit For
Next
فهل لديكم حلول مختصرة لهذا الموضوع
{ اللهم علمنا ما ينفعنا وانفعنا بما علمتنا إنك أنت العليم الخبير }
المشاركات : 147
المواضيع 41
الإنتساب : Jul 2014
السمعة :
1
الشكر: 387
تم شكره 50 مرات في 6 مشاركات
07-02-16, 02:52 PM
(آخر تعديل لهذه المشاركة : 08-02-16, 07:38 AM {2} بواسطة abuzzouz.)
شكراً جزيلاً أخي العزيز Mostafa Saad
لكن بعد التجربة يجب إضافة شرط On Error Resume Next حتى يعمل الكود
تقبل تحياتي
{ اللهم علمنا ما ينفعنا وانفعنا بما علمتنا إنك أنت العليم الخبير }
المشاركات : 40
المواضيع 3
الإنتساب : Feb 2015
السمعة :
1
الشكر: 705
تم شكره 40 مرات في 12 مشاركات
العفو أخي abuzzouz
وقد تم تعديل الأكواد، حيث كانت المشكلة انه يجب الا يكون المؤشر في بداية مربع النص (SS > 0) حتي يمكن البحث عن الحرف في الموقع قبله (SS - 1)
أنا كوني .*.*. أنا أرضي .*.*. أنا عربي .*.*. أنا مصـري