فاصلة نهاية كل جملة نصية

تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
فاصلة نهاية كل جملة نصية
#1
Question 
السلام عليكم
اخواني الأفاضل أسعد الله أوقاتكم بالخير والمحبة
لدي استفسار لو تكرمتم عن إمكانية وضع فاصلة بنهاية كل جملة نصية وذلك بشكل تلقائي إما مع كل ENTER  لأخذ سطر جديد أو بعد الإنتهاء من إدخال النص كاملاً (أي عند الحفظ)


ولكم جزيل الشكر
{ اللهم علمنا ما ينفعنا وانفعنا بما علمتنا إنك أنت العليم الخبير }
الرد
تم الشكر بواسطة:
#2
أخواني الأعزاء هذا ما توصلت إليه بفضل الله تعالى

PHP كود :
       For Each Str As String In TextBox1.Text
            If TextBox1
.Text.Contains(Str ", " vbNewLineThen Exit Sub
            If TextBox1
.Text.Contains(Str vbNewLineThen
                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 

فهل لديكم حلول مختصرة لهذا الموضوع
{ اللهم علمنا ما ينفعنا وانفعنا بما علمتنا إنك أنت العليم الخبير }
الرد
تم الشكر بواسطة: VB_Local
#3
Lightbulb 

السلام عليكم.
سيكون عليك وضع هذا الكود في الحدث  KeyDown الخاص بـ TextBox1 :

PHP كود :
Dim SS As Integer TextBox1.SelectionStart
Dim LastChar 
As Char "a"
If SS 0 Then
LastChar 
TextBox1.Text.Chars(SS 1)
End If

If 
e.KeyCode Keys.Enter AndAlso SS 0 AndAlso (LastChar <> Chr(10)) AndAlso (LastChar <> Chr(13)) AndAlso (LastChar <> ","Then
        TextBox1
.SelectedText ","
End If 

حيث أن :
♦ في البداية نحدد موقع المؤشر داخل مربع النص كما نحدد اخر حرف تمت كتابته داخله .
♦ ثم نتحقق من الشروط لوضع الفاصلة (أن يتم ضغط زر Enter - الا يكون المؤشر في بداية مربع النص - الا يكون اخر ما تم كتابته هو سطر جديد او فاصلة) .
♦ إذا ما توافرت الشروط يتم إضافة الفاصلة .




واستخدام ذلك قبل الحفظ :

PHP كود :
If Not TextBox1.Text.EndsWith(","Then
        TextBox1
.Text &= ","
End If 

أنا كوني .*.*. أنا أرضي .*.*. أنا عربي .*.*. أنا مصـري
الرد
تم الشكر بواسطة: abuzzouz
#4
شكراً جزيلاً أخي العزيز Mostafa Saad

لكن بعد التجربة يجب إضافة شرط  On Error Resume Next حتى يعمل الكود

تقبل تحياتي
{ اللهم علمنا ما ينفعنا وانفعنا بما علمتنا إنك أنت العليم الخبير }
الرد
تم الشكر بواسطة: Mostafa Saad
#5
العفو أخي abuzzouz
وقد تم تعديل الأكواد، حيث كانت المشكلة انه يجب الا يكون المؤشر في بداية مربع النص (SS > 0) حتي يمكن البحث عن الحرف في الموقع قبله (SS - 1)

أنا كوني .*.*. أنا أرضي .*.*. أنا عربي .*.*. أنا مصـري
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Photo [VB.NET] المساعدة - في جملة الاستعلام MOHAMED_AWAD 3 62 أمس, 08:15 PM
آخر رد: elgokr
  مساعدة في جملة إستعلام نور الهدى الهدى 20 380 09-08-18, 12:09 PM
آخر رد: نور الهدى الهدى
Sad كود أختيار رقم او جملة بشكل عشوائي aldery 2 111 03-06-18, 10:07 AM
آخر رد: سعود
  هل جملة الاستعلام هذه صحيحة ام خاطئة من فضلكم؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ hassan 14 25 511 29-05-18, 08:58 PM
آخر رد: elgokr
  هل جملة الاستعلام هذه صحيحة ام خاطئة من فضلكم؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ظظ hassan 14 1 81 26-05-18, 01:24 AM
آخر رد: elgokr
  سؤال في جملة select تناسيم 3 102 15-05-18, 06:30 PM
آخر رد: عبدالله الدوسري
  جملة الإتّصال بقاعدة البيانات على SQL SERVER عبد العزيز البسكري 20 735 25-04-18, 04:53 PM
آخر رد: atefkhalf2004
  خطأ في جملة الاتصال atefkhalf2004 12 293 24-04-18, 01:56 PM
آخر رد: atefkhalf2004
  [VB.NET] ماهوالخطاء ..خطأ في بناء جملة INSERT INTO. moahmmed 4 175 18-04-18, 12:00 AM
آخر رد: moahmmed
  [VB.NET] عند استيراد قيم نصية من ملف نصي تظهر الكلمات العربية بالشكل ؟؟؟؟؟ يا ريت اجد يساعدني alaa.altunsi 3 143 06-04-18, 02:12 PM
آخر رد: alaa.altunsi

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


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