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程序设计有所帮助。

您可能感兴趣的文章:

• 记录游客页面访问IP的简易实现代码 (asp.net+txt)
• c#.NET 写txt文件小例子
• Javascript写入txt和读取txt文件示例
• java的io操作(将字符串写入到txt文件中)
• Flex读取txt文件中的内容报错原因分析及解决
• 将txt文件名写入文件首行的bat代码(保留源文件)
• C#逐行读取txt文件的方法
• Python实现读取目录所有文件的文件名并保存到txt文件代码
• javascript结合ajax读取txt文件内容
• Python中使用不同编码读写txt文件详解
• Java导出txt文件的方法
• php逐行读取txt文件写入数组的方法
• Python实现将目录中TXT合并成一个大TXT文件的方法
• 直接在线预览Word、Excel、TXT文件之ASP.NET
• ASP.NET对txt文件相关操作（读取、写入、保存）