[aftfm]

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

اخواني لدي برنامج اقوم فيه بقراءة الاسطر الخمس الاولى من الملفات نصية بداخل مجلد ووضع الخمسه الاسطر في سطر واحد في ملف نصى آخر
اي كل ملف نصي في سطر

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

PHP كود :

TSD = (var3 + "@" + var4 + "@" + var5 + "@" + var6 + "@" + var7 + "@" + var20 + "@" + var8 + "@") 


في هذه المتغيرات
اريد في حالة وجود تكرار يتم ارسال السطر المكرر الى ListBox3
مرفق المثال وبداخله مجلد خاص بالسجلات وهي عدد 4 سجلات فيها سجلان مكرران

[aftfm]

لم اجد حل

طيب بمعنى آخر

اللست بوكس فيه مثلا عدد 2 اسطر

PHP كود :

123@hh@78@hkj@258@
123@mm@78@hrr@258@ 


هذه الاسطر تعتبر بالنسبة لطلبي مكررة
لأني قمت بتقسيم الأسطر حسب @ ووضع كل جزء في متغير
واعتمدت التغيير في المتغيرات
الاول والثالث والخامس
اي في المثال اعلاة في 123 , 78 , 258

اما في هذه الحالة

PHP كود :

123@hh@78@hkj@258@
333@mm@78@hrr@258@ 


فهي غير مكرر لأن المتغيير الاول مختلف في
123 , 333

هل وضحت الفكرة اريد التكرار بعد تقسيم السطر الى متغيرات
فقط في المتغيير الاول والثالث والخامس إذا تشابهت يعتبر متكرر فيحذف المكرر ويضعه في لست بوكس اخرى

فقط

[Easy4ever]

لم أفهم طلبك بالتحديد لاكن حسب فهمي إنك تريد معرفة السطر مكرر ام لا

أولا قم بتعريف مصفوفه مفتوحة إي لا تحدد عدد الأسطر
طريقة تعريف مصفوفه مفتوحة
Dim Name() As String

الأن تستطيع عند قرآءة سطر تقوم بإدخاله في شرط الشرط هو إذا كان هذا السطر موجود بالمصفوفه يقوم بإضافته في listBox3 خلاف ذالك يقوم بإضافته في المصفوفه
وعند الإنتهاء من قرآءة جميع الأسطر تقوم بتفريغ المصفوفه

[aftfm]

الف شكر اخي العزيز Easy 4ever على الرد

انا اريد استخراج المكرر بناء على جزء محدد في السطر وليس كامل السطر
قمت بتقسيم السطر حسب كركتر الـ (@)
السطر لدي عبارة عن ارقام وحروف يفصل بينهم @
فوضعت كل جزء في متغير أي قمت بتقسيم السطر بناء على @ معتبراًان @ فاصل لكل حقل

واريد التكرار بناء على جزء من هذه المتغيرات مثلا الاول والثالث والخامس
إن كان هناك تشابه في هذه المتغيرات يكون السطر مكرر

وإلا فلا يكون مكرر

وضحت

[aftfm]

من يجيبني على سؤالي هذا مشكورين

[aftfm]

لم اجد الجواب الشافي الى الآن