تقييم الموضوع :
  • 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 ك ب / التحميلات : 87)
الرد }}}}
تم الشكر بواسطة:
#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)) & "

ولم تعمل .

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تقسيم text الى عدة listbox rabeh.ram 4 98 22-11-16, 12:06 AM
آخر رد: rabeh.ram
  [VB.NET] تقسيم ملف نصي rabeh.ram 3 141 16-11-16, 02:02 AM
آخر رد: rabeh.ram
  [سؤال] حفظ النص المكتوب داخل listBox فارس جراح 7 106 15-11-16, 04:00 AM
آخر رد: LoveVb
  سؤال : عن داتا قريد تقسيم قيمة الى عمودين abid 5 123 13-10-16, 04:40 AM
آخر رد: abid
  تقسيم ال textbox حسب محتوى hano 2 89 12-10-16, 08:18 PM
آخر رد: أبو ناصر
  دالة لجعل مربع النص لا يقبل حروف atefkhalf2004 6 136 17-09-16, 12:38 AM
آخر رد: أبو عمر
  [سؤال] النص في اداة RichTextBox soper 3 127 06-09-16, 05:49 PM
آخر رد: soper
  خاصية توزيع النص داخل التكست بوكس hglogtd 10 272 08-08-16, 09:04 AM
آخر رد: hglogtd
  كيف الى تقسيم الملف الى اثنين او ثلاث سعود 12 327 12-07-16, 12:40 PM
آخر رد: الوادي
  [VB.NET] تقسيم النص ادخل و ستفهم ileyslyes 4 184 12-06-16, 11:52 PM
آخر رد: mohamed haroon

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


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