写入模式为覆盖会出现这个现象
成都创新互联主营尼金平网站建设的网络公司,主营网站建设方案,成都app软件开发,尼金平h5微信小程序开发搭建,尼金平网站营销推广欢迎尼金平等地区企业咨询
要使用添加模式
就会累加了
my点抗 puter.filesystem....
可以这么写:
my. _
computer. _
filesystem.
注意是空格加下划线
设计一个新窗体,这个窗体中可以有很多文本框,
当需要输入数据时,加载这个新窗体,从新窗体中获取数据
Public Class Form1
Private Sub 写入文件_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 写入文件.Click
FileOpen(1, "D:\一行文件.txt", OpenMode.Output) ' Open file for output.
WriteLine(1, "想只保留文件为一行 那你就写一行好了") ' Print blank line to file.
FileClose(1) ' Close file.
End Sub
Private Sub 读取文件_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 读取文件.Click
Dim TextLine As String
FileOpen(1, "D:\一行文件.txt", OpenMode.Input) ' Open file for output.
TextLine = LineInput(1) '读取一行就了
MsgBox(TextLine)
FileClose(1)
End Sub
End Class
最简单的方法 还有很多方法 自己研究吧亲 希望能帮到你