انا عندى نص . فى تكست بوكس وليكن كتاب كامل .
اريده اذا وجد أمامه نقطة أو فاصلة ينفذ كود معين . ثم ينتقل الى الجملة التى تليها بعد وقت محدد وعندما يقابل نقطة او فاصلة يرسل الكود ، وهكذا كلما قابل نقطة او فاصلة حتى ينتهى من الكتاب
هل يمكن عمل هذا
نحمده ونصلي على رسوله الكريم
كود :
[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 كتب :اتمنى يكون المثال الي عملته قريب من طلبك
[COLOR="#006400"]ربي يرضى عنك ويرضيك
جزاك الله الف خير[/COLOR]
جزاك الله خير اخى مثال اعجبني لكن ليس ما اقصد
انا اريده يبدأ قراء من بعد النقطة حتى النقطة التى تليها وهكذا حتى ينهى النص كاملا .
وبارك الله فيك
نحمده ونصلي على رسوله الكريم
كود :
[align=left]Dim str() As String = TextBox1.Text.Split(New Char() {"."c})
TextBox2.Lines = str
[/align]
أعتقد أن هذا هو طلبك إن شاء الله
كود :
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)) & "
ولم تعمل .
كيف استغلها داخل كود