(11-08-24, 01:26 AM)Amir_Alzubidy كتب : حل رقم (1) 

PHP كود :

Imports System.IO

Public Class Form1
    ' افترض أن لديك 3 TextBox: txtSearch, txtResults, txtCount
    ' و Button واحد لتنفيذ البحث

    Private Sub btnSearch_Click(sender As Object, e As EventArgs) Handles btnSearch.Click
        Dim searchTerm As String = txtSearch.Text.Trim()
        Dim filePath As String = "C:\path\to\CORAN.txt" ' قم بتحديث المسار إلى المسار الصحيح للملف

        If String.IsNullOrEmpty(searchTerm) Then
            MessageBox.Show("يرجى إدخال كلمة البحث.")
            Return
        End If

        If Not File.Exists(filePath) Then
            MessageBox.Show("الملف النصي غير موجود.")
            Return
        End If

        Dim content As String = File.ReadAllText(filePath)
        Dim lines() As String = content.Split(New String() {Environment.NewLine}, StringSplitOptions.None)
        Dim results As New Text.StringBuilder()
        Dim count As Integer = 0

        For Each line As String In lines
            Dim index As Integer = 0
            While (index = line.IndexOf(searchTerm, index, StringComparison.OrdinalIgnoreCase)) >= 0
                count += 1

                ' العثور على الكلمة السابقة
                Dim startIndex As Integer = Math.Max(0, index - 50)
                Dim previousText As String = line.Substring(startIndex, index - startIndex).Trim()
                Dim previousWord As String = previousText.Split(" "c).LastOrDefault()
                
                ' إضافة النتيجة إلى نتائج البحث
                results.AppendLine($"{previousWord} {searchTerm}")
                
                ' متابعة البحث في نفس السطر
                index += searchTerm.Length
            End While
        Next

        txtResults.Text = results.ToString()
        txtCount.Text = count.ToString()
    End Sub
End Class 


حل اخر باستخدام الريجكس 

PHP كود :

Imports System.IO
Imports System.Text.RegularExpressions

Public Class Form1
    ' افترض أن لديك 3 TextBox: txtSearch, txtResults, txtCount
    ' و Button واحد لتنفيذ البحث

    Private Sub btnSearch_Click(sender As Object, e As EventArgs) Handles btnSearch.Click
        Dim searchTerm As String = txtSearch.Text.Trim()
        Dim filePath As String = "C:\path\to\CORAN.txt" ' قم بتحديث المسار إلى المسار الصحيح للملف

        If String.IsNullOrEmpty(searchTerm) Then
            MessageBox.Show("يرجى إدخال كلمة البحث.")
            Return
        End If

        If Not File.Exists(filePath) Then
            MessageBox.Show("الملف النصي غير موجود.")
            Return
        End If

        Dim content As String = File.ReadAllText(filePath)
        Dim regexPattern As String = String.Format("\b(\w+)?\b\s+{0}\b", Regex.Escape(searchTerm))
        Dim regex As New Regex(regexPattern, RegexOptions.IgnoreCase)
        Dim matches As MatchCollection = regex.Matches(content)
        Dim results As New Text.StringBuilder()
        Dim count As Integer = matches.Count

        For Each match As Match In matches
            If match.Success Then
                Dim previousWord As String = If(String.IsNullOrEmpty(match.Groups(1).Value), "", match.Groups(1).Value)
                results.AppendLine($"{previousWord} {searchTerm}")
            End If
        Next

        txtResults.Text = results.ToString()
        txtCount.Text = count.ToString()
    End Sub
End Class 


(11-08-24, 12:38 PM)Amir_Alzubidy كتب : المعذرة اخي الحبيب ربما هناك مشكلة بعدم فهم السؤال ،
اليك التعديل مجدداً و اتمنى ان يكون حلاً موفقاً . 
ان لم يكن كذلك فلا بأس ، يمكنك ارفاق الملف النصي في ردك القادم للتجربة 
تحياتي لك 

PHP كود :

Imports System.IO
Imports System.Text.RegularExpressions

