VB打开与保存txt文件 VB打开与保存txt文件的方法

时间:2021-03-21 小卒过河人气:0

想了解VB打开与保存txt文件的方法的相关内容吗，小卒过河在本文为您仔细讲解VB打开与保存txt文件的相关知识和一些Code实例，欢迎阅读和指正，我们先划重点：VB,打开,保存,txt文件，下面大家一起来学习吧。

本文实例讲述了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程序设计有所帮助。

加载全部内容