السلام عليكم
آسف على الازعاج للمره الثانية ..
حاولت اتباع قواعدكم ...بحثت في المنتدى ولم اجد الطريقة قد يكون السبب اني لا اعلم طريقة البحث في منتداكم..
اريد الكتابه في ملف باستخدام الكونسول ..
مع العلم اني حاولت وهذا هو كود المحاوله ...لكنه لا ينفذ!
Module Module1
Sub Main()
Dim soso As New IO.FileStream("c:\data.txt", IO.FileMode.Open, IO.FileAccess.Write)
Dim fofo As New IO.StreamWriter(soso)
Console.Write(sr.ReadToEnd)
dim x as string
x = "ok!"
fofo.NewLine = x
End Sub
End Module
ارجو الرد لاني اقوم بعمل مشروع وقد توقفت عند هذه النقطه
يوجد مثال واضح في الhelp تبع فيجوال بيسك 2003
<span style='color:green'>سؤل ابن عباس عن علمه كيف جمعه فقال :( أوتيت لسانا سؤولا وقلبا عقولا)</span>
خذ الحل
Imports System
Imports System.IO
Class Test
Public Shared Sub Main()
' Create an instance of StreamWriter to write text to a file.
Using sw As StreamWriter = New StreamWriter("TestFile.txt")
' Add some text to the file.
sw.Write("This is the ")
sw.WriteLine("header for the file.")
sw.WriteLine("-------------------")
' Arbitrary objects can also be written to the file.
sw.Write("The date is: ")
sw.WriteLine(DateTime.Now)
sw.Close()
End Using
End Sub
End Class
<span style='color:green'>سؤل ابن عباس عن علمه كيف جمعه فقال :( أوتيت لسانا سؤولا وقلبا عقولا)</span>
الف شكر ...جعله الله في موازينك
هذا الموضوع مغلق.