vb.net 中对txt文件的读取、写入的方法！始终保持txt里面只有一行！

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

最简单的方法 还有很多方法 自己研究吧亲 希望能帮到你

请教，vb.net写入文件问题，为什么我用两种办法写文件只能写入最后一行

写入模式为覆盖会出现这个现象

要使用添加模式

就会累加了

vb.net中，读取和写入文件

写入：Dim sr As New IO.StreamWriter(Application.StartupPath "/写入的文本.txt")

sr.WriteLine("写入的内容") sr.Close()读取：If (File.Exists(Application.StartupPath "/msg.txt")) Then

Dim fm As New IO.FileStream(Application.StartupPath "/读取的文本.txt", FileMode.Open)

Dim sr As IO.StreamReader = New IO.StreamReader(fm)

Do While sr.Peek() = 0

TextBox1.Text = sr.ReadLine() （读取文本到文本框）

Loop end if

vb.net 实现word里面的文本带格式写入到richtextbox中去，然后再把richtextbox里面的内容带格式写入另一

word1文件内容复制到剪贴板，（当然也可以vb编程打开）

RichTextBox1.Rtf = Clipboard.GetData(System.Windows.Forms.DataFormats.Rtf)

然后在richtextbox1控件中选中要拷文本

Clipboard.SetData(System.Windows.Forms.DataFormats.Rtf, RichTextBox1.SelectedRtf)

再粘贴到word2

希望能帮到你。

vb.net 怎么写入和多行读取txt文件，而且多次写如之前的不被覆盖？

.net应该提供了此类函数。如C#就有File.AppendAllText(filename,string)用于追加内容，File.ReadAllLine(filename)用于读取多行。

文章名称：vb.net文本写入 vbs文件读写
文章出自：http://ybzwz.com/article/docohes.html