作者linmic (我19歲，一事無成XD)
看板Visual_Basic
標題Re: [.NET] 有關檔案
時間Thu Jul 21 20:31:55 2005
開啟舊檔 - 以下是簡短範例
先放個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