تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تقسيم النص حسب النقطة والفاصلة
#1
انا عندى نص . فى تكست بوكس وليكن كتاب كامل .

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

هل يمكن عمل هذا
الرد }}}}
تم الشكر بواسطة:
#2
استخدمي الدالة split
الرد }}}}
تم الشكر بواسطة:
#3
نحمده ونصلي على رسوله الكريم
كود :
[align=left]Dim str() As Char = TextBox1.Text.ToCharArray()

Dim dot As Single = 0
Dim comma As Single = 0

For Each c As Char In str
    If c = "." Then
        MessageBox.Show("نقطة")
        dot += 1
    End If

    If c = "," Or c = "،" Then
        MessageBox.Show("فاصلة")
        comma += 1
    End If
Next

MessageBox.Show(String.Format("عدد النقاط: {0}" & vbCrLf & "عدد الفواصل: {1}", dot.ToString(), comma.ToString()))
[/align]
الرد }}}}
تم الشكر بواسطة:
#4
جزيت خيرا مثال ممتاز جدا

لكن انا اريد مكان مسج بوكس

اريده يرسل ما قبل النقطة الى مكان معين وليكن تكست بوكس آخر

ثم اذا وجد نقطة يقف ، ويرسل الجملة التى تليها وهكذا

اقصد يرسل كل جملة وحدها ،

الحمد لله رب العالمين . الرحمن الرحيم . مالك يوم الدين

عندما اضغط ارسال :

يرسل الحمد لله رب العالمين ويقف . ثم برسل الرحمن الرحيم ويقف عند النقطة ، وهكذا .

هل يمكن ؟
الرد }}}}
تم الشكر بواسطة:
#5
اتمنى يكون المثال الي عملته قريب من طلبك


الملفات المرفقة
.rar   Simple text send.rar (الحجم : 62.65 ك ب / التحميلات : 98)
الرد }}}}
تم الشكر بواسطة:
#6
SaLoOoMX كتب :اتمنى يكون المثال الي عملته قريب من طلبك

[COLOR="#006400"]ربي يرضى عنك ويرضيك
جزاك الله الف خير[/COLOR]
الرد }}}}
تم الشكر بواسطة:
#7
جزاك الله خير اخى مثال اعجبني لكن ليس ما اقصد

انا اريده يبدأ قراء من بعد النقطة حتى النقطة التى تليها وهكذا حتى ينهى النص كاملا .

وبارك الله فيك
الرد }}}}
تم الشكر بواسطة:
#8
نحمده ونصلي على رسوله الكريم
كود :
[align=left]Dim str() As String = TextBox1.Text.Split(New Char() {"."c})
TextBox2.Lines = str
[/align]
الرد }}}}
تم الشكر بواسطة:
#9
أعتقد أن هذا هو طلبك إن شاء الله
كود :
Public Class Form1
    Dim s() As String
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        s = TextBox1.Text.Split(".")

        For i As Integer = 0 To s.Length - 1

            MsgBox(s(i))

        Next

    End Sub
End Class
الرد }}}}
تم الشكر بواسطة:
#10
شكرا لكم . بوركتم .

اخ اسماعيل . بالضبط - بارك الله فيك .

لكن كيف اضعها فى كود ارسال .

هذه

(s(i))

ووضعتها هكذا داخل كود يرسل رسالة الى مكان ما

" & (s(i)) & "

ولم تعمل .

كيف استغلها داخل كود
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تقسيم الطلاب الي مجموعات atefkhalf2004 2 85 16-09-17, 09:06 PM
آخر رد: أبو نوره
  حفظ النص بما فيه حجمه في my sittings visualist2015 1 49 15-09-17, 08:30 PM
آخر رد: سعود
  [VB.NET] احتاج كود وضع علامة خلف النص The Light Fire 1 82 12-09-17, 02:05 AM
آخر رد: hglogtd
  [سؤال] طريقة الفرز داخل مربع النص abosaleh56 5 206 12-07-17, 10:23 AM
آخر رد: abosaleh56
  [VB.NET] طلب كود جلب النص الي في الصورة A-R 2 185 22-04-17, 03:51 PM
آخر رد: A-R
  تقسيم الحروف و اظهارهن في مسج بزك على التوالي Basil Abdallah 4 234 01-03-17, 12:30 PM
آخر رد: Basil Abdallah
  مشكلة في عرض النص بالعربي في #Region فقط ali.alfoly 1 202 22-02-17, 02:50 AM
آخر رد: مساعدة
  كيف يمكن تثبيت رقم داخل مربع النص والنموذج فى وضع العرض السيد الجوهري 5 427 28-01-17, 02:25 AM
آخر رد: السيد الجوهري
  كيف يمكن تحريك مربعات النص على التقرير السيد الجوهري 3 333 27-01-17, 11:29 PM
آخر رد: السيد الجوهري
  تقسيم مصفوفة الى قسمين bidaya 19 756 25-01-17, 09:13 PM
آخر رد: silverlight

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


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