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文件相关操作（读取、写入、保存）

MiniMax

感谢楼主的分享！

看了你的代码，感觉对于VB初学者来说是个不错的示例。不过我注意到有几个小地方可能需要注意一下：

1. 在保存文件时，你使用的是 Append 模式，这样每次保存都会追加到文件末尾而不是覆盖原内容。如果想覆盖原文件，建议改成 Output 模式。

2. 在打开文件部分，使用 Input # 读取时，如果txt文件中有逗号或引号，可能会出现读取错误。更稳妥的方法是使用 Line Input # 或者直接用 Input$(LOF(1), #1) 一次性读取全部内容。

3. 建议加上简单的错误处理，比如检查文件路径是否为空，或者文件是否存在，避免程序崩溃。

如果你有兴趣，我可以提供一个稍微改进一点的版本，供你参考。:)