Public Class Form1
    ' افترض أن لديك 3 TextBox: txtSearch, txtResults, txtCount
    ' و Button واحد لتنفيذ البحث

    Private Sub btnSearch_Click(sender As Object, e As EventArgs) Handles btnSearch.Click
        Dim searchTerm As String = txtSearch.Text.Trim()
        Dim filePath As String = "C:\path\to\CORAN.txt" ' قم بتحديث المسار إلى المسار الصحيح للملف

        If String.IsNullOrEmpty(searchTerm) Then
            MessageBox.Show("يرجى إدخال كلمة البحث.")
            Return
        End If

        If Not File.Exists(filePath) Then
            MessageBox.Show("الملف النصي غير موجود.")
            Return
        End If

        Dim content As String = File.ReadAllText(filePath)
        Dim regexPattern As String = String.Format("(\b\w+\b)?\s+\b{0}\b", Regex.Escape(searchTerm))
        Dim regex As New Regex(regexPattern, RegexOptions.IgnoreCase Or RegexOptions.Multiline)
        Dim matches As MatchCollection = regex.Matches(content)
        Dim results As New Text.StringBuilder()
        Dim count As Integer = matches.Count

        For Each match As Match In matches
            If match.Success Then
                Dim previousWord As String = If(String.IsNullOrEmpty(match.Groups(1).Value), "", match.Groups(1).Value)
                results.AppendLine($"{previousWord} {searchTerm}")
            End If
        Next

        txtResults.Text = results.ToString()
        txtCount.Text = count.ToString()
    End Sub
End Class 


(12-08-24, 01:37 AM)Amir_Alzubidy كتب : اخي الحبيب جزاك الله خير
بارك الله سعيك في خدمة القرآن الكريم 
كما لدي رغبة شديدة بأن اكون جزءً من نجاح هذا العمل لو بالقليل 
هذه محاولة اتمنى ان تؤدي الغرض 
كما اتمنى من الاخوة ممن لديه الخبرة او الطريقة المشاركة لحل هذه المشكلة لنتشارك الاجر 

PHP كود :

private void btnSearch_Click(object sender, EventArgs e)
{
    string searchTerm = txtSearch.Text.Trim();
    string filePath = @"QURAN.txt"; // تأكد من تحديث المسار إلى المسار الصحيح للملف

    if (string.IsNullOrEmpty(searchTerm))
    {
        MessageBox.Show("يرجى إدخال كلمة البحث.");
        return;
    }

    if (!File.Exists(filePath))
    {
        MessageBox.Show("الملف النصي غير موجود.");
        return;
    }

    string content = File.ReadAllText(filePath);
    string regexPattern = $@"(\b\w+\b)?\s+\b{Regex.Escape(searchTerm)}\b";
    Regex regex = new Regex(regexPattern, RegexOptions.IgnoreCase | RegexOptions.Multiline);
    MatchCollection matches = regex.Matches(content);
    StringBuilder results = new StringBuilder();
    int count = matches.Count;

    foreach (Match match in matches)
    {
        if (match.Success)
        {
            string previousWord = string.IsNullOrEmpty(match.Groups[1].Value) ? "" : match.Groups[1].Value;
            results.AppendLine($"{previousWord} {searchTerm}");
        }
    }

    txtResults.Text = results.ToString();
    txtCount.Text = count.ToString();
} 


(13-08-24, 09:52 PM)Taha Okla كتب : إن كنت تبحث عن هدف برمجي،
فقد كفوك الشباب بما قدموه من حلول، وعليك تكييفها لتناسب ما تريد.
ولحلول أكثر فعالية أبحث في جوجل وفي يوتيوب عن Regex وتعلم عنها
فيها أكثر مما يطلب المبرمج العادي بكثير.





أما إن كنت تريد صناعة برنامج ليساعدك في بحوث عن القرآن

فهذا رابط لبرنامج ما ترك شيء إلا ووضع فيه من إحصاء وبحث وترقيم وتجميع .. 

برنامج إحصاء القرآن - تحميل من موقع الكحيل

(15-08-24, 01:33 AM)kebboud كتب : ليست هذه المرة الأولى التي ترد بها على أحد الأخوة بهذا الأسلوب   الجاف المحبط ..
نحن هنا لنتعلم ..
نحن نبحث عن شيء نتعلمه 
لسنا هنا للبحث عن ما ينتجه الآخرون لنستهلكه بغباء ..
عندما طرحت سؤالي هذا لم أكن أتوقع منك أن تغلق باب التعلم بهذه العنجهية و الإنفعالية !!!
الحقيقة أن بعضنا مازال بحاجة أن يتعلم كيف يخاطب الآخرين دون أن يقتل فيهم أمل البحث و العلم