نوشتن متن و فراخوانی آن در VB.Net

[omid_reza]

با سلام و خسته نباشید
چگونه می توان در یک فایل Text موجود در پوشه Bin برنامه یک متن وارد کرد ، محتوای فایل را خالی نماییم و یا به محتوای آن دسترسی یافت ؟
:متفکر:

[reza1944]

System.IO.File
My.Computer.FileSystem.ReadAllText()
My.Computer.FileSystem.WriteAllText()

تمام چيز هاي كه مي خواهي در اين قسمت قرار دارد.

[omid_reza]

با شرمندگی فراوان
آیا امکانش هست یک مثال بزنید ؟
من فراخوانی اش را توانستم اما نوشتن در آن مشکل دارم ؟
با تشکر

[Hossis]

مثالش این هست


texbox1.text=My.Computer.FileSystem.ReadAllText("d:\1.txt")
My.Computer.FileSystem.WriteAllText("d:\1.txt",textbox1.text)

[omid_reza]

دوست عزیز
این مثال را توجه کن

Try
Dim fileName As String = "CN.TXT"
If File.Exists(fileName) Then
Dim ioFile As New StreamReader(fileName)
Dim ioLine As String
Dim ioLines As String
ioLine = ioFile.ReadLine
ioLines = ioLine
While Not ioLine = ""
ioLine = ioFile.ReadLine
ioLines = ioLines & vbCrLf & ioLine
End While
ioFile.Close()
strsqlcon = ioLines
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
در این مثال نیازی به دادن آدرس فایل نیست و مسیر پیش فرض را از پوشه bin می گیرد
در مثال شما ، باید حتما آدرس پاس داده شود که از جایی که مسیر نصب برنامه مشخص نیست یک کم مشکل است
آیا مشابه کد من می توانید برای نوشتن هم مثالی بزنید؟

[Hossis]

در این مثال نیازی به دادن آدرس فایل نیست و مسیر پیش فرض را از پوشه bin می گیرد
در مثال شما ، باید حتما آدرس پاس داده شود که از جایی که مسیر نصب برنامه مشخص نیست یک کم مشکل است
آیا مشابه کد من می توانید برای نوشتن هم مثالی بزنید؟
اگر فایل متنی در همان مسیر برنامه اجرائی باشد،‌نیازی به دادن آدرس نیست بلکه فقط نام فایل را می نویسید.
اما این کدی که نوشتید ،‌خیلی طولانی است ، کدی که بتوان با یک خط نوشت،‌ چرا این همه کد نویسی طولانی کنیم،
این کد ها گاهی سبب کندی برنامه می شود
مثال :
این کد را در برنامه خود وارد کرده و پس از اجرا،‌به عنوان فرم و سپس به شاخه Bin نگاهی بیندازید.
توجه :‌به جای متنی که در این مثال داده شده،‌می توانید محتویات یک تکست باکس را قرار دهید:


IO.File.WriteAllText("1.txt", "My Name Is Ali Ghaderpoor")
Me.Text = IO.File.ReadAllText("1.txt")

[omid_reza]

با عرض پوزش
چگونه می توان محتوای فایل را خالی کرد؟:متفکر: