当前位置:首页 » 程序代码 » 正文

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://wb98.com/post/23.html

    << 上一篇 下一篇 >>

    湘公网安备 43011102000514号 - 湘ICP备08100508号