作者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