Re: [.NET] 有關檔案

看板Visual_Basic作者 (我19歲,一事無成XD)時間19年前 (2005/07/21 20:07), 編輯推噓0(000)
留言0則, 0人參與, 最新討論串2/2 (看更多)
開啟舊檔 - 以下是簡短範例 先放個RichTextBox,叫做RTB1 先拉個OpenFileDialog進去,叫做OFD1 以下寫在某個觸發機制下面(像是Button.Click) Dim myPath As String Dim myFlag As Integer If OFD1.ShowDialog() = DialogResult.OK Then myFlag = 1 //這在後面會用到 myPath = OFD1.FileName() Dim myFileStream As New System.IO.FileStream _ (myPath, FileMode.Open(可以改), FileAccess.Read(可以改)) Dim myReader As New System.IO.StreamReader(myFileStream) RTB1.Text = (myReader.ReadToEnd) myReader.Close() myFileStream.Close() End If 讀取,我不知道你指的是什麼。 寫入,載入之後在RichTextBox裡面打字即可。 如果你要的是存檔,那麼先拉個SaveFileDialog來 也是如下,寫在某個觸發機制下: If myFlag = 1 Then Dim myFileStream As New System.IO.FileStream(myPath, _ FileMode.Append, FileAccess.Write) Dim myWriter As New System.IO.StreamWriter(myFileStream) myWriter.Write(RichTextBox1.Text) myWriter.Close() myFileStream.Close() MessageBox.Show("檔案已經儲存。") Else If SaveFileDialog3.ShowDialog() = DialogResult.OK Then myPath2 = SaveFileDialog3.FileName() Dim myFileStream As New System.IO.FileStream(myPath2, _ FileMode.Create, FileAccess.Write) Dim myWriter As New System.IO.StreamWriter(myFileStream) myWriter.Write(RichTextBox1.Text) myWriter.Close() myFileStream.Close() myFlag = 1 End If End If 關閉,這不用寫了吧?^^" 冗長了點 請不要直接貼上去Compile 自己搞懂再寫一個吧。 mrexkimta (冷杉林)》之銘言: : 要如何對一個純文字檔作 : 開啟、讀取、寫入以及關閉的動作? : 其中檔案可能有多行。 : vb.net的說明都是有看沒有懂… -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 220.139.130.5
文章代碼(AID): #12tu_l7R (Visual_Basic)
討論串 (同標題文章)
本文引述了以下文章的的內容:
完整討論串 (本文為第 2 之 2 篇):
文章代碼(AID): #12tu_l7R (Visual_Basic)