请问如何用vb.net生成.txt文件，并且向里面添加内容?

[Redsun248]

请问如何用vb.net生成.txt文件，并且向里面添加内容?

[a854468521]

My.Computer.FileSystem.WriteAllText("文件途径", "文件内容", False, System.Text.Encoding.Default)

[yurengang]

Dim fs As New System.IO.FileStream("", IO.FileMode.Create)
Dim sw As New System.IO.StreamWriter(fs)
sw.Write("内容")

[Redsun248]

那如何读取已知.txt文件的内容呢？

[古今多少事]

写入：
Dim Str1 As String
FileOpen(1, Application.StartupPath + "\Str1.txt", OpenMode.Output)
Print(1, Str1)
FileClose(1)
msgbox Str1

读出：
Dim Str1 As String
FileOpen(1, Application.StartupPath + "\Str1.txt", OpenMode.Input) '打开文件
Input(1, Str1) '读入要显示的字符串
FileClose(1)
msgbox Str1

[古今多少事]

写入：
Dim Str1 As String
FileOpen(1, Application.StartupPath + "\YouName.txt", OpenMode.Output)
Print(1, Str1)
FileClose(1)
msgbox Str1

读出：
Dim Str1 As String
FileOpen(1, Application.StartupPath + "\YouName.txt", OpenMode.Input) '打开文件
Input(1, Str1) '读入要显示的字符串
FileClose(1)
msgbox Str1

[Redsun248]

Imports System
Imports System.IO




Dim sw As StreamWriter = New StreamWriter("C:\TestFile.txt", True)
'写入文件
sw.Write("This is the ")
sw.WriteLine("header for the file.")
sw.Close()

'读取文件


Dim SOpenFile As StreamReader = New StreamReader("C:\TestFile.txt")
Dim Sline As String

Do While SOpenFile.Peek() > 0

Sline = SOpenFile.ReadLine()

Loop

SOpenFile.Close()

SOpenFile = Nothing

[actoractor]

UP

[joeandlily]

察看StreamReader，StreamWriter
TextReader，TextWriter

[wuhuwy]

[Quote=引用 5 楼 ASDFY 的回复:]
写入：
Dim Str1 As String
FileOpen(1, Application.StartupPath + "\YouName.txt", OpenMode.Output)
            Print(1, Str1)
            FileClose(1)
            msgbox Str1

读出：
Dim Str1 As String
        FileOpen(1, Application.StartupPath + "\YouName.txt", OpenMode.Input) '打开文件
        Input(1, Str1) '读入要显示的字符串
        FileClose(1)
        msg…
[/Quote]
正解！