Public Class Form1
企業(yè)建站必須是能夠以充分展現(xiàn)企業(yè)形象為主要目的,是企業(yè)文化與產(chǎn)品對外擴展宣傳的重要窗口,一個合格的網(wǎng)站不僅僅能為公司帶來巨大的互聯(lián)網(wǎng)上的收集和信息發(fā)布平臺,創(chuàng)新互聯(lián)公司面向各種領(lǐng)域:航空箱等成都網(wǎng)站設(shè)計、全網(wǎng)營銷推廣解決方案、網(wǎng)站設(shè)計等建站排名服務(wù)。
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
最簡單的方法 還有很多方法 自己研究吧親 希望能幫到你
寫入模式為覆蓋會出現(xiàn)這個現(xiàn)象
要使用添加模式
就會累加了
寫入:Dim sr As New IO.StreamWriter(Application.StartupPath "/寫入的文本.txt")
sr.WriteLine("寫入的內(nèi)容") sr.Close()讀?。篒f (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
word1文件內(nèi)容復(fù)制到剪貼板,(當(dāng)然也可以vb編程打開)
RichTextBox1.Rtf = Clipboard.GetData(System.Windows.Forms.DataFormats.Rtf)
然后在richtextbox1控件中選中要拷文本
Clipboard.SetData(System.Windows.Forms.DataFormats.Rtf, RichTextBox1.SelectedRtf)
再粘貼到word2
希望能幫到你。
.net應(yīng)該提供了此類函數(shù)。如C#就有File.AppendAllText(filename,string)用于追加內(nèi)容,F(xiàn)ile.ReadAllLine(filename)用于讀取多行。