救命！ 如何保存和打开一个文本文件。（用代码实现。------在线等待）

Question

救命！ 如何保存和打开一个文本文件。（用代码实现。------在线等待）

Answer 1

用filesystemopject比较容易（ 但要选择把它引入工程）
 

Answer 2

象这样：把文本文件内容读取TextBox：
Dim TempFile As Long
Dim LoadBytes() As ByteTempFile=FreeFile
Open 文件名 For Binary As #TempFile
Redim LoadBytes(1 To Lof(TempFile)) As Byte
Get #TempFile,,LoadBytes
Close TempFileText1.Text=StrConv(LoadBytes,vbUniCode)把TextBox内容写入文本文件：
Dim TempFile As Long
Dim SaveBytes() As ByteSaveBytes=StrConv(Text1.Text,vbFromUniCode)TempFile=FreeFile
Open 文件名 For Binary As #TempFile
Put #TempFile,,SaveBytes
Close TempFile

Answer 3

http://www.dapha.net/down/list.asp?id=1840

Answer 4

在工程的引用中先加入scripting runtime
在你想打开文件的函数中加入如下代码:dim objfile as new scriping filesystemobject
dim objopenfile as objectset objopenfile=objfile.opentextfile(filename,openmodel,openmodel1,openmodel2)一下就可以操作文件了,但是在函数结束之前一定要进行释放,因为filesystemobject对象不会被vb自动释放.objopenfile.close
set objopenfile=nothing
set objfile=nothing

Answer 5

利用FileSystemObject对象进行操作：1、先在工程中引用“Microsoft Scripting Runtime”以便利用FileSystemObject对象。2、添加两个命令按钮，然后双击各按钮以便添加以下代码：
(以下也可直接利用文本框内容或任何文本内容代替s变量的值)Private Sub Command1_Click()
  '读文件
  Dim s As String
  Dim fs As New FileSystemObject
  Dim a As TextStream
  Set a = fs.OpenTextFile("d:\test\testfile.txt", ForReading, False)
  If Not a.AtEndOfStream Then
    s = a.ReadAll()
  End If
  a.Close
  Set fs = Nothing
End SubPrivate Sub Command2_Click()
  '写文件
  Dim s As String
  Dim fs As New FileSystemObject
  Dim a As TextStream
  Set a = fs.OpenTextFile("d:\test\testfile.txt", ForWriting, True)
  '若要在原有文件中添加内容请改用 Set a = fs.OpenTextFile("d:\test\testfile.txt", ForAppending, True)
  s = "要保存的文本内容"
  a.Write s
  a.Close
  Set fs = Nothing
End Sub