مبتدى و اريد عمل برنامج صغير جدا

هذه فكرة ان شاء الله تفي بالغرض

قم باستيراد هذه الملفات داخل برنامج الاكسس ثم قم بعمل استعلام لاظهار المتكررات في هذا الملف النصي

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

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

ومن خلال زر حذف يتم حذف هذه البيانات المكررة

حاول التنفيذ

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

بعد فكرة الحاج محمد

ممكن كمان تقرا الملف باستخدام StreamReader عادى جدا أو تستخدم my.Computer.FileSystem.ReadAllText

المهم بعد ماتقرا الملف فى متغير معين وليكن اسمه buffer

هاتقسم الداتا دى بدلالة السطر الجديد (لو أن كل كلمة فى سطر) باستخدام buffer.Split وهاتخزن المصفوفة اللى هاتطلع فى متغير من نوع مصفوفة حرفية Array of String

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

بعد ماتخلص عناصر المصفوفة كلها اربط العناصر تانى باستخدام Join

بارك الله فيك يا أخي الغالي Ghost2010

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

أيضا موضوع التعامل مع الملفات النصية الخارجية باستخدام System.IO اعتقد سيزيد الموضوع صعوبة

اقتباس

مبتدى و اريد عمل برنامج صغير جدا

سنعرف من خلال رد العضو الحل الامثل لحل مشكلتة

اقتباس

البلد: شبين القناطر-القليوبية-مصر

لاحظت انك من شبين القناطر

علي فكرة انا من طوخ

يعني بلديات

الاخ محمد فؤاد تركي

مثل ما قلت لم افهم شي و ذلك لانني اليوم قمت بتنصيب برنامج الفجول بيسك على الجهاز ولم اعرف اسوي شي

على العموم يا اخواي محمد فؤاد تركي انت تقول ......... قم باستيراد هذه الملفات داخل برنامج الاكسس

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

طلب اخير اخواني انا اريد هذا البرنامج ليقوم بتسهيل اعمال كثيرة لي

فاليت لو احد يقدر يساعدني و يسوية ليه لنني مبتدى في هذه اللغة و احتاج وقت طويل في عمل البرنامج و انا محتاجة ضروري

و اكونه من الشاكرين

اقتباس

علي فكرة انا من طوخ

تسلم يامعلم أخيرا لقيت حد من القليوبية

ياريت نكون على اتصال :wink: تليفونى فى التوقيع :blush:

اقتباس

طلب اخير اخواني انا اريد هذا البرنامج ليقوم بتسهيل اعمال كثيرة لي

فاليت لو احد يقدر يساعدني و يسوية ليه لنني مبتدى في هذه اللغة و احتاج وقت طويل في عمل البرنامج و انا محتاجة ضروري

ان شاء الله لو ماحدش وضع مثال هاعمل لك مثال وارفعه لكن غدا علشان انا مشغول جدا النهاردة :wub:

الله يوفقك اخي GHOST2010 ويجزاك الله الف خير

في انتظارك اخي .....

أخي الفاضل

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

بخصوص 10 مليون سجل فلايوجد اي مشكلة فاذا كان برنامج الاكسس لا يستطيع ان يستوعب هذا العدد فعندنا حلول اخري

لذلك يمكننا بالاستعانة بالبرنامج العملاق SQL Server والذي يستطيع ان يحمل كم هائل جداً من البيانات لذلك قم بعمل استيراد للملف النصي داخل برنامج SQL

لبناء الاستعلام اللازم لاظهار التكرارات لان اساس ايجاد التكرارات في البيانات هي جمل الاستعلام ومن ثم عرض النتائج في برنامج الدوت نت وحذفها

عموماً هذا ليس ما يهمني الاهم من كل شيء انك مستعجل جداً في الوصول لغايتك بدون دراسة او علم لذلك ما يهمني الان هو ان تتعلم طريقة التعامل مع المجلدات والملفات الخارجية فمن خلال هذه الادوات يمكنك فعل الكثير من الامور تسهل عليك عملك

فمن أهّم المهامّ في البرمجة، تعاملك مع الملفّات لحفظ واستعادة البيانات

في البداية يجب أن تعرفَ أنّ كلّ هذه الخلايا مجموعةٌ تحت الاسم System.IO، حيث IO هي اختصار InputOutPut أي المدخلات والمخرجات

عموماً يوجد بأرشيف المنتدي مواضيع تتحدث عن طريقة التعامل مع الملفات والمجلدات حاول انك تتعلم من خلالها

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

اذهب الي السواقة

C:\

ثم قم بانشاء ملف نصي جديد باسم Items واكتب بداخلة من 1 الي عشرة

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

اولاً يجب عليك ان تضع في فضآت الاسماء

Imports System.IO

ثم في حدث الضغط علي زر تنفيذ هذا الكود

Private Sub Proceed_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Proceed.Click
		Dim FS As New FileStream("C:\Items.txt", FileMode.Open)
		Dim SR As New StreamReader(FS)
		Dim itm As Object
		Do
			itm = SR.ReadLine()
			If itm = Nothing Then Exit Do
			ListBox1.Items.Add(itm)
		Loop
		SR.Close()
		FS.Close()
End Sub

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

وهذه هي النتيجة

Read_from_text_file.rar

مشكور اخي محمد فؤاد تركي على مشاركتك القيمة

ولكن مثل ما قلت هذا فقط مثال

------------------------------------

لقد رايت صورة من البرنامج بالفجول بيسك للذي اريده

اقدر اختار الملف النصي و احفظ و يحفظ لي الملف طبعا بعد حذف التكرار

بس المشكلة ان الموقع التي سالت عن سعر البرمجة ارسل لي هذه الصورة ( في المرفقات )

وقال لي انه يعالج 10 مليون سطرو حذف التكرار في مدة اقل من 10 دقائق ولا يعتمد على قواعد بيانات بس يلزم تثبيت برنامج NET Framework

وسعر البرنامج 3500 ريال هل هذا معقول يا اخواني مع انني عندما استفسرت لم اطلب من البرمجة فقط كم تكلفة البرنامج و رد علي في نفس اليوم

اي ان برمجة للبرنامج لم تاخذ منه وقت طويل و السعر عالي جدا

فمجهودكم معي اخواني للان احتاج للبرنامج ضروري وفي انتظارك اخي GHOST2010

وان شاء الله تساعدني اخي محمد فؤاد تركي وجزاك الله الف خير على مجهودك معي