这篇文章主要介绍了VB打开与保存txt文件的方法,涉及使用VB操作文本文件的相关技巧,需要的朋友可以参考下
本文实例讲述了VB打开与保存txt文件的方法。分享给大家供大家参考。具体如下：
Private Sub cmdsave_Click() Dim filelocation As String ' loads save as box commondialog1.ShowSave filelocation = commondialog1.FileName ' append saves over file if it assists Open filelocation For Append As #1 Print #1, text1.text Close #1 End Sub Private Sub cmdopen_Click() Dim filelocation As String ' show open box commondialog1.ShowOpen filelocation = commondialog1.FileName ' input files into text1.text Open filelocation For Input As #1 Do Until EOF(1) Input #1, Data text1.text = text1.text + Data + vbNewLine EOF (1) Loop Close #1 End Sub
希望本文所述对大家的VB程序设计有所帮助。
以上就是VB打开与保存txt文件的方法的详细内容，更多请关注0133技术站其它相关文章！
