程序员之家 服务器常用软件
快捷导航
您的位置：首页 → 软件编程 → vb → VB打开与保存txt文件

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

 更新时间：2015年06月25日 10:02:01   作者：小卒过河  
这篇文章主要介绍了VB打开与保存txt文件的方法,涉及使用VB操作文本文件的相关技巧,需要的朋友可以参考下
（福利推荐：【腾讯云】服务器最新限时优惠活动，云服务器1核2G仅99元/年、2核4G仅768元/3年，立即抢购>>>：9i0i.cn/qcloud）

（福利推荐：你还在原价购买阿里云服务器？现在阿里云0.8折限时抢购活动来啦！4核8G企业云服务器仅2998元/3年，立即抢购>>>：9i0i.cn/aliyun）

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

您可能感兴趣的文章:

相关文章

最新评论

?


http://www.vxiaotou.com