[ام لارا]

انا عندى نص . فى تكست بوكس وليكن كتاب كامل .

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

هل يمكن عمل هذا

[عمرحربة]

استخدمي الدالة split

[ربيع]

نحمده ونصلي على رسوله الكريم

كود :

[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]

[ام لارا]

جزيت خيرا مثال ممتاز جدا

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

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

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

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

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

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

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

هل يمكن ؟

[SaLoOoMX]

اتمنى يكون المثال الي عملته قريب من طلبك

[مبرمج بلا حدود]

SaLoOoMX كتب :اتمنى يكون المثال الي عملته قريب من طلبك

[COLOR="#006400"]ربي يرضى عنك ويرضيك
جزاك الله الف خير[/COLOR]

[ام لارا]

جزاك الله خير اخى مثال اعجبني لكن ليس ما اقصد

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

وبارك الله فيك

[ربيع]

نحمده ونصلي على رسوله الكريم

كود :

[align=left]Dim str() As String = TextBox1.Text.Split(New Char() {"."c})
TextBox2.Lines = str
[/align]

[ismail2012]

أعتقد أن هذا هو طلبك إن شاء الله

كود :

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

[ام لارا]

شكرا لكم . بوركتم .

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

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

هذه

(s(i))

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

" & (s(i)) & "

ولم تعمل .

كيف استغلها داخل كود