VB.NET操作记事本

[tamadgebi]

我要把4个文本框里的文字写入C盘下的1.txt，textbox1写在第一行.....textbox4第四行
在另一个窗体下，也是四个textbox，把四行文字分别写在四个textbox里

[feiyun0112]

Using sw As StreamWriter = New StreamWriter("c:\1.txt")
' Add some text to the file.
sw.Write(TextBox1.Text)
...
sw.Write(TextBox4.Text)

sw.Close()
End Using


Using sr As StreamReader = New StreamReader("c:\1.txt")
Dim line As String
dim i as integer
' Read and display the lines from the file until the end
' of the file is reached.
Do
line = sr.ReadLine()
i=i+1
dim txt as TextBox
txt= DirectCast me.Controls.Find("TextBox"+i.Tostring(),true)(0),TextBox)
txt.Text=line

Loop Until line Is Nothing
sr.Close()
End Using


*****************************************************************************
欢迎使用CSDN论坛专用阅读器 : CSDN Reader(附全部源代码)

http://feiyun0112.cnblogs.com/

[oo渣渣oo]

随手写的,仅供参考,如有问题请自行研究............
写入:

Dim fs As New FileStream("C:\1.txt",FileMode.Create)
Dim Buff() as Byte = Encoding.Default.GetBytes(TextBox1.Text)
fs.Write(Buff, 0, Buff.Length)
fs.Flush
fs.Close
fs = Nothing
Buff = Nothing

读取:

Dim fs As New StreamReader("C:\1.txt", System.Text.Encoding.Default)
Dim strLine As String 

strLine = fs.ReadLine
TextBox1.Text = strLine
strLine = fs.ReadLine
TextBox2.Text = strLine
......
fs.Close
fs = Nothing

[鸭梨山大帝]

  Private Sub btnWrite_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnWrite.Click
        dim strFilePath as string = "c:\1.txt"
        dim strContent as string = ""
        strContent = textbox1.text & vbcrlf &  textbox2.text & vbcrlf &  textbox3.text & vbcrlf &  textbox4.text & vbcrlf &  
        WriteFile(strFilePath , strResult)
    End Sub
    

    Private Sub WriteFile(ByVal FilePath As String, ByVal Content As String)
        Dim fs As New FileStream(FilePath, FileMode.OpenOrCreate)
        Dim sr As New StreamWriter(fs, System.Text.Encoding.UTF8)
        sr.Write(Content)
        sr.Dispose()
        fs.Dispose()
    End Sub

[yanlongwuhui]

写：

Dim swObject As System.IO.StreamWriter
        swObject = New System.IO.StreamWriter("C:\1.TXT", False, System.Text.Encoding.Default)
        swObject.WriteLine(TextBox1.Text)
        swObject.WriteLine(TextBox2.Text)
        swObject.WriteLine(TextBox3.Text)
        swObject.WriteLine(TextBox4.Text)
        swObject.Close()
        swObject = Nothing

读：

Dim srObject As System.IO.StreamReader
        srObject = New System.IO.StreamReader("c:\1.txt", System.Text.Encoding.Default)
        TextBox1.Text = srObject.ReadLine()
        TextBox2.Text = srObject.ReadLine()
        TextBox3.Text = srObject.ReadLine()
        TextBox4.Text = srObject.ReadLine()
        srObject.Close()
        srObject = Nothing

[tamadgebi]

大家都很牛啊，谢谢大家