[haifa8]

-
مساء الخير
اولا اعتذر اذا كان هذا القسم الخطأ لموضوعي لكن عندي اختبار نهائي وبكرا وماني قادره
افهم طريقة هالأكواد ساعدوني ..

* كود الكتابة على الملفات النصيه
private sub button1_click(byval sender as system.object,byval e as system.eventargs)handles button1.click
fileopen(1,"c:filetest.txt",openmode.output)
printline(1,textbox1.text)
fileclose(1)
end sub

------ شوفوا انا وش اسوي وقولوا لي وش الخطأ اللي عندي
الحين مو قبل مااعمل البرنامج اروح اسوي مجلد بـ أسم filetest.txt واحط داخله مستند
واسميه textox1
بعدين ادخل على برنامج الفيجوال بيسك واعمل بوتن وتكيست بوكس واكتب الكود
داخله البوتن ؟
بعدين اشغل البرنامج واكتب اي شيء داخله واروح للمجلد اللي بـ c واحصل داخله
نفس الأسم ؟
بس انا مو راضي معي يكتب الأسم سويت نفس هالخطوات علموني وش الخطأ عندي


* الكود الثاني
انشاء الملف النصي
اضيف هالسطر قبل تعريف الفئه
imports system .io
بعدين اظغط على البوتن واحط كمالة هالكود
dim ft as new filestream("c:\text\file.txt",filemode.create,fileaccess.write)
dim w as new streamwriter(ft)
w.writeline("heloo student")
w.writeline("welcome to lecture")
w.close()

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

وفيه كود ثالث فتح وقراءة الكود
نفس الكود اللي فوق بـ اختلاف بعض الاشياء فيه

*******
اللي محتاسه فيه الحين طريقة تصميم البرنامج وايش الاشياء اللي لازم اسويه بـ c
لأن من الساعه 12 على الجهاز وماظبطت معي ولا طريقه مايطلع معي الشيء اللي اكتبه
بالفيجوال بالمستند النصي

بليز ساعدوني .. ربي يسعدكم

[beep]

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

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
FileOpen(1, "c:filetest.txt", OpenMode.Append)
printline(1, textbox1.text)
fileclose(1)
End Sub


2. وكذلك الكود الثاني يقوم بانشاء ملف نصي في الجلد text الموجود في المشغل c: يجب ان يكون موجود المجلد .... واذا اردت ان يكول للاضافة تجري عليه التعديل ليكون كالاتي

Dim ft As New FileStream("c:\text\file.txt", FileMode.Append, FileAccess.Write)
Dim w As New streamwriter(ft)
w.writeline("heloo student")
w.writeline("welcome to lecture")
w.close()

[mamas1]

أعتقد أنك لم تفهم

PHP كود :

private sub button1_click(byval sender as system.object,byval e as system.eventargs)handles button1.click
fileopen(1,"c:filetest.txt",openmode.output)
printline(1,textbox1.text)
fileclose(1)
end sub 


لديك مشكل في هذا الكود :
إستبدل
c:filetest.txt
ب
C:\filetest.txt
"الحين مو قبل مااعمل البرنامج اروح اسوي مجلد بـ أسم filetest.txt واحط داخله مستند "
خطأ . يجب أن تنشئ ملف تكست و تسميه filetest.txt ,و ليس مجلد. ثم تضع الملف filetest.txt في C:\