تقييم الموضوع :
  • 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 ك ب / التحميلات : 24)
الرد }}}}
تم الشكر بواسطة:
#3
انظر هذا المثال


الملفات المرفقة
.rar   compartext.rar (الحجم : 100.11 ك ب / التحميلات : 23)
الرد }}}}
تم الشكر بواسطة:
#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 
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تحميل قيم اكبرid فى الداتا جريد فيو داخل تسكت بوكس araxis 8 244 20-12-16, 08:42 PM
آخر رد: ابراهيم النعيمي
  تضمين ملف exe داخل مشروعك Incubus 2 143 14-12-16, 02:13 PM
آخر رد: Incubus
  [VB.NET] تنسيق التاريخ داخل داتاجريد tifagreet 5 175 12-12-16, 11:04 AM
آخر رد: tifagreet
  تقسيم ip داخل textbox Incubus 2 109 10-12-16, 11:30 PM
آخر رد: Incubus
  [سؤال] حفظ النص المكتوب داخل listBox فارس جراح 7 168 15-11-16, 04:00 AM
آخر رد: LoveVb
  [VB.NET] عدة ملفات نصية rabeh.ram 2 97 13-11-16, 08:13 AM
آخر رد: rabeh.ram
  [VB.NET] سؤال كيف يمكن معرفة التغير في قاعدة البيانات وليد الزنتاني 2 160 10-11-16, 01:20 AM
آخر رد: وليد الزنتاني
  [VB.NET] تحويل التاريخ لسلسلة نصية tifagreet 1 134 01-11-16, 01:28 PM
آخر رد: ممدوح
  معرفة الاشخاص المتصلين بقاعدة البيانات في الشبكة المحلية ببساطة مثل مقاهي الانترنت thevirus 2 170 29-10-16, 06:25 PM
آخر رد: thevirus
Lightbulb المساعدة في معرفة طريقة كتابة الأكواد بشكل صحيح ... Arabia 0 105 26-10-16, 03:18 PM
آخر رد: Arabia

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


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