+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=6864)
معرفة نص مطابق لنص آخر داخل سلسة نصية - ismail2012 - 06-11-12
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
كيف يمكنني معرفة نص مطابق لنص آخر داخل سلسة نصية مثلا:
Dim str1 as string = "my name is Ismail"
Dim str2 as string = "your name is Ahmed"
طبعا كلمة name is موجودة في المتغيرين فكيف يمكنني معرفة النص المطابق مع العلم أني لا أعرف النص المطابق كيلا يقول لي شخص استخدم الدالة contains
فهل هناك دالة تقارن بين نصين وترجع النص المطابق لجزء من التص الآخر
إذا لم تكن هناك دالة هل يمكن من أحد الأخزة صنع دالة تقوم بالمهمة
شكرا مقدما
معرفة نص مطابق لنص آخر داخل سلسة نصية - SaLoOoMX - 06-11-12
تفضل اخي هذا المثال للبحث عن اي كلمة تحمل حرف معين ويسردها لك بلست بوكس بالتوفيق
معرفة نص مطابق لنص آخر داخل سلسة نصية - amgadtamer - 06-11-12
انظر هذا المثال
معرفة نص مطابق لنص آخر داخل سلسة نصية - ربيع - 06-11-12
نحمده ونصلي على رسوله الكريم
كود :
[align=left]Dim str1 As String = "my name is Ismail"
Dim str2 As String = "your name is Ahmed"
For Each str As String In str1.ToLower().Split(New Char() {" "})
If str2.ToLower().IndexOf(str) > -1 Then MessageBox.Show(str)
Next
[/align]معرفة نص مطابق لنص آخر داخل سلسة نصية - ismail2012 - 07-11-12
ما شاء الله شكرا لكم جميعا
ولكن كنت أريد أن تكون النتيجة بعد المقارنة ترجع النص المطابق كاملا وليس كلمة كلمة
معرفة نص مطابق لنص آخر داخل سلسة نصية - amgadtamer - 07-11-12
PHP كود :
يصبح الكود هكذا
Imports System.Text
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim str() As String = TextBox1.Text.Split(" "c)
Dim strbuilder As New StringBuilder
Dim i As Integer
For i = 0 To str.Length - 1
If TextBox2.Text.Contains(str(i).ToString) Then
strbuilder.Append(str(i).ToString + " ")
End If
Next i
MsgBox(strbuilder.ToString)
End Sub
End Class