منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - معرفة نص مطابق لنص آخر داخل سلسة نصية

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته
كيف يمكنني معرفة نص مطابق لنص آخر داخل سلسة نصية مثلا:
Dim str1 as string = "my name is Ismail"
Dim str2 as string = "your name is Ahmed"
طبعا كلمة name is موجودة في المتغيرين فكيف يمكنني معرفة النص المطابق مع العلم أني لا أعرف النص المطابق كيلا يقول لي شخص استخدم الدالة contains
فهل هناك دالة تقارن بين نصين وترجع النص المطابق لجزء من التص الآخر
إذا لم تكن هناك دالة هل يمكن من أحد الأخزة صنع دالة تقوم بالمهمة

شكرا مقدما

تفضل اخي هذا المثال للبحث عن اي كلمة تحمل حرف معين ويسردها لك بلست بوكس بالتوفيق

انظر هذا المثال

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

كود :

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

ما شاء الله شكرا لكم جميعا
ولكن كنت أريد أن تكون النتيجة بعد المقارنة ترجع النص المطابق كاملا وليس كلمة كلمة

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 

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

ismail2012

SaLoOoMX

amgadtamer

ربيع

ismail2012

amgadtamer