使用VB.NET读取和写入到一个txt文件，用

Question

之间的字我想打开一个txt文件并写入它numbers从1 to 100并放在每个数字enter之间。

Answer 1

的一种方式是将数字写入一个StringBuilder，然后用它的toString（）方法得到的结果文本：

Imports System.IO 
Imports System.Text 


Public Class NumberWriter 
    Private ReadOnly OutputPath as String = _ 
      Path.Combine(Application.StartupPath, "out.txt") 


    Public Sub WriteOut() 
     Dim outbuffer as New StringBuilder() 

     For i as integer = 1 to 100 
      outbuffer.AppendLine(System.Convert.ToString(i)) 
     Next i 

     File.WriteAllText(OutputPath, outbuffer.ToString(), true) 
    End Sub 

    Public Shared Sub Main() 
     Dim writer as New NumberWriter() 
     Try 
     writer.WriteOut() 
     Catch ex as Exception 
     Console.WriteLine(ex.Message) 
     End Try 
    End Sub 
End Class 

Answer 2

请参阅System.IO namespace，尤其是System.IO.File class。

Answer 3

有在家里是一个很好的例子，在和学习，你可以尝试

Dim FILE_NAME As String = "C:\test2.txt" 

If System.IO.File.Exists(FILE_NAME) = True Then 
    Dim objWriter As New System.IO.StreamWriter(FILE_NAME) 
    objWriter.Write(TextBox1.Text) 
    objWriter.Close() 
    MsgBox("Text written to file") 
Else 
    MsgBox("File Does Not Exist") 
End If 

Answer 4

您还可以使用 “My.Computer.FileSystem” 命名空间，如：

Dim str As String = "" 
For num As Int16 = 1 To 100 
    str += num.ToString & vbCrLf 
Next 
My.Computer.FileSystem.WriteAllText("C:\Working\Output.txt", str, False)