vb问题 文本文档写入

[office_2007]

怎样 winform窗体上用循环for方法电脑系统的文本文档.txt里写入呢

[CloneCenter]

看 MSDN 中的例子：
http://msdn.microsoft.com/zh-cn/library/system.io.streamwriter(VS.80).aspx

[office_2007]

看不明白了。 能不能2给出过程实例呢

[weilu0328]

LZ 这个应该是比较简单的吧！

fileStream = New FileStream(strFileName, System.IO.FileMode.CreateNew, System.IO.FileAccess.Write)
                            streamWriter = New StreamWriter(fileStream, System.Text.Encoding.Default)
                            streamWriter.WriteLine(strDocumentHeader)

[kitome]

Imports System
Imports System.IO

Class Test
Public Shared Sub Main()
' Create an instance of StreamWriter to write text to a file.
Using sw As StreamWriter = New StreamWriter("TestFile.txt")
' Add some text to the file.
sw.Write("This is the ")
sw.WriteLine("header for the file.")
sw.WriteLine("-------------------")
' Arbitrary objects can also be written to the file.
sw.Write("The date is: ")
sw.WriteLine(DateTime.Now)
sw.Close()
End Using
End Sub
End Class

[office_2007]

Class Test
Public Shared Sub Main()
这个是什么方法里的?

[xinnianle]

你是说Txt文本的循环写入操作?
你看着是不是你想要的

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim b As New IO.StreamWriter("C:\Users\LP\Desktop\111.txt", True, System.Text.Encoding.Default) 'True是追加False是覆盖
        For i As Integer = 1 To 100 '循环100遍
            b.WriteLine(String.Format("这是第{0}行字符串", i)) '写入Txt文本
        Next
        b.Close() '操作完毕关闭记事本
        MsgBox("写入完毕", 64)
    End Sub