تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
معرفة نص مطابق لنص آخر داخل سلسة نصية
#1
بسم الله الرحمن الرحيم

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

شكرا مقدما
الرد }}}}
تم الشكر بواسطة:
#2
تفضل اخي هذا المثال للبحث عن اي كلمة تحمل حرف معين ويسردها لك بلست بوكس بالتوفيق


الملفات المرفقة
.rar   WindowsApplication38.rar (الحجم : 70.03 ك ب / التحميلات : 35)
الرد }}}}
تم الشكر بواسطة:
#3
انظر هذا المثال


الملفات المرفقة
.rar   compartext.rar (الحجم : 100.11 ك ب / التحميلات : 33)
الرد }}}}
تم الشكر بواسطة:
#4
نحمده ونصلي على رسوله الكريم
كود :
[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]
الرد }}}}
تم الشكر بواسطة:
#5
ما شاء الله شكرا لكم جميعا
ولكن كنت أريد أن تكون النتيجة بعد المقارنة ترجع النص المطابق كاملا وليس كلمة كلمة
الرد }}}}
تم الشكر بواسطة:
#6
PHP كود :
يصبح الكود هكذا
Imports System
.Text
Public Class Form1

    
Private Sub Button1_Click(sender As ObjectAs EventArgsHandles Button1.Click
        Dim str
() As String TextBox1.Text.Split(" "c)
        
Dim strbuilder As New StringBuilder

        Dim i 
As Integer
        
For 0 To str.Length 1
            
If TextBox2.Text.Contains(str(i).ToStringThen

                strbuilder
.Append(str(i).ToString " ")


            
End If
        
Next i
        MsgBox
(strbuilder.ToString)
    
End Sub
End 
Class 
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] كود يعمل ع next داخل الفورم ahmed shikoo 2 83 07-10-17, 03:50 PM
آخر رد: سعود
  الاستعلام عن تاريخ داخل التقرير السيد الجوهري 0 54 05-10-17, 06:55 AM
آخر رد: السيد الجوهري
  [سؤال] الكتابة داخل الجريد فيو لسه مبتدئ 1 46 30-09-17, 06:04 PM
آخر رد: thevirus
Photo [VB.NET] معرفة من لم يدفع في نظام الفواتير الشهرية ( مهم جدا) Rabeea Qbaha 12 382 24-09-17, 04:36 PM
آخر رد: Rabeea Qbaha
  كيف اربط تكست بوكس مع تكست بوكس اخر داخل تقرير report viewer 78hus78ali 1 67 24-09-17, 01:32 PM
آخر رد: زيد زينوبي
  [سؤال] كيفية نسخ النصوص من داخل ليست بوكس تنمية المعرفة 7 151 12-09-17, 11:15 PM
آخر رد: تنمية المعرفة
  [كود] استفسار داخل اليست بوكس عبدالرحمن المكاوي 3 104 11-09-17, 05:29 PM
آخر رد: سعود الشامان
Lightbulb [مثال] تحويل التاريخ الميلادي الى هجري داخل الداتا جريد من قاعدة بيانات اكسس محمود بكرى 20 547 30-08-17, 02:37 PM
آخر رد: محمود بكرى
  كود لتشغيل اى برنامج داخل نموذج VB.Net konter 3 144 28-08-17, 11:54 AM
آخر رد: konter
  كيفية معرفة رقم تم حذفه وسط ارقام متسلسلة تناسيم 11 317 21-08-17, 11:38 PM
آخر رد: محمود بكرى

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم