重慶分公司,新征程啟航
為企業提供網站建設、域名注冊、服務器等服務
為企業提供網站建設、域名注冊、服務器等服務
設計一個窗口,添加一個名為textBox1的System.Windows.Forms.TextBox,
創新互聯主營鎮沅網站建設的網絡公司,主營網站建設方案,成都app開發,鎮沅h5微信小程序搭建,鎮沅網站營銷推廣歡迎鎮沅等地區企業咨詢
添加一個名為button1的System.Windows.Forms.Button。
為button1的單擊事件添加如下處理函數:
Sub Button1Click(sender As Object, e As EventArgs)
'f是你的文本文件的文件名
Const f As String="t.txt"
Dim sw As System.IO.StreamWriter=Nothing
Try
If Not System.IO.File.Exists(f) Then
sw=System.IO.File.CreateText(f)
Else
sw=New System.IO.StreamWriter(f,True)
End If
sw.WriteLine(textBox1.Text)
Finally
If sw IsNot Nothing Then
sw.close()
End If
End Try
End Sub
用StreamReader和StreamWriter讀寫文本文件,在讀取的過程中判斷字符串即可。
'創建一個文本文件,把文本框里的文字寫入到該文件,當然,你可以使用一個字符串變量
Dim MyStream As New System.IO.FileStream("D:\test.ini", System.IO.FileMode.Create)
Dim MyWriter As New System.IO.StreamWriter(MyStream, System.Text.Encoding.Default)
MyWriter.WriteLine(TextBox1.Text)
MyWriter.Flush()
MyWriter.Close()
MyStream.Close()