关于文件的问题，请各们帮帮忙！！

Question

   对于richtextbox不知道，提供text控件读写文件的方法。    Const ForReading = 1, ForWriting = 2, ForAppending = 3
    Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
    Dim fs, f, ts
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFile("d:\\My Project\\Basic.txt")
    Set ts = f.OpenAsTextStream(ForWriting, TristateUseDefault)
    ts.Write Text1.Text   //写
    ts.Close    Open "D:\\My Project\\Basic.txt" For Binary As #1
    F$ = Space$(LOF(1))
    Get #1, , F$
    Close #1
    text1.text = F$   //读

Answer 1

richtextbox,保存时要选存位纯文本

Answer 2

可我想保存成HTml格式，怎么用richtextbox做？

Answer 3

Jackyin正确，以纯文本方式保存并不是指保存成文本文件，因为HTML本身就是文本文件。只是带格式而已。你的错误的代码是按照RTF格式保存，就会出现很多格式符号，就像HTML中的<P></P>这样的格式。

Answer 4

to bluestar:我用你的方法试了一下，比较好用，可如何能读多行文本，我是说，我想打开一个比较长的文章，当原文件有回车换行时，我在TEXT中也可以看到是换行的，就象WINDOWS中的记事本那样，TEXT支持类似的方法吗？

Answer 5

to TechnoFantasy:我也想过你说我问题，可我不知道它用哪个方法，或属性来对此进行操作，给个答案好吗？？

Answer 6

在SaveFile方法中将filetype参数设定为rtfText

Answer 7

不是，rtfText是文本方式，相对应的数值是1。RTF方式是rtfRTF，对应的数值是0

Answer 8

如果这个解答对你有帮助，请给我一点分好吧？其实没有那么复杂的。'假设在Form中有一个Richtextbox1和一个Command1
Private sub Command1_click()
   open "temp.htm" for output as #1
   print#1,Richtextbox1
   close #1
End sub 

Answer 9

to TechnoFantasy:谢谢你的答案，我想我应该给你点分。不过有个事我想跟你说，你的名字太长了，写起来真是太麻烦了。呵呵！！！

Answer 10

to yfsteven1:我想不明白的是在保存时的问题，而不 是打不开文件，如果你能帮我解决保存的问题我可以给你分。我有一事不明还想问你，那个分有什么用，怎么那么多人想要，多了有什么好处吗？

Answer 11

yfsteven1说的就是保存呀。第一句是打开一个文件来写入，第二句是把richtextbox中的东西写入文件，第三句是关闭文件。这样做可以实现你所说的问题，我试过的。