22-12-13, 12:36 AM
كلا الكودان يقومان بانشاء ملف نصي ....
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()
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()

