یک سوال در مورد ساختن یک فایل متنی کنار فایل برنامه در VB.Net

[mehdi imani 8]

سلام دوستان و اساتید محترم...
من یک برنامه دارم که میخوام با کلیک روی یک دکمه محتویات درون یک تکست باکس مثلا به نام textbox1 درون یک فایل متنی txt در کنار
فایل اصلی برنامه نوشته بشه و ذخیره بشه...در ضمن با هر بار کلیک روی دکمه کل محتوای قبلی فایل متنی پاک بشه و محتویات جدید نوشته بشه.
(محتویات جدید به قبلی ها اضافه نشن و قبلی ها پاک بشن)
برای اینکار باید از چه کدی استفاده کنم؟؟؟دوستان لطفا کمک کنید:گریه::گریه::گریه:

[gilsoft]

سلام دوستان و اساتید محترم...
من یک برنامه دارم که میخوام با کلیک روی یک دکمه محتویات درون یک تکست باکس مثلا به نام textbox1 درون یک فایل متنی txt در کنار
فایل اصلی برنامه نوشته بشه و ذخیره بشه...در ضمن با هر بار کلیک روی دکمه کل محتوای قبلی فایل متنی پاک بشه و محتویات جدید نوشته بشه.
(محتویات جدید به قبلی ها اضافه نشن و قبلی ها پاک بشن)
برای اینکار باید از چه کدی استفاده کنم؟؟؟دوستان لطفا کمک کنید:گریه::گریه::گریه:

سلام دوست عزیز

از کد زیر استفاده کن:

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
If TextBox1.Text.Trim.Length > 0 Then
Dim FileName As String = IO.Path.Combine(Application.StartupPath, "TextFile.txt")


If IO.File.Exists(FileName) Then IO.File.Delete(FileName)


Dim FS As New FileStream(FileName, FileMode.CreateNew, FileAccess.Write, FileShare.Write)
Dim SW As New StreamWriter(FS, System.Text.Encoding.UTF8)


'For L As Integer = 0 To TextBox1.Lines.GetUpperBound(0)
' SW.WriteLine(TextBox1.Lines(L))
'Next


SW.Write(TextBox1.Text)


SW.Flush()
SW.Close()


FS.Close()
End If
End Sub

موفق باشید ....

[mehdi imani 8]

ممنون از اینکه وقت گذاشتید:چشمک:
خب من اگه بخوام که با هر وقت اجرا شدن برنامه با کلیک روی یک دکمه محتویات آن فایل متنی که قبلا در آن متنی را ذخیره کرده ایم در همان textbox1 نشون
داده بشه باید از چه کدی استفاده کنم؟؟؟:متفکر:

[gilsoft]

ممنون از اینکه وقت گذاشتید:چشمک:
خب من اگه بخوام که با هر وقت اجرا شدن برنامه با کلیک روی یک دکمه محتویات آن فایل متنی که قبلا در آن متنی را ذخیره کرده ایم در همان textbox1 نشون
داده بشه باید از چه کدی استفاده کنم؟؟؟:متفکر:

سلام مجدد

باید از این کد استفاده کنید:
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Dim FileName As String = IO.Path.Combine(Application.StartupPath, "TextFile.txt")


If IO.File.Exists(FileName) Then
Dim FS As New FileStream(FileName, FileMode.Open, FileAccess.Read, FileShare.Read)
Dim SR As New StreamReader(FS, System.Text.Encoding.UTF8)


TextBox1.Text = SR.ReadToEnd()


SR.Close()
FS.Close()
End If
End Sub

موفق باشید .....

[Hossis]

البته دستور اختصاری اش هم هست
برای ذخیره در فایل
io.file.writealltext("txtFile.txt",textbox1.text)

و برای خواندن از فایل به تکست باکس
textbox1.text=io.file.readalltext("txtfile.txt")

[mehdi imani 8]

سلام با تشکر از دوستانی که جواب دادند:تشویق:
با توجه به اینکه کد آقای gilsoft و Hossis هر دو یک کارو انجام می دهند ولی کد آقای gilsoft طولانی تره
چه تفاوتی بین این کدها وجود داره؟؟؟