موضوع مثبت.
X
X

ملف مفتوح ...تصميم اسطوانة للقران الكريم ...بحث و استعراض

AutoPlay Media Studio and Generate All In One Tutorials

 
  • Filter
  • Time
  • عرض
مسح الكل
مشاركات جديدة

    السلام عليكم ورحمة الله وبركاته

    اولا يجب ان ننوه ان فيه الكثير من المحاولات و الملفات في المنتدى حول كيفية انشاء برامج و تصميم موسوعة للقران الكريم
    ونحن هنا من اجل محاولة جديدة باستعمال ملفات تكست txt

    اولا يجب ان ننشا قاعدة البيانات التي نعمل عليها


    هذا هو ملف المصحف الشريف كاملا بصيغة txt

    *
    او
    من المرفقات

    الان اريد تقسيمه الى ملفات تكست txt لكل سورة على حدى





    ---------------------------------
    اولا نضع قائمة السور القرانية في قائمة تكست
    *
    او
    من المرفقات

    الان مع الكود
    نزرع في زر معين هذا الكود


    PHP Code:
    sora TextFile.ReadToTable("AutoPlay\\Docs\\ListeSoar.txt");

    txt TextFile.ReadToString("AutoPlay\\Docs\\TouCoran.txt");

    for 
    i,v in pairs(sora)do
       if 
    i<#sora then
       
    find String.Find(txtv1);
       
    find2 String.Find(txtsora[i+1], find);
       
    nas String.Mid(txtfindfind2-find);
       
    TextFile.WriteFromString("AutoPlay\\Docs"..v..".txt"nas)
       elseif 
    i==114 then
       find 
    String.Find(txtv1);
       
    find2 String.Find(txt,"6)"find);
       
    nas String.Mid(txtfindfind2-find);
       
    TextFile.WriteFromString("AutoPlay\\Docs"..v..".txt"nas)
      
       
    end  
    end 
    ابحث في ملف Docs ستجد كل سورة وحدها باسمها



    بالتوفيق
    اخؤ تحدث للمشوع
    *
    الملفات المرفقة
    آخر تعديل بواسطة: عبد الهادي بهاب, 26-06-2020, 11:10 PM.
    Similar Threads

    #2
    السلام عليكم ورحمة الله وبركاته
    بعد استخراج السور يكون شكلها كالتالي



    نريد ان نحذف السطرين الاولين 1 . 2
    ثم نحذف ارقام الايات و الاقواس
    و نجعل كل اية في سطر من اجل خاصية البحث
    -----------------------------
    من اجل حفظ العمل ...نضع مجلد جديد في ملف docs و نسميه soar
    كي نحفظ فيه ملفات السور القرانية التي تحتوي على ايات فقط كل في سطر
    نضع زر و نزرع الكود التالي

    PHP Code:

    sora 
    File.Find("AutoPlay\\Docs""*.txt"truetruenilnil);
    for 
    i,vin in pairs(sora)do
    Input.GetText("Input1");
    Mtxt TextFile.ReadToTable("AutoPlay\\Docs"..v..".txt");
    Table.Remove(Mtxt1);
    Table.Remove(Mtxt1);
    txt Mtxt[1];
    txt String.Replace(txt"(""");
    txt String.Replace(txt"0""");
    txt String.Replace(txt"1""");
    txt String.Replace(txt"2""");
    txt String.Replace(txt"3""");
    txt String.Replace(txt"4""");
    txt String.Replace(txt"5""");
    txt String.Replace(txt"6""");
    txt String.Replace(txt"7""");
    txt String.Replace(txt"8""");
    txt String.Replace(txt"9""");
    txt String.Replace(txt")""\r\n");
    TextFile.WriteFromString("AutoPlay\\Docs\\soar"..v..".txt"txt);
    end 
    سيكون لديك الشكل بعد العمل كالتالي




    وهكذا انتهت مرحلة انشاء قاعدة البيانات

    بالتوفيق
    تعليق

      #3
      الان عندنا قاعدة بيانات فيها السور كل واحدة على حدى
      ------------------
      نضع انبوت للبحث
      نضع زر للبحث
      نضع بارغراف paragraph لعرض الاية
      نضع ليستبوكس لعرض كل السور التي يوجد فيها النص المبحوث عنه
      ممكن نضيف له لبيال لعرض كم اية في القران موجود فيها الكلمة المبحوث عنها
      نضيف زر لنسخ الاية في ذاكرة الحاسوب
      -----------------
      الشكل المطلوب المقترح

      تعليق

        #4

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

        الموضوع الاصلي
        *



        تعليق

          #5
          الان قبل كل شيء نمحو محتوى الليسبوكس
          ثم نحدف تشكيل الانبوت
          ثم نستعرض السور ومحواها بدون تشكيل ايضا و نقارن
          اذا وجدنا تطايق نسجل السورة في اليسبوكس و في data نسجل الاية فقط
          ليتم استعرضها في البارغارف

          في زر البحث نضع الكود

          PHP Code:

          ListBox
          .DeleteItem("ListBox1"LB_ALLITEMS);
          ---------------------
          istibdalate={["ó"] = "",["ð"] = "",["õ"] = "",["ö"] = "",["ú"] = "",["ø"] = "",["ö"] = "",["ñ"] = ""}
          Input.GetText("Input1");
          serch string.gsub (m".",istibdalate) ;
          -----------
          tot =0cla "";
          sora File.Find("AutoPlay\\Docs\\soar""*.txt"truetruenilnil);
          Ordre TextFile.ReadToTable("AutoPlay\\Docs\\ListeSoar.txt");
          for 
          i,vin in pairs(sora)do
           
          String.SplitPath(vin).Filename;
           for 
          x=1,#Ordre do if v == Ordre[x] then cla = x end end
          --  vin "AutoPlay\\Docs\\soar"..v..".txt";
            
          Nasora TextFile.ReadToTable(vin);
            
            for 
          p,Ntext in pairs(Nasora) do
            
          text string.gsub (Ntext".",istibdalate) ;
            
          find String.Find(textserch1false);
              if 
          find ~= -1 then tot tot+1;
            
          ListBox.AddItem("ListBox1",v.."("..cla..")"Ntext.."\r\n".."ÇáÂíÉ ÑÞã  "..p);
            
          end  
            end
          end
          Label
          .SetText("Label1"tot

          النتيجة



          شكرا
          تعليق

            #6
            ---------لمن لايريد مباشرة الزبدة .......

            الملف المفتوح :
            *
            وبالمرفقات

            https://www.youtube.com/watch?v=tSmX...ature=youtu.be

            طبعا لكم اضافة مقدمة و شكل البحث و و و
            ممكن اضافة خصائص البحث
            او استعراض الاية في richtext بكشل ملون
            الملفات المرفقة
            تعليق

              #7
              بارك الله فيك أخي العزيز
              تعليق

                #8

                جزاك الله كل خير
                الى الامــ والله الموفق ــــــام

                تعليق

                  #9
                  شكرا على الملف المفتوح ، ولكن كلمة الكسالى مؤلمة ياريت وفضلا حذفها
                  تعليق

                    #10
                    Originally posted by zaza-14 عرض المشاركة
                    شكرا على الملف المفتوح ، ولكن كلمة الكسالى مؤلمة ياريت وفضلا حذفها
                    هههههههه ...كثيرا في مثل هذه الحالات لا يقوم هؤلاء الاخوة ربي يحفظهم بالمراحل و تعلم الاكواد بل يرديون الملف المفتوح مباشرة دون تعب ولا شيء و قد وضعت الموضوع للتعلم
                    لكن حاضر
                    تعليق
                    Working...
                    X