计算机程序设计vb怎么保存,VB编程：读取文本文件和保存文本文件的方法

用VB编写一个记事本，一定要用到读文本文件和保存文本文件这两个模块，这两个模块做成两个函数

Private Function GetTXT(Path As String) '读取文本

Open Path For Input As #1

GetTXT = StrConv(InputB(LOF(1), 1), vbUnicode)

Close #1

End Function

Private Sub SetTXT(Strl As String, Path As String) '保存文本

Open Path For Output As #1

Print #1, Strl;

Close #1

End Sub

有了以上两个函数，你在窗体的任何地方都可以调用了。

假如你的C盘下有一个文本文件名叫 abc.txt

在窗体上，要读取这个txt文本文本的内容到窗体上的文本框1的代码就是：

Text1.Text = GetTXT("c:\abc.txt")

在窗体要要把文本框1的内容保存到c:\abc.txt  代码就是：

Call SetTXT(Text1.Text, "c:\abc.txt")

来源：济亨网