+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : تقسيم النص حسب النقطة والفاصلة (/showthread.php?tid=7209)
الصفحات:
1
2
تقسيم النص حسب النقطة والفاصلة - ام لارا - 01-12-12
انا عندى نص . فى تكست بوكس وليكن كتاب كامل .
اريده اذا وجد أمامه نقطة أو فاصلة ينفذ كود معين . ثم ينتقل الى الجملة التى تليها بعد وقت محدد وعندما يقابل نقطة او فاصلة يرسل الكود ، وهكذا كلما قابل نقطة او فاصلة حتى ينتهى من الكتاب
هل يمكن عمل هذا
تقسيم النص حسب النقطة والفاصلة - عمرحربة - 01-12-12
استخدمي الدالة split
تقسيم النص حسب النقطة والفاصلة - ربيع - 02-12-12
نحمده ونصلي على رسوله الكريم
كود :
[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]تقسيم النص حسب النقطة والفاصلة - ام لارا - 02-12-12
جزيت خيرا مثال ممتاز جدا
لكن انا اريد مكان مسج بوكس
اريده يرسل ما قبل النقطة الى مكان معين وليكن تكست بوكس آخر
ثم اذا وجد نقطة يقف ، ويرسل الجملة التى تليها وهكذا
اقصد يرسل كل جملة وحدها ،
الحمد لله رب العالمين . الرحمن الرحيم . مالك يوم الدين
عندما اضغط ارسال :
يرسل الحمد لله رب العالمين ويقف . ثم برسل الرحمن الرحيم ويقف عند النقطة ، وهكذا .
هل يمكن ؟
تقسيم النص حسب النقطة والفاصلة - SaLoOoMX - 02-12-12
اتمنى يكون المثال الي عملته قريب من طلبك
تقسيم النص حسب النقطة والفاصلة - مبرمج بلا حدود - 02-12-12
SaLoOoMX كتب :اتمنى يكون المثال الي عملته قريب من طلبك
[COLOR="#006400"]ربي يرضى عنك ويرضيك
جزاك الله الف خير[/COLOR]
تقسيم النص حسب النقطة والفاصلة - ام لارا - 03-12-12
جزاك الله خير اخى مثال اعجبني لكن ليس ما اقصد
انا اريده يبدأ قراء من بعد النقطة حتى النقطة التى تليها وهكذا حتى ينهى النص كاملا .
وبارك الله فيك
تقسيم النص حسب النقطة والفاصلة - ربيع - 04-12-12
نحمده ونصلي على رسوله الكريم
كود :
[align=left]Dim str() As String = TextBox1.Text.Split(New Char() {"."c})
TextBox2.Lines = str
[/align]تقسيم النص حسب النقطة والفاصلة - ismail2012 - 04-12-12
أعتقد أن هذا هو طلبك إن شاء الله
كود :
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تقسيم النص حسب النقطة والفاصلة - ام لارا - 05-12-12
شكرا لكم . بوركتم .
اخ اسماعيل . بالضبط - بارك الله فيك .
لكن كيف اضعها فى كود ارسال .
هذه
(s(i))
ووضعتها هكذا داخل كود يرسل رسالة الى مكان ما
" & (s(i)) & "
ولم تعمل .
كيف استغلها داخل كود