Как да запазите txt файл на предварително определено място в vb 2010? - vb.net

Здравейте, имам текстово поле, което показва купимена върху него. Имената са в низ, наречен "strNames". Опитвам се да има бутон за запазване, който запазва имената като txt файл на предварително определено място. Ето кода за бутона за запазване. Той създава файла, но без списъка с имена. Моля, помогнете!

Отговори:

Предвид факта, че вашите strNames е масив от низове, които бихте могли да използвате File.WriteAllLines, няма нужда да използвате StreamWriter тук

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
File.WriteAllLines("C:Test.txt", strNames)
End Sub

Това има предимство пред StreamWriterподход, ако не се нуждаете от конкретна обработка на вашия входен масив, преди да го напишете във файл, няма предсказания около низовете на масива и също така не е необходимо да капсулирате StreamWriter в оператор за използване, за да осигурите правилното освобождаване на системните ресурси

Трябва да напишете във файла и след това да извикате Close () на StreamWriter

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim w As IO.StreamWriter
w = New IO.StreamWriter("C:Test.txt")
" strNames is an array so you have to iterate through the array and write each element
For Each item As String In strNames
w.WriteLine(item)
Next
w.Close()
End Sub

Използвайте блокове Try / Catch за всеки случайизключение се случва по време на достъп и запис в файла. Освен това, когато използвате ресурси като Files, уверете се, че правилно се разпореждате с обекта, който е свързан към ресурса. Използването на оператора "Using" е чудесен и безопасен начин да направите това. Ето пример за двете в действие.

Sub WriteToFile()
Dim strNames As String() = {"John", "Jimmy", "Joe"}
Try
Using oWriter As New IO.StreamWriter("C:testFile.txt")
For Each strName As String In strNames
oWriter.WriteLine(strName)
Next
End Using
Catch ex As Exception
HandleException(ex)
End Try
End Sub