none
Write text many times RRS feed

  • 問題

  • How to write text in a file many times?

    There is a textbox to enter a product name.

     Here is the code:

    1 Dim productname As String = txtProductName.Text  
    2 Dim file1 As String = "c:\test.txt" 
    3 Dim Writer1 As New StreamWriter(file1)  
    4 Writer1.Write(productname)  
    5 Writer1.Write(vbNewLine)  
    6 MsgBox("Record added!", MsgBoxStyle.OkOnly)  
    7 Writer1.Close() 

    Using Do until Loop? How to do it?
    2009年2月3日 下午 06:38

解答

  •  You just add a parameter about append:
     Dim productname As String = TextBox1.Text  
     Dim file1 As String = "c:\test.txt" 
     Dim Writer1 As New StreamWriter(file1, True)  
     Writer1.WriteLine(productname)  
     Writer1.WriteLine(vbNewLine)  
     MsgBox("Record added!", MsgBoxStyle.OkOnly)  
     Writer1.Close() 

    微軟技術支援中心(CSS)
    • 已提議為解答 Lolota Lee 2009年2月4日 上午 01:47
    • 已標示為解答 Lolota Lee 2009年2月9日 上午 10:52
    2009年2月4日 上午 01:47