مساعدة في مثال بسيط يشرح الملفات في فيجيوال بيسك 6

اقتباس

انا بحاول اعرض محتويات الملف في لست فيو

:blink:

اختي شوفي هذا الكتاب الي يتحدث عن الملفات ولو اكو شي ما واضح انشاء احنه موجودين

File_Processing.zip

project_file.rar

الملف المرفق مابيه الفورم التي تحكين عنه ضعيهم كلهم في ملف واحد وارفقيهم وإن شاء الله خير

أولا مافيش داعى للـ List View , الـ List Box كفاية.

واضح أنك عايزة تحملى محتويات ملف سطر بسطر و تضعى كل سطر فى عنصر بالـ List أن كان ده غرضك أبحثى بالمنتدى عن Line Input , أو شوفى الموضوع ده File I/O

السلام عليكم

متاسفه اني بعثت المثال مش كامل والمرفقات بتحوتوي على المثال كامل راح تلاحظوا انو شغال وكل شي تمام بس المعلومات متطايره وما بتدوم ولما اسكر المشروع كاني ما ضفت ولا غيرت اشي بالملف

شكرا الكم لهتمامكم وبتمنى تساعدوني

دمتم بكل خير

project_file.rar

اخي العزيز msayed2004

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

فهمت , فكل سطر به أكتر من بيان , لكن ليه ملاحظة و هيه أن الأعتماد على قواعد البيانات هيكون أفضل من الطريقة دى و لا ايه رأيك ؟!

اوك الي بتحكيه اكيد انا اكتشفت الموضوع لما انهيت المشروع كان الافضل اني استخدم قواعد بيانات بس هلا ممكن اني ارجع اغير ضعب شويه وحابه الاقي حل لمشكلتي كل شي شغال بتقدر تكتب وتحذف وتعدل بس مش دائم كل شي بيتلغى لما تسكر المشروع

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

وهل تعلم واعادة بناء مشروعي بالاستعانه بقاعدة بيانات سهل ولا صعب

بتمنى المساعده اخي msayed2004 وطبعا كل الاخوه الكرام ولكم جزيل الشكر

دمتم بكل خير

ممكن فكرة كـ :

Private Sub Form_Unload(Cancel As Integer)
Dim FF As Integer
FF = FreeFile()

'Assume That The File path is C:\MyFile.txt
Open "C:\MyFile.txt" For Output As #FF
	'Nothing here , we need to clear that file.
Close #FF


FF = FreeFile()

Open "C:\MyFile.TXT" For Append As #FF
	'Using For-Next loop , loop through your list view to collect
	'lines & use the following code to append it to your file.

	'Print #FF, "Line number 1" ' <- Replace it with the line content
	'Print #FF, "Line number 2"
	'Print #FF, "Line number 3"
	'Print #FF, "Line number 4"

	'.......... etc
	'End your loop
Close #FF
End Sub

ما فهمت عليك اخي msayed2004

ممكن توضح ايش قصدك هون وين لازم اضيف هذا الكود ببرنامجي عشان يكون شغال

بحدث الـ Unload زى ما أنا حاطط ;)

بالمناسبة قد تكون فى حلول أفضل لكن حاليا أنا شبه نائم , أو التعبيرر الصح غائب عن الوعى :lol: .

شكرا الك كثير اخي masyed2004

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

رابط الموضوع الجديد هو

/index.php?showtopic=133137

اتمنى ايجاد حل لمشكلتي ... دمتم بكل خير

الاخ maysed2004

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

الحمد لله قمت بتجريبه على نسخه قديمه :wacko:

هل وضعتى الكود دون قرائته ؟

الجزء الأول من الكود لتفريغ الملف و الثانى فكرة أعادة ملئه و ليس كود كامل !

كل الخطوط الخضراء دى مش باينة عندك و لا ايه ؟!

السلام عليكم

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