데이터를 텍스트 파일에 저장하는 방법은 무엇입니까?

Question

기본적으로, 나는이 프로그램을 가지고있다. 링크를 클릭하면 열린다. 하지만 내가 입력 한 모든 링크가 저장되지는 ​​않습니다. 이름 목록과 링크 목록이 있습니다. 단추로 링크와 이름을 추가 한 다음 '보기'링크를 열 수 있습니다. 나는 주로 이것을 youtubers 및 streamers에 사용하려고했습니다. 여기에 코드가 있습니다. 난 당신이 File.CreateText(Path) 사용하는 볼 첫번째 모습이 기능은 지금은 데이터가 무엇인지 이전 파일을 덮어 쓰게됩니다, 그래서 당신은 당신의 데이터를 기록 할 때마다 후 덮어 쓰기에 의해 삭제로

Imports System.IO 

Public Class Form1 

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 

     Dim NamePath As String = ("C:\Favoriter\NameList.txt\") 
     Dim nsr As StreamReader 
     nsr = New StreamReader(NamePath) 
     Do Until nsr.EndOfStream 
      lstName.Items.Add(nsr.ReadLine) 
     Loop 
     nsr.Close() 

     Dim URLPath As String = ("C:\Favoriter\URLList.txt\") 
     Dim usr As StreamReader 
     usr = New StreamReader(URLPath) 
     Do Until usr.EndOfStream 
      lstURL.Items.Add(usr.ReadLine) 
     Loop 
     usr.Close() 

    End Sub 

    Private Sub Form1_Closing(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 

     Dim NamePath As String = ("C:\Favoriter\NameList.txt\") 
     Dim nsw As StreamWriter 
     nsw = File.CreateText(NamePath) 
     Dim NameItems As String 
     Do Until lstName.Items.Count.Equals(0) 
      NameItems = lstName.Items.Item(0) 
      lstName.Items.RemoveAt(0) 
      nsw.WriteLine(NameItems) 
     Loop 
     nsw.Flush() 
     nsw.Close() 

     Dim URLPath As String = ("C:\Favoriter\URLList.txt\") 
     Dim usw As StreamWriter 
     usw = File.CreateText(URLPath) 
     Dim URLItems As String 
     Do Until lstURL.Items.Count.Equals(0) 
      URLItems = lstURL.Items.Item(0) 
      lstURL.Items.RemoveAt(0) 
      usw.WriteLine(URLItems) 
     Loop 
     usw.Flush() 
     usw.Close() 

    End Sub 

    Private Sub lblTitle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblTitle.Click 

    End Sub 

    Private Sub lstName_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstName.SelectedIndexChanged 

    End Sub 

    Private Sub lstURL_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstURL.SelectedIndexChanged 

    End Sub 

    Private Sub txtName_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtName.TextChanged 

    End Sub 

    Private Sub txtURL_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtURL.TextChanged 

    End Sub 

    Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click 

     lstName.Items.Add(txtName.Text) 
     lstURL.Items.Add(txtURL.Text) 

    End Sub 

    Private Sub btnWatch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnWatch.Click 

     If lstURL.SelectedItem = True Then 
      Process.Start(lstURL.SelectedItem) 
     End If 

    End Sub 

    Private Sub lblName_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblName.Click 

    End Sub 

    Private Sub lblURL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblURL.Click 

    End Sub 
End Class 

Answer 1

, 당신은 사용할 수 있습니다

if File.Exists(Path) then 
File.Open(Path) 
else 
File.CreateText(Path) 
End If 

이렇게하면 글을 쓸 때마다 덮어 쓰지 않습니다.