[英]Read and write into a txt file using VB.NET with words in between
我想打开一个txt文件,并写入到它numbers
从1 to 100
,每个号码之间放enter
。
您可以尝试的一种方法是将数字写入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
在家学习中有一个很好的例子
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
您还可以使用“ 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)
请参见System.IO命名空间 ,尤其是System.IO.File类 。
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.