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")

打赏 支付宝打赏 微信打赏

来源：济亨网

本文链接：http://wb86.com/post/23.